VFP 愛用者社區

[Ruey]

來源:梅子

如何隱藏系統工具欄?[分享]
當你啟動 Visual FoxPro 時, 一個或多個系統工具欄通常是可見的. (實際的工具欄狀態是保存在資源檔案中的.) 還好所有的系統工具欄可以通過它們的視窗名訪問 (它們的視窗名與它們的標題是相同的) 因此操作它們相對要簡單一些.
最簡單的確保只有你需要的那些工具欄是可見的方法是創建一個所有工具欄名字的資料組, 然後遍曆該陣列, 檢查它們是否是可見的並隱藏那些你不需要的工具欄. 以下代碼將隱藏所有可見的系統工具欄:
DIMENSION gaTbsets[lnTB,2]
gaTbsets[1,1]="調色板"
gaTbsets[2,1]="資料庫設計器"
gaTbsets[3,1]="表單控制項"
gaTbsets[4,1]="表單設計器"
gaTbsets[5,1]="佈局"
gaTbsets[6,1]="列印預覽"
gaTbsets[7,1]="查詢設計器"
gaTbsets[8,1]="報表控制項"
gaTbsets[9,1]="報表設計器"
gaTbsets[10,1]="常用"
gaTbsets[11,1]="視圖設計器"
FOR lnCnt=1 TO 11
IF WEXIST(gaTbsets(lnCnt,1))
*-- 保存該工具欄的當前可見狀態
gaTbsets(lnCnt,2)=.T.
*-- 隱藏該可見的工具欄
Hide Window (gaTbsets(lnCnt,1))
ELSE
*-- 保存該工具欄的當前可見狀態
gaTbsets(lnCnt,2)=.F.
ENDIF
ENDFOR
當然, 這橛做帶來的問題是當你要重新顯示系統工具欄時怎麼辦. 可能 SHOW WINDOW 命令可以用於重新顯示一個先前隱藏的系統工具欄, 以下代碼將恢復執行上述代碼前的系統工具欄狀態, 注意陣列 gaTbsets 第二列中保存有隱藏前的系統工具欄狀態.
FOR lnCnt=1 TO ALEN(gaTbsets,1)
IF gaTbsets(lnCnt,2)
Show WINDOW (gaTbsets(lnCnt,1))
ENDIF
ENDFOR
系統工具欄的其他問題
但有一個問題! 為了使用 Show Window, 視窗名必須已經在 VFP 中定義而且系統工具欄已由 VFP 生成, 沒有辦法以編程方式實際定義或啟動一個工具欄. 結果是除非一個工具欄首先被 VFP 自己啟動, 否則你不能在稍後讓它可見. 唯一可以讓其可見的工具欄是 '標準', '佈局' 和 '表單設計器' 但看來沒有其他任何辦法讓其他的系統工具欄在系統啟動時讓它們是可見的.