在VFP中定製自己的工具欄

2021-04-15 09:13:29 字數 1996 閱讀 1052

在用visual foxpro(簡稱vfp)進行應用程式開發時,你一定被它那功能強大、漂亮簡捷的工具欄所吸引,陶醉著有一天在應用程式中也加入自己的工具欄。其實這對vfp來說並非難事,請君往下看:

1 定義工具欄類

要建立自定義工具欄,必須首先為它定義乙個類。vfp提供了乙個工具欄基類,在此基礎上,你可以建立自己的工具欄類。建立工具欄類有以下幾種方法:

*在「檔案」選單中選擇「新建」命令,選擇類;

*單擊vfp常用工具欄中的「新建」圖示在「專案管理器」中,單擊「新建」按鈕選擇類;

*利用create class或modify class命令。

你可以選擇以上任何一種方法,之後會彈出乙個「新類」對話方塊。在「類名」框中,鍵入工具欄類的名稱;從「派生於」下拉框中選擇「*******」,這時vfp提供的工具欄基類,你也可以單擊三點按鈕選擇其他工具欄基類;在「儲存於」框中鍵入類庫名,儲存建立的新類或單擊三點按鈕選擇已有的類庫儲存。單擊「確定」後進入類設計器。 2 在新建的工具欄中新增物件建立好了乙個自定義工具欄以後,便可以在其中新增物件,只要是vfp支援的物件就可以。我們利用「表單控制」工具欄新增物件。

若「表單控制」工具欄未出現在系統工具欄中,請在系統的工具欄上方單擊滑鼠右鍵,彈出乙個選單後選擇「表單控制」;另乙個方法是在系統的「檢視」選單中選擇「工具欄」,然後選擇「表單控制」後確定。

用滑鼠單擊「表單控制」工具欄中的「commandgroup」,移動滑鼠游標至自定義工具欄內,這時游標變為十字游標,單擊滑鼠左鍵。工具欄內出現乙個帶兩個命令按鈕的命令按鈕組,用同樣的方法也可以在工具欄內加入其他物件。接下來的就是修改物件的屬性了。物件的屬性有很多,下面列出比較重要的、常用的幾個屬性。

width屬性可以設定物件的大小;

picture屬性指定物件上的圖示;

disabledpicture屬性指定按鈕處於非啟用狀態時的圖示;

downpicture屬性指定在按鈕被按下時顯示的圖示;

tooltiptext屬性指定當滑鼠移到按鈕上方時所顯示的提示資訊。

3 設定工具欄的屬性及方法

在工具欄中新增完物件以後,可以設定工具欄的屬性和方法。工具欄有28個屬性,30個方法,下面著重說明比較常用的幾個屬性和方法。

caption指定工具欄的標題;

controlbox指定工具欄在執行時刻是否包含控制選單框;

moveable指定在執行時刻使用者是否可以移動工具欄;

name指定工具欄的名稱;

showtips確定是否顯示工具欄中控制的提示;

sizeable指定在執行時使用者是否可以調整工具欄的大小;

dock方法可以停放或移出工具欄;

afterdockevent方法指定在控制工具欄停放後發生的動作;

beforedockevent方法指定在控制工具欄停放前發生的動作。

工具欄的屬性和方法還有很多,你可以在使用中細細研磨。

4 將工具欄加到自己的程式中

工具欄設計好以後,如何將其加到自己的程式中呢?我們可將設計好的工具欄放到我們的表單集中。向表單集中新增工具欄有兩種方法:一是利用表單設計器;再就是利用程式**。

(1)利用表單設計器

首先將所建的工具欄類加到自己的專案中。開啟要使用此工具欄的表單集,在「表單控制」工具欄中單擊「檢視類」,在列表中單擊「新增」,選擇工具欄類,然後再次單擊「檢視類」,從顯示的列表中選擇該工具欄類。從「控制」工具欄中選擇工具欄類,在表單上單擊新增此工具欄,然後將其拖動到適當的位置。將工具欄加到表單集中以後,就可以為其按鈕定義操作了,其實你可在類設計器中就為按鈕定義其操作,這兩者的結果是一樣的。

vfp只在表單集中新增工具欄,如果表單集尚未開啟,vfp將提示你開啟乙個。

(2)利用程式**

除了使用「表單設計器」以外,還可以使用程式**在表單集中新增工具欄。若要使用程式**在表單集中新增工具欄,可以在表單集的init事件中使用如下命令:

set classlib to工具欄類

this addobject(』工具欄類庫名』,』工具欄類名』)

工具欄類庫名.show

解決工具欄中消失了的dev控制項工具欄

有時候會出現這樣一種情況 上次使用的時候工具欄中dev控制項還很正常的顯示,但是下次開啟vs是時候你會發現工具欄中微軟自帶的控制項還乖乖的待在那裡,dev控制項不知道跑哪調皮去啦。這很鬱悶啊,怎麼辦呢?別急,周文王推崇的八卦演繹,天地萬物,相生相剋,下面就是尋找dev藏身之地的途徑。在開始程式裡找到...

工具欄的建立

mfc 中工具欄關聯的類 c ctrl c c ctrl c 兩個類的區別 c 和 cstatusbar 都是在 control bars 類中的封裝,而 cstatusbarctrl 和 c ctrl 都是在 controls 類中的封裝。c ctrl 和 cstatusbarctrl 它們只是簡...

Excel VBA建立自己的工具欄和選單

option explicit msobartop工具欄的position type為msocontrolpopup as commandbarpopup 的選單下可以帶子選單,但是msocontrolpopup不支援圖示 type為msocontrolbutton as commandbarbut...