VFP 愛用者社區

[Ruey]

發表日期：2003年8月27日 作者：FreeBrid

　　大家對工具條（TOOLBAR）肯定不會陌生，利用工具條，可以使我們的操作更加方便。如圖所示的程式中便使用了工具條，我們可以在程式運行時將工具條放置在任意地方，並且可以調整工具條的大小、改變按鈕的排列方式（橫向、縱向）。那麼，在VFP中怎樣才能創建工具條呢？在VFP的表單設計環境中並沒有工具條控制項，要使用工具條，你得自力更生！
　　首先得新建一工具條類（CLASS）:在新建檔的檔類型中選擇CLASS，之後輸入你新建的類名、存儲該類資訊的檔案名(本例中為mytoolbar.vcx)，最重要的是你應選擇“TOOLBAR”作為該類的基類。然後便進入類設計器環境，同表單設計環境一樣，你可以在工具條中加入各種常用控制項。本文主要是利用工具條來實現移動資料表的指標，所以只在工具條中加入了四個按鈕：head、previous、next、end。它們的標題分別為“檔頭”、“上一條”、“下一條”、“文件尾”。當然，你如果想要你的工具條看起來更加漂亮，還可以把按鈕設計成圖案式。然後我們在類設計器中為每個按鈕編寫出相應的代碼。
　　1．Head按鈕的CLICK事件代碼：
　　GO TOP
　　＊移動資料表的指標時，你必須考慮到更新表單（集）上的內容
　　＊按鈕的“父親”工具條本身，工具條的“父親”便是引用工具條的表單集了。
　　THIS.PARENT.PARENT.REFRESH
　　2．Previous按鈕的CLICK事件代碼：
　　IF BOF()
　　 WAIT WIND ″已到第一條記錄！″
　　 RETURN
　　ELSE
　　 SKIP －1
　　ENDI
　　THIS.PARENT.PARENT.REFRESH
　　3．Next按鈕的CLICK事件代碼：
　　IF EOF()
　　 WAIT WIND ″已到最未一條記錄！″
　　 RETURN
　　ELSE
　　 SKIP
　　ENDI
　　THIS.PARENT.PARENT.REFRESH
　　4．End按鈕的CLICK事件代碼：
　　GO BOTTOM
　　THIS.PARENT.PARENT.REFRESH
　　經過上面的過程後，我們的工具條便做好了。接下來在VFP中新建一表單form1，在資料環境中加入一資料表txl.dbf（有三個欄位：姓名、位址、電話）,將資料環境中的欄位拖入表單，這樣便能夠查看資料表了。在表單控制項工具欄中選擇“添加”控制項，系統會詢問你可視類庫的檔案名（本文指mytoolbar.vcx）。之後，表單控制項工具欄的佈局會發生變化，你能夠看到剛才你設計的工具條控制項出現在上面。現在你可以將工具條控制項拖入表單了。在往表單中加入工具條之前，我們首先應該知道，其實工具條的本質是一表單（form），所以，在往form1中添加工具條控制項時，系統會詢問你是否新增一表單集（formset），選擇“是”，你的程式就算完工了。試試吧，你會覺得一切都來得太容易。事實上，在類設計器中為每個控制項所寫的代碼為你省去了好多功夫，並且你可以在任何表單中使用該工具條控制項。由此你可以感受到“類”的優點了。
　　另外需要注意的是，在表單中加入工具條往往是和功能表內容相對應的，一個表單在一般情況下不可能僅僅有一個工具條，就拿本文所舉的例子來說，如果用戶將工具條給關閉了，那麼用戶要想繼續查看資料表，那就只得望表興歎了。如果只想用工具條而不使用功能表選項，你就得將工具條的ControlBox屬性設為.F.，即不允許用戶關閉工具條。
　　由於篇幅有限，本文沒有對如何完善工具條多談，其實，只要你掌握了工具條的設計原理，對工具條作一些完善應該不難！