用 好Visual Foxpro 的 菜 單 設(shè) 計(jì) 器 
中 國 礦 業(yè) 大 學(xué)（ 北 京） 
王 彤 
---- 在Visual Foxpro 中， 我 們 可 以 利 用 菜 單 生 成 工 具-- 菜 單 設(shè) 計(jì) 器(Menu Designer) 很 方 便 地 構(gòu) 造 出 與VFP 系 統(tǒng) 菜 單 風(fēng) 格 一 致 的 應(yīng) 用 程 序 菜 單 欄。 但 由 于 系 統(tǒng) 風(fēng) 格 的 菜 單 欄 在 其 界 面 中 總 是 包 含 一 個(gè) 命 令 窗 口（Command）， 而 多 數(shù) 情 況 下, 在 應(yīng) 用 程 序 執(zhí) 行 過 程 中 這 個(gè) 窗 口 不 但 沒 有 任 何 用 處，反 而 干 擾 視 線， 影 響 界 面 的 美 觀。 因 此 我 們 可 以 采 取 下 面 方 法 在 自 定 義 的 應(yīng) 用 程 序 菜 單 欄 出 現(xiàn) 前 先 隱 藏 掉 命 令 窗 口， 然 后 在 退 出 應(yīng) 用 程 序 時(shí) 再 將 其 恢 復(fù)。 具 體 步 驟 如 下（ 以Visual Foxpro 5.0 為 例）： 

---- 1. 進(jìn) 入Visual Foxpro， 在 系 統(tǒng) 菜 單 欄 下 選 擇“File" 菜 單 項(xiàng) 下 的“New" 選 項(xiàng)， 在New 窗 口 中 選 中“Menu" 文 件 類 型， 按 下“New file" 按 鈕 后， 系 統(tǒng) 彈 出“Menu Designer-Menu1" 菜 單 設(shè) 計(jì) 器 窗 口。 

---- 2. 選 中 系 統(tǒng) 菜 單 欄“View" 菜 單 項(xiàng) 下 的“General Options.." 選 項(xiàng)， 彈 出“General Options" 窗 口。 

---- 3. 設(shè) 置 窗 口 中 的“Setup.." 復(fù) 選 框， 按 下“OK" 按 鈕 后 進(jìn) 入“Menu1-Setup" 編 輯 窗 口, 并 鍵 入 以 下 命 令： 

    clear    
    define window HIDEWIN from 1,1 to 2,2
activate window Command in HIDEWIN
---- 這 里 定 義 了 一 個(gè)HIDEWIN 窗 口， 并 讓Command 命 令 窗 口 作 為 其 子 窗 口， 由 于HIDEWIN 未 被 激 活， 故Command 窗 口 隱 含 在 其 中 不 被 顯 示 出 來， 從 而 達(dá) 到 了 隱 藏 命 令 窗 口 的 目 的。 

---- 4. 按Ctrl+W 返 回 菜 單 設(shè) 計(jì) 器 窗 口， 根 據(jù) 實(shí) 際 需 要 定 義 用 戶 自 己 的 菜 單 項(xiàng)。 為 了 在 應(yīng) 用 程 序 結(jié) 束 后 恢 復(fù) 原 來 的 系 統(tǒng) 菜 單 和 命 令 窗 口， 這 里 設(shè) 一 返 回 項(xiàng)， 不 妨 命 名 為“Exit"。 在 相 應(yīng) 的“Prompt" 中 鍵 入“Exit"， 選 擇“Result" 彈 出 式 菜 單 中 μ 

---- ?ldquo;Procedure" 項(xiàng)， 按 下 旁 邊 的“Create" 按 鈕( 注： 對 應(yīng) 于 該 操 作 的 窗 口 在 附 件 中， 該 圖 為.bmp 格 式)， 在 彈 出 的“Menu1-Exit Procedure" 編 輯 窗 口 中 鍵 入： 

    activate window HIDEWIN
    activate window Command in window screen
    release window HIDEWIN
set sysmenu to default
---- 這 里 為 了 讓Command 命 令 窗 口 恢 復(fù) 正 常， 先 激 活 其 父 窗 口HIDEWIN， 然 后 重 新 將 它 激 活 到 屏 幕 上， 最 后 釋 放HIDEWIN， 并 恢 復(fù)Foxpro 系 統(tǒng) 菜 單 欄。 需 要 注 意 的 是，HIDEWIN 窗 口 定 義 的 尺 寸 應(yīng) 盡 量 小， 以 使 其 激 活 過 程 不 被 察 覺。 

---- 5. 按Ctrl+W 返 回 菜 單 設(shè) 計(jì) 器 界 面， 確 保 其 它 自 定 義 菜 單 項(xiàng) 無 誤 后， 選 擇 系 統(tǒng) 菜 單“Menu" 中 的“Generate.." 項(xiàng)， 此 時(shí) 系 統(tǒng) 提 示 給 菜 單 文 件 命 名( 默 認(rèn) 的 文 件 名 是Menu1.MPR), 不 妨 更 名 為XXX 后 按 下“Generate" 按 鈕 即 可 生 成 相 應(yīng) 的 菜 單 文 件XXX.MPR。 

---- 6. 通 過 系 統(tǒng) 菜 單 或 命 令 窗 口 運(yùn) 行 該XXX.MPR 菜 單 文 件， 結(jié) 果 用 戶 自 定 義 的 應(yīng) 用 程 序 菜 單 欄 取 代 系 統(tǒng) 菜 單 欄， 并 且 用 戶 程 序 運(yùn) 行 期 間 不 再 顯 示 命 令 窗 口， 直 到 選 中“Exit" 菜 單 項(xiàng) 退 出 用 戶 應(yīng) 用 程 序， 系 統(tǒng) 恢 復(fù) 正 常。 

---- 該 方 法 同 樣 適 用 于Foxpro for DOS 及Foxpro for Windows 環(huán) 境。 
 


--------------------------------------------------------------------------------

中國計(jì)算機(jī)世界出版服務(wù)公司版權(quán)所有