在用Visual Foxpro(簡稱VFP)進(jìn)行應(yīng)用程序開發(fā)時(shí)，你一定被它那功能強(qiáng)大、漂亮簡捷的工具欄所吸引，陶醉著有一天在應(yīng)用程序中也加入自己的工具欄。其實(shí)這對VFP來說并非難事，請君往下看：
1定義工具欄類
要?jiǎng)?chuàng)建自定義工具欄，必須首先為它定義一個(gè)類。VFP提供了一個(gè)工具欄基類，在此基礎(chǔ)上，你可以創(chuàng)建自己的工具欄類。創(chuàng)建工具欄類有以下幾種方法：
*在“文件”菜單中選擇“新建”命令，選擇類；
*單擊VFP常用工具欄中的“新建”圖標(biāo)在“項(xiàng)目管理器”中，單擊“新建”按鈕選擇類；
*利用Create Class或Modify Class命令。
你可以選擇以上任何一種方法，之后會(huì)彈出一個(gè)“新類”對話框。在“類名”框中，鍵入工具欄類的名稱；從“派生于”下拉框中選擇“ToolBar”，這時(shí)VFP提供的工具欄基類，你也可以單擊三點(diǎn)按鈕選擇其他工具欄基類；在“存儲(chǔ)于”框中鍵入類庫名，保存創(chuàng)建的新類或單擊三點(diǎn)按鈕選擇已有的類庫保存。單擊“確定”后進(jìn)入類設(shè)計(jì)器。2在新建的工具欄中添加對象創(chuàng)建好了一個(gè)自定義工具欄以后，便可以在其中添加對象，只要是VFP支持的對象就可以。我們利用“表單控制”工具欄添加對象。
若“表單控制”工具欄未出現(xiàn)在系統(tǒng)工具欄中，請?jiān)谙到y(tǒng)的工具欄上方單擊鼠標(biāo)右鍵，彈出一個(gè)菜單后選擇“表單控制”；另一個(gè)方法是在系統(tǒng)的“查看”菜單中選擇“工具欄”，然后選擇“表單控制”后確定。
用鼠標(biāo)單擊“表單控制”工具欄中的“CommandGroup”，移動(dòng)鼠標(biāo)光標(biāo)至自定義工具欄內(nèi)，這時(shí)光標(biāo)變?yōu)槭止鈽?biāo)，單擊鼠標(biāo)左鍵。工具欄內(nèi)出現(xiàn)一個(gè)帶兩個(gè)命令按鈕的命令按鈕組，用同樣的方法也可以在工具欄內(nèi)加入其他對象。接下來的就是修改對象的屬性了。對象的屬性有很多，下面列出比較重要的、常用的幾個(gè)屬性。
Width屬性可以設(shè)置對象的大??；
Picture屬性指定對象上的圖標(biāo)；
DisabledPicture屬性指定按鈕處于非激活狀態(tài)時(shí)的圖標(biāo)；
DownPicture屬性指定在按鈕被按下時(shí)顯示的圖標(biāo)；
ToolTipText屬性指定當(dāng)鼠標(biāo)移到按鈕上方時(shí)所顯示的提示信息。
3設(shè)置工具欄的屬性及方法
在工具欄中添加完對象以后，可以設(shè)置工具欄的屬性和方法。工具欄有28個(gè)屬性，30個(gè)方法，下面著重說明比較常用的幾個(gè)屬性和方法。
Caption指定工具欄的標(biāo)題；
ControlBox指定工具欄在運(yùn)行時(shí)刻是否包含控制菜單框；
Moveable指定在運(yùn)行時(shí)刻用戶是否可以移動(dòng)工具欄；
Name指定工具欄的名稱；
ShowTips確定是否顯示工具欄中控制的提示；
Sizeable指定在運(yùn)行時(shí)用戶是否可以調(diào)整工具欄的大?。华?BR> Dock方法可以停放或移出工具欄；
AfterDockEvent方法指定在控制工具欄停放后發(fā)生的動(dòng)作；
BeforeDockEvent方法指定在控制工具欄停放前發(fā)生的動(dòng)作。
工具欄的屬性和方法還有很多，你可以在使用中細(xì)細(xì)研磨。
4將工具欄加到自己的程序中
工具欄設(shè)計(jì)好以后，如何將其加到自己的程序中呢?我們可將設(shè)計(jì)好的工具欄放到我們的表單集中。向表單集中添加工具欄有兩種方法：一是利用表單設(shè)計(jì)器；再就是利用程序代碼。
(1)利用表單設(shè)計(jì)器
首先將所建的工具欄類加到自己的項(xiàng)目中。打開要使用此工具欄的表單集，在“表單控制”工具欄中單擊“查看類”，在列表中單擊“添加”，選擇工具欄類，然后再次單擊“查看類”，從顯示的列表中選擇該工具欄類。從“控制”工具欄中選擇工具欄類，在表單上單擊添加此工具欄，然后將其拖動(dòng)到適當(dāng)?shù)奈恢谩⒐ぞ邫诩拥奖韱渭幸院?，就可以為其按鈕定義操作了，其實(shí)你可在類設(shè)計(jì)器中就為按鈕定義其操作，這兩者的結(jié)果是一樣的。
VFP只在表單集中添加工具欄，如果表單集尚未打開，VFP將提示你打開一個(gè)。
(2)利用程序代碼
除了使用“表單設(shè)計(jì)器”以外，還可以使用程序代碼在表單集中添加工具欄。若要使用程序代碼在表單集中添加工具欄，可以在表單集的Init事件中使用如下命令：
SET CLASSLIB TO工具欄類
THISADDOBJECT(’工具欄類庫名’，’工具欄類名’)
工具欄類庫名.SHOW
1定義工具欄類
要?jiǎng)?chuàng)建自定義工具欄，必須首先為它定義一個(gè)類。VFP提供了一個(gè)工具欄基類，在此基礎(chǔ)上，你可以創(chuàng)建自己的工具欄類。創(chuàng)建工具欄類有以下幾種方法：
*在“文件”菜單中選擇“新建”命令，選擇類；
*單擊VFP常用工具欄中的“新建”圖標(biāo)在“項(xiàng)目管理器”中，單擊“新建”按鈕選擇類；
*利用Create Class或Modify Class命令。
你可以選擇以上任何一種方法，之后會(huì)彈出一個(gè)“新類”對話框。在“類名”框中，鍵入工具欄類的名稱；從“派生于”下拉框中選擇“ToolBar”，這時(shí)VFP提供的工具欄基類，你也可以單擊三點(diǎn)按鈕選擇其他工具欄基類；在“存儲(chǔ)于”框中鍵入類庫名，保存創(chuàng)建的新類或單擊三點(diǎn)按鈕選擇已有的類庫保存。單擊“確定”后進(jìn)入類設(shè)計(jì)器。2在新建的工具欄中添加對象創(chuàng)建好了一個(gè)自定義工具欄以后，便可以在其中添加對象，只要是VFP支持的對象就可以。我們利用“表單控制”工具欄添加對象。
若“表單控制”工具欄未出現(xiàn)在系統(tǒng)工具欄中，請?jiān)谙到y(tǒng)的工具欄上方單擊鼠標(biāo)右鍵，彈出一個(gè)菜單后選擇“表單控制”；另一個(gè)方法是在系統(tǒng)的“查看”菜單中選擇“工具欄”，然后選擇“表單控制”后確定。
用鼠標(biāo)單擊“表單控制”工具欄中的“CommandGroup”，移動(dòng)鼠標(biāo)光標(biāo)至自定義工具欄內(nèi)，這時(shí)光標(biāo)變?yōu)槭止鈽?biāo)，單擊鼠標(biāo)左鍵。工具欄內(nèi)出現(xiàn)一個(gè)帶兩個(gè)命令按鈕的命令按鈕組，用同樣的方法也可以在工具欄內(nèi)加入其他對象。接下來的就是修改對象的屬性了。對象的屬性有很多，下面列出比較重要的、常用的幾個(gè)屬性。
Width屬性可以設(shè)置對象的大??；
Picture屬性指定對象上的圖標(biāo)；
DisabledPicture屬性指定按鈕處于非激活狀態(tài)時(shí)的圖標(biāo)；
DownPicture屬性指定在按鈕被按下時(shí)顯示的圖標(biāo)；
ToolTipText屬性指定當(dāng)鼠標(biāo)移到按鈕上方時(shí)所顯示的提示信息。
3設(shè)置工具欄的屬性及方法
在工具欄中添加完對象以后，可以設(shè)置工具欄的屬性和方法。工具欄有28個(gè)屬性，30個(gè)方法，下面著重說明比較常用的幾個(gè)屬性和方法。
Caption指定工具欄的標(biāo)題；
ControlBox指定工具欄在運(yùn)行時(shí)刻是否包含控制菜單框；
Moveable指定在運(yùn)行時(shí)刻用戶是否可以移動(dòng)工具欄；
Name指定工具欄的名稱；
ShowTips確定是否顯示工具欄中控制的提示；
Sizeable指定在運(yùn)行時(shí)用戶是否可以調(diào)整工具欄的大?。华?BR> Dock方法可以停放或移出工具欄；
AfterDockEvent方法指定在控制工具欄停放后發(fā)生的動(dòng)作；
BeforeDockEvent方法指定在控制工具欄停放前發(fā)生的動(dòng)作。
工具欄的屬性和方法還有很多，你可以在使用中細(xì)細(xì)研磨。
4將工具欄加到自己的程序中
工具欄設(shè)計(jì)好以后，如何將其加到自己的程序中呢?我們可將設(shè)計(jì)好的工具欄放到我們的表單集中。向表單集中添加工具欄有兩種方法：一是利用表單設(shè)計(jì)器；再就是利用程序代碼。
(1)利用表單設(shè)計(jì)器
首先將所建的工具欄類加到自己的項(xiàng)目中。打開要使用此工具欄的表單集，在“表單控制”工具欄中單擊“查看類”，在列表中單擊“添加”，選擇工具欄類，然后再次單擊“查看類”，從顯示的列表中選擇該工具欄類。從“控制”工具欄中選擇工具欄類，在表單上單擊添加此工具欄，然后將其拖動(dòng)到適當(dāng)?shù)奈恢谩⒐ぞ邫诩拥奖韱渭幸院?，就可以為其按鈕定義操作了，其實(shí)你可在類設(shè)計(jì)器中就為按鈕定義其操作，這兩者的結(jié)果是一樣的。
VFP只在表單集中添加工具欄，如果表單集尚未打開，VFP將提示你打開一個(gè)。
(2)利用程序代碼
除了使用“表單設(shè)計(jì)器”以外，還可以使用程序代碼在表單集中添加工具欄。若要使用程序代碼在表單集中添加工具欄，可以在表單集的Init事件中使用如下命令：
SET CLASSLIB TO工具欄類
THISADDOBJECT(’工具欄類庫名’，’工具欄類名’)
工具欄類庫名.SHOW