快速原型VB開(kāi)發(fā)教程

1、第十二章菜單和控件VB的設(shè)計(jì)環(huán)境菜單設(shè)計(jì)菜單為程序界面有機(jī)組成部分，它在程序界面上給用戶(hù)提供一種方便的給命令分組的方法，用戶(hù)使用菜單將較為容易訪(fǎng)問(wèn)這些命令。菜單的基本組成菜單標(biāo)題菜單項(xiàng)訪(fǎng)問(wèn)魄快捷鍵菜單欄編記爭(zhēng)本剪切(T)Ctrl+X復(fù)制(QCtrl+C粘貼&Ctrl+V刪除QjDel時(shí)間/且期)搜索&:選項(xiàng)遜1.I編輯菜單分隔條12-1：菜單界面的組成如圖12-1所示：VB6.0的菜單為Window窗體的有機(jī)組成部分，菜單欄一般位于窗體的標(biāo)題欄的下一行，包含一個(gè)或多個(gè)菜單標(biāo)題。當(dāng)單擊一個(gè)菜單標(biāo)題（如“工程”），相應(yīng)菜單標(biāo)題的菜單就被拉下來(lái)。菜單包含菜單項(xiàng)目的列表，菜單項(xiàng)包括命令（如“添加窗體”

2、和“添加模塊”）、分隔條、和子菜單標(biāo)題（帶有向右箭頭的菜單項(xiàng)標(biāo)題）。在程序的窗體上，菜單項(xiàng)按功能分組組織以便于操作。例如，在圖12-1中與工程有關(guān)的命令“添加窗體”，“添加用戶(hù)控件”，和“添加模塊”等都列入“工程”的菜單中。菜單項(xiàng)目可以執(zhí)行三種不同的動(dòng)作，有些菜單項(xiàng)直接執(zhí)行動(dòng)作，如圖12-1中“工程”菜單中的“移除Forml”菜單項(xiàng)，將從工程中移除Forml窗體；一些后面帶有（.）的菜單項(xiàng)彈出相應(yīng)的對(duì)話(huà)框，要求用戶(hù)提供執(zhí)行動(dòng)作所需信息。如“工程”菜單中選擇“部件”時(shí)，出現(xiàn)“部件”選擇的對(duì)話(huà)框；一些后面帶有向右箭頭的菜單項(xiàng)將下拉其子菜單，如“工程”菜單中“更多ActiveX設(shè)計(jì)器”下拉其子菜單。

3、菜單項(xiàng)中還包括訪(fǎng)問(wèn)鍵和快捷鍵，它允許使用鍵盤(pán)上的組合鍵快速啟動(dòng)菜單項(xiàng)功能。如在圖12-1中“工程（P）”，可使用訪(fǎng)問(wèn)鍵“ALT+P”選中，選中“工程”菜單后，使用訪(fǎng)問(wèn)鍵“A”啟動(dòng)“添加文件”對(duì)話(huà)框，在未選中“工程”下拉菜單時(shí)，可用快捷鍵“CTRL+D”直接啟動(dòng)“添加文件”對(duì)話(huà)框。下拉菜單中包括分隔符“”，主要是為了分隔被細(xì)分的菜單項(xiàng)。菜單編輯器上節(jié)介紹了菜單的組成，VB6.0中提供了功能強(qiáng)大的菜單設(shè)計(jì)工具一菜單編輯器，可使我們方便地設(shè)計(jì)各種菜單。如圖12-2所示：可以通過(guò)菜單、快捷按鈕、鼠標(biāo)右鍵以及快捷熱鍵“CTRL-E”來(lái)啟動(dòng)菜單編輯器”。1、菜單編輯器菜單編輯器由標(biāo)題欄、輸入選擇區(qū)、功能按

4、鈕區(qū)以及菜單項(xiàng)列表框組成。標(biāo)題欄：顯示“菜單編輯器”，“X”按鈕用于關(guān)閉菜單編輯器。輸入選擇區(qū)：用于輸入和修改用戶(hù)創(chuàng)建的菜單的名字、標(biāo)題等屬性，對(duì)菜單的屬性進(jìn)行選擇或刪除。菜單控件的兩個(gè)最重要的屬性是：標(biāo)題這是出現(xiàn)在控件上的文本。名稱(chēng)這是代碼中用來(lái)引用菜單控件的名字。功能按鈕區(qū)：用于調(diào)整各菜單項(xiàng)的前后順序、包含層次等關(guān)系，建立、刪除或插入某個(gè)菜單項(xiàng)。菜單項(xiàng)列表框：將已經(jīng)建立完成的各項(xiàng)菜單項(xiàng)以列表的形式列出，并通過(guò)某些符號(hào)表明各項(xiàng)之間的層次關(guān)系。如圖12-2和圖12-3所示：菜單項(xiàng)列表框列出當(dāng)前窗體的所有菜單控件。當(dāng)在輸入選擇區(qū)中標(biāo)題文本框中鍵入一個(gè)菜單項(xiàng)時(shí)，該項(xiàng)出現(xiàn)在菜單控件列表框中。從列表框

5、中選取一個(gè)已存在的菜單控件可以編輯該控件的屬性。例如，圖12-3中示出記事本應(yīng)用程序中“文件”菜單的各種菜單項(xiàng)。菜單項(xiàng)在菜單項(xiàng)列表框中的位置決定了該控件是菜單標(biāo)題、菜單項(xiàng)、子菜單標(biāo)題，還是子菜單項(xiàng)：位于列表框中左側(cè)平齊的菜單項(xiàng)作為菜單標(biāo)題顯示在菜單欄中。列表框中被縮進(jìn)的菜單項(xiàng)，當(dāng)單擊其前級(jí)菜單標(biāo)題時(shí)才會(huì)在該菜單上顯示。一個(gè)縮進(jìn)過(guò)的菜單項(xiàng)，如果后面還緊跟著再次縮進(jìn)的一些菜單項(xiàng)，它就成為一個(gè)子菜單的標(biāo)題。在子菜單標(biāo)題以下縮進(jìn)的各個(gè)菜單項(xiàng)，就成為該子菜單的菜單項(xiàng)。一個(gè)以連字符(-)作為它的標(biāo)題屬性的菜單項(xiàng)，作為一個(gè)分隔符條出現(xiàn)。但是，若菜單項(xiàng)是一個(gè)菜單標(biāo)題、帶有子菜單項(xiàng)、被復(fù)選或無(wú)效、或者有一個(gè)快捷

6、鍵，那么它就不能作為分隔符條。2、建立菜單項(xiàng)用菜單編輯器可以創(chuàng)建、修改和刪除菜單和菜單欄。在菜單編輯器中創(chuàng)建菜單，請(qǐng)按照以下步驟執(zhí)行：選取該窗體啟動(dòng)“菜單編輯器”在“標(biāo)題”文本框中，鍵入第一個(gè)菜單標(biāo)題，通過(guò)(&字符)設(shè)定菜單項(xiàng)的訪(fǎng)問(wèn)鍵，在菜單中，這一字符會(huì)自動(dòng)加上一條下劃線(xiàn)；菜單標(biāo)題文本顯示在菜單項(xiàng)列表框中。在“名稱(chēng)”文本框中，鍵入將用來(lái)在代碼中引用該菜單控件的名字。單擊向左或向右箭頭按鈕，改變?cè)摬藛慰丶目s進(jìn)級(jí)。設(shè)置菜單控件的其他屬性，可以在菜單編輯器中做，也可以在“屬性”窗口中做。選取“下一個(gè)”就可再建一個(gè)菜單控件?；蛘?，單擊“插入”可在現(xiàn)有的控件之間增加一個(gè)菜單控件。也可以單擊向上與向下

7、的箭頭按鈕，在現(xiàn)有菜單控件之中移動(dòng)控件。如果窗體所有的菜單控件都已創(chuàng)建，選取“確定”可關(guān)閉菜單編輯器。創(chuàng)建的菜單標(biāo)題將顯示在窗體上。拉其相應(yīng)的菜單項(xiàng)。在設(shè)計(jì)時(shí)，單擊一個(gè)菜單標(biāo)題可下3、分隔菜單項(xiàng)分隔符條作為菜單項(xiàng)間的一個(gè)水平行顯示在菜單上。在菜單項(xiàng)很多的菜單上，可以使用分隔符條將各項(xiàng)劃分成一些邏輯組。例如VB的“幫助”|幫曲1MicrosoftWord幫助址倉(cāng)目錄和索引電)第？謹(jǐn)是什爼？(T)ShiftiFlMicrosoftontheWeb(jV)關(guān)于MicrosoftWord圖12-4：VB幫助分隔菜單，使用分隔符條將其菜單項(xiàng)分成三組，如圖12-4所示。要在菜單編輯器中創(chuàng)建分隔符條，請(qǐng)按照

8、以下步驟執(zhí)行：在已有的菜單中選取“插入”，在想要分隔開(kāi)來(lái)的菜單項(xiàng)之間插入一個(gè)菜單控件。新菜單項(xiàng)縮進(jìn)到與它要隔開(kāi)的菜單項(xiàng)同級(jí)。在“標(biāo)題”文本框中鍵入一個(gè)連字符(-)。設(shè)置“名稱(chēng)”屬性。選取“確定”，關(guān)閉菜單編輯器。注意：雖然分隔符條是當(dāng)作菜單控件來(lái)創(chuàng)建的，它們卻不能響應(yīng)Click事件，而且也不能被選取。4、設(shè)定訪(fǎng)問(wèn)鍵和快捷鍵通過(guò)定義訪(fǎng)問(wèn)鍵和快捷鍵可改進(jìn)鍵盤(pán)對(duì)菜單命令的訪(fǎng)問(wèn)。訪(fǎng)問(wèn)鍵:訪(fǎng)問(wèn)鍵允許按下ALT鍵并打入一個(gè)指定字符來(lái)打開(kāi)一個(gè)菜單。一旦菜單打開(kāi)，通過(guò)按下所賦值的字符(訪(fǎng)問(wèn)鍵)可選取控件。在菜單控件的標(biāo)題中，一個(gè)指定的訪(fǎng)問(wèn)鍵表現(xiàn)為一個(gè)帶下劃線(xiàn)的字母，如圖12-4所示。要在菜單編輯器中給菜單控件

9、賦值訪(fǎng)問(wèn)鍵，請(qǐng)按照以下步驟執(zhí)行：選取要賦值訪(fǎng)問(wèn)鍵的菜單項(xiàng)。在其“標(biāo)題”框中，在要作為訪(fǎng)問(wèn)鍵字符的前面直接鍵入一個(gè)(&)字符。例如，如果圖12-2所示的“編輯”菜單中的“剪切”菜單項(xiàng)，其標(biāo)題輸入的是：剪切(&T)。注意：菜單中不能使用重復(fù)的訪(fǎng)問(wèn)鍵。或者該鍵將不起作用。快捷鍵快捷鍵按下時(shí)會(huì)立刻運(yùn)行一個(gè)菜單項(xiàng)，可以為頻繁使用的菜單項(xiàng)指定一個(gè)快捷鍵?？旖萱I的賦值包括功能鍵與控制鍵的組合，如圖12-5中的CTRL+Z鍵或CTRL+Y鍵。它們出現(xiàn)在菜單中相應(yīng)菜單項(xiàng)的右邊。對(duì)菜單項(xiàng)設(shè)置快捷鍵，按照以下步驟執(zhí)行：打開(kāi)“菜單編輯器”。選取該菜單項(xiàng)。在“快捷鍵”組合框中選取功能鍵或者鍵的組合。要?jiǎng)h除快捷鍵賦值，應(yīng)

10、選取列表頂部的(none)。注意：快捷鍵將自動(dòng)出現(xiàn)在菜單上；因此，不需要在菜單編輯器的“標(biāo)題”框中鍵入。5、菜單控件其他重要屬性菜單控件其他重要屬性如：“有效”、“復(fù)選”和“可見(jiàn)”選項(xiàng)在實(shí)際應(yīng)用中是相當(dāng)普遍的?！坝行А边x項(xiàng)用于決定菜單項(xiàng)是否有效，其中的控制命令能否執(zhí)行。該項(xiàng)選中，菜單項(xiàng)有效，否則菜單項(xiàng)無(wú)效，此時(shí)菜單項(xiàng)為灰色。此屬性也可在程序中通過(guò)菜單控件的Enable設(shè)置為False控制。如圖12-5所示的“”菜單項(xiàng)的查看電圍象a）顏色（）扌工具箱（Tj-Ctrll-T顏料盒也卜Ctrl+L狀態(tài)欄“剪切”、“復(fù)制”?！皬?fù)選”選項(xiàng)用于決定菜單項(xiàng)是否有復(fù)選標(biāo)記。該項(xiàng)選中，則菜單項(xiàng)有復(fù)選標(biāo)記，否則沒(méi)

11、有復(fù)選標(biāo)記。這也可在程序中通過(guò)設(shè)置菜單控件的Checked屬性為T(mén)rue來(lái)實(shí)現(xiàn)。如圖12-6所縮放辺全圈Etfl+F12-6:菜單復(fù)選項(xiàng)示，“工具箱”菜單項(xiàng)為復(fù)選。“可見(jiàn)”選項(xiàng)決定菜單項(xiàng)是出現(xiàn)還是隱藏。若選中，則菜單是出現(xiàn)狀態(tài)；否則為“隱藏”狀態(tài)?？稍诖a中通過(guò)設(shè)置控件的Visible屬性來(lái)設(shè)置。注意：菜單項(xiàng)中所有的子菜單項(xiàng)應(yīng)至少有一個(gè)是可見(jiàn)的，不能設(shè)為全部“隱藏”。12.1.3編寫(xiě)菜單命令當(dāng)用戶(hù)選取一個(gè)菜單項(xiàng)時(shí)，該菜單控件的Click事件出現(xiàn)。需要在該事件代碼中為每個(gè)菜單控件編寫(xiě)一個(gè)Click事件過(guò)程。除分隔符條以外的所有菜單控件（以及無(wú)效的或不可見(jiàn)的菜單控件）都能識(shí)別Click事件。在菜單

12、事件過(guò)程中編寫(xiě)的代碼與在控件任何其它事件過(guò)程中編寫(xiě)的代碼完全相同。冠ex：iiTiple文件F|新逹（2）打開(kāi)減保存&.另存為1圖1AT：例題菜単.例12.1:設(shè)計(jì)如圖12-7程序界面中的文件菜單，并編寫(xiě)相應(yīng)的命令。按照上述介紹的步驟，首先設(shè)置一個(gè)標(biāo)題為example的窗體，然后啟動(dòng)菜單編輯器進(jìn)行“文件”菜單的設(shè)計(jì)。菜單設(shè)計(jì)如圖12-8所示，其中在菜單編輯器中輸入和選擇如表12-1所示：打開(kāi)”和“退出”菜單項(xiàng)代碼設(shè)計(jì)分別如下：SubmnuFileOpen_Click()DimstrOpenFileNameAsStringfrmSDI.CMDialog1.Filename=frmSDI.CMDi

13、alog1.ShowOpenIfErr32755Then選擇Cancel.strOpenFileName=frmSDI.CMDialog1.Filename如果文件大于65K,則它不能被打開(kāi)，取消此操作IfFileLen(strOpenFileName)65000ThenMsgBox文件太大不能被打開(kāi)。ExitSubEndIfEndIfEndSubSubmnuFileClose_Click()UnloadMeEndSub表12-1：例題菜單設(shè)計(jì)的一些輸入和選擇標(biāo)題名稱(chēng)有效可見(jiàn)文件(&F)MnuFileVV新建(&N)MnuFileNewVV打開(kāi)(&0)MnuFileOpenVV存為(&S)Mn

14、uFileSaveVV另存為(&A)MnuFileSaveAsVVMnuFSepIVV退出(&X)MnuFileExitVV粘貼(1)一旦菜單標(biāo)題被選取，VisualBasic將自動(dòng)地顯示出一個(gè)菜單；但是，沒(méi)有必要為一個(gè)菜單標(biāo)題的Click事件過(guò)程編寫(xiě)代碼，除非想執(zhí)行其它操作，比如每次顯示菜單時(shí)使某些菜單項(xiàng)無(wú)效。注意：在設(shè)計(jì)時(shí)，當(dāng)關(guān)閉菜單編輯器時(shí)，所創(chuàng)建的菜單將顯示在窗體上。在窗體上選取一個(gè)菜單項(xiàng)將顯示那個(gè)菜單控件的Click事件過(guò)程。12.1.4彈出菜單全選(A)復(fù)制到(QJ,.粘貼自翻轉(zhuǎn)/旋轉(zhuǎn)拉伸f扭曲反色a)圖1A9：彈出菜單VB6.0中在菜單編輯器中設(shè)計(jì)的菜單是下拉式菜單。彈出式菜單是

15、顯示于窗體之上，獨(dú)立于菜單欄的浮動(dòng)式菜單，如圖12-7所示。彈出式菜單位置取決于鼠標(biāo)右鍵按下時(shí)指針的位置，因此，彈出式菜單又稱(chēng)為上下文菜單。在某些情況下，彈出式菜單會(huì)使系統(tǒng)功能的實(shí)現(xiàn)更加簡(jiǎn)潔和高效，系統(tǒng)的使用更加得心應(yīng)手。Widnows應(yīng)用程序的彈出式菜單一般是當(dāng)用戶(hù)在程序的窗體上點(diǎn)按鼠標(biāo)鍵時(shí)出現(xiàn)的。彈出式菜單多用于實(shí)現(xiàn)系統(tǒng)的附加或增強(qiáng)功能。彈出式菜單的內(nèi)容，可以隨點(diǎn)按鼠標(biāo)鍵的位置不同而變化。由于彈出的菜單要覆蓋屏幕的一部分，所以應(yīng)盡量縮短菜單里的文字。在VB6.0中，彈出式菜單的實(shí)現(xiàn)要用到下拉式菜單設(shè)計(jì)的技術(shù)和PopupMenu方法。具體的做法是：在菜單編輯器中設(shè)計(jì)好相應(yīng)窗體的彈出式菜單。要

16、注意的是，要彈出的菜單必須至少有一個(gè)子菜單；因而這個(gè)菜單不能有快捷鍵，并且菜單控件的Checked屬性必須是False。再把彈出式菜單的Visible屬性改為False?？梢詫⒅辽儆幸粋€(gè)菜單項(xiàng)的菜單，在運(yùn)行時(shí)作為彈出式菜單予以顯示。使用PopupMenu方法可顯示彈出式菜單。object.PopupMenumenuname,flags,x,y,boldcommandObject：調(diào)用彈出式菜單的對(duì)象名。Menuname:設(shè)置為彈出式菜單的菜單名。Flags參數(shù)：在PopupMenu方法中使用flags參數(shù)可以進(jìn)一步定義彈出式菜單的位置與性能。見(jiàn)下表12-2表12-2:Flags參數(shù)表位置參數(shù)V

17、bPopupMenuLeftAlign（缺?。┯趚位置定義了該彈出式菜單左邊界VbPopupMenuCenterAlign彈出式菜單以x位置為中心VbPopupMenuRightAlign于X位置定義了該彈出式菜單右邊界性能參數(shù)VbPopupMenuLeftButton（缺?。┦髽?biāo)左鍵單擊觸發(fā)菜單項(xiàng)時(shí)VbPopupMenuRightButton鼠標(biāo)右鍵或者左鍵單擊觸發(fā)菜單項(xiàng)Boldcommand參數(shù)：boldcommand參數(shù)指定在顯示的彈出式菜單中是否以粗體字體顯示菜單控件名稱(chēng)。彈出式菜單中只能有一個(gè)菜單控件被加粗。例12.2：當(dāng)用戶(hù)用鼠標(biāo)右鍵單擊一個(gè)窗體時(shí)，以下的代碼將例12.1中的“文件

18、”菜單mnuFile設(shè)置為彈出式菜單。用MouseUp或者M(jìn)ouseDown事件來(lái)檢測(cè)何時(shí)單擊了鼠標(biāo)右鍵，標(biāo)準(zhǔn)用法是使用MouseUp事件：PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAs_Integer,XAsSingle,YAsSingle)IfButton=2Then檢查是否單擊了鼠標(biāo)右鍵。PopupMenumnuFile把文件菜單顯示為彈出式菜單。EndIfEndSub直到菜單中被選取一項(xiàng)或者取消這個(gè)菜單時(shí)，調(diào)用PopupMenu方法后面的代碼才會(huì)運(yùn)行。注意：每次只能顯示一個(gè)彈出式菜單。在已顯示一個(gè)彈出式菜單的情況下，對(duì)后面的調(diào)用PopupM

19、enu方法將不予理睬。在一個(gè)菜單控件正活動(dòng)的任何時(shí)刻，調(diào)用PopupMenu方法均不會(huì)被理睬。若選用多組參數(shù)，可用Or操作符將它們連起來(lái)。例12.3：當(dāng)用戶(hù)單擊一個(gè)命令按鈕時(shí)，彈出邊框在窗體中心的彈出式“文件”菜單。該菜單觸發(fā)受到鼠標(biāo)右鍵或左鍵單擊的菜單項(xiàng)的Click事件。PrivateSubCommand1_Click()X變量和Y變量的尺寸。Dimx,y設(shè)置X變量和Y變量到窗體中心。x=ScaleWidth/2y=ScaleHeight/2顯示彈出式菜單。PopupMenumnuFile,vbPopupMenuCenterAlignOrvbPopupMenuRightButton,x,yE

20、ndSub常用控件在VB6.0中，控件是非常重要的部件，在窗體上使用控件實(shí)現(xiàn)應(yīng)用的各種功能，并能提高應(yīng)用程序的開(kāi)發(fā)效率。控件是以圖標(biāo)的形式存放于集成開(kāi)發(fā)環(huán)境中的工具箱中（如圖12-10所示），大致可分為三類(lèi)：內(nèi)容控件、ActiveX控件以及可插入對(duì)象。但在應(yīng)用VB6.0開(kāi)發(fā)應(yīng)用程序系統(tǒng)時(shí)，使用頻率最高的控件是VB6.0的內(nèi)部控件，在此節(jié)中我們將詳細(xì)介紹這些控件，如：按鈕、標(biāo)簽、文本框、選擇按鈕、列表框、下拉列表框、滾動(dòng)條、時(shí)鐘以及命令對(duì)話(huà)框。12.2.1命令按鈕(CommandButton)命令按鈕在外表上看起來(lái)就是一個(gè)按鈕，用于開(kāi)始、中斷或者結(jié)束一個(gè)進(jìn)程,當(dāng)命令按鈕被選取時(shí)顯示按下的形狀。1

21、、命令按鈕屬性與字體有關(guān)的常用屬性FontName顯示文本所用的字體FontBold加粗顯示所用的字體Fontltalic傾斜顯示所用的字體Fontsize顯示所用的字體大小Fontunderline下劃顯示所用的字體與位置有關(guān)的常用屬性Height設(shè)置所選對(duì)象的高度Width設(shè)置所選對(duì)象的寬度Left對(duì)象左邊緣與容器左邊緣的距離Top對(duì)象頂端與容器頂端的距離與外觀有關(guān)的常用屬性Appearance對(duì)象在運(yùn)行時(shí)是否以3D效果顯示Caption對(duì)像標(biāo)題欄中或圖像下面的文本BackColor對(duì)象中文本或圖像的背景色與行為有關(guān)的常用屬性Cancel允許用按ESC鍵取代單擊此按鈕的功能Default允

22、許用按ENTER鍵取代單擊此按鈕的功能Enabled用于設(shè)置命令按鈕的有效性Visible設(shè)置命令按鈕的可顯示性其它無(wú)歸類(lèi)的常用屬性Index控件對(duì)象在控件數(shù)組中的標(biāo)識(shí)號(hào)MousePoint鼠標(biāo)移到對(duì)象特定部分時(shí)顯示的鼠標(biāo)指針類(lèi)型Tag用來(lái)存儲(chǔ)程序中需要的額外數(shù)據(jù)說(shuō)明：Cancel屬性：此屬性設(shè)置為T(mén)rue時(shí)，可用按ESC鍵代表單擊鼠標(biāo)按鈕；設(shè)置為False時(shí)，禁止任意鍵代表單擊此按鈕的功能。默認(rèn)為False狀態(tài)。VB6.0中，一個(gè)窗體只允許有一個(gè)命令按鈕的Cancel屬性被設(shè)置為T(mén)rue的狀態(tài)。Default屬性：此屬性設(shè)置為T(mén)rue時(shí)，可以用按ENTER鍵代表單擊鼠標(biāo)按鈕；設(shè)置為False

23、時(shí)，禁止任意鍵代表單擊此按鈕的功能。默認(rèn)為False狀態(tài)。在VB6.0中，一個(gè)窗體只允許有一個(gè)命令按鈕的Default屬性被設(shè)置為T(mén)rue的狀態(tài)。Enabled屬性：設(shè)置命令按鈕的有效性，在需要暫時(shí)使命令按鈕失去作用時(shí)使用，以防止發(fā)生誤操作。設(shè)置為T(mén)rue，則命令按鈕有效；設(shè)置為False，則命令按鈕無(wú)效。Visible屬性：設(shè)置命令按鈕的可顯示性，在需要暫時(shí)使命令按鈕消失時(shí)使用，以避免誤操作。設(shè)置為T(mén)rue，則按鈕顯示；設(shè)置為False，則命令按鈕消失。此屬性與Enabled屬性結(jié)合使用，控制命令按鈕的操作。字體有關(guān)屬性：設(shè)置與字體有關(guān)的屬性，除上述介紹的屬性外，還可通過(guò)Font對(duì)象屬性設(shè)置

24、，雙擊屬性窗口中的Font屬性，這時(shí)系統(tǒng)返回字體對(duì)象即字體對(duì)話(huà)框，在進(jìn)行設(shè)置或選擇。若需在程序中設(shè)置則如下：Command1.Font.Bold=True例12.4:設(shè)計(jì)一個(gè)求和界面，當(dāng)輸入數(shù)據(jù)后，求和命令按鈕有效。2、命令按鈕事件命令按鈕事件命令按鈕能夠接受的常用事件為：Click,MouseDown,MouseUp，MouseMove，KeyPress，KeyUp和KeyDown等鼠標(biāo)鍵盤(pán)事件。注意：命令按鈕不能接受DblClick事件。常用命令按鈕事件Click單擊鼠標(biāo)左鍵時(shí)發(fā)生MouseDown當(dāng)按下鼠標(biāo)按鈕時(shí)發(fā)生MouseUp當(dāng)釋放鼠標(biāo)按鈕時(shí)發(fā)生MouseMove當(dāng)移動(dòng)鼠標(biāo)時(shí)發(fā)生Ke

25、yPress當(dāng)用戶(hù)按下和松開(kāi)一個(gè)鍵時(shí)發(fā)生KeyUp當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)松開(kāi)一個(gè)鍵時(shí)發(fā)生KeyDown當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生3、命令按鈕方法命令按鈕的常用方法有：Drag、Move、Refresh、Setfocus、Zorder。常用命令按鈕方法Drag用于控件的開(kāi)始、結(jié)束或取消拖動(dòng)操作Move用以移動(dòng)表單或控件Refresh強(qiáng)制全部重繪一個(gè)窗體或控件Setfocus將焦點(diǎn)移至指定的控件或窗體Zorder將表單或控件放直在z-順序的前端或后端例12.5:設(shè)計(jì)例12.4中的事件過(guò)程程序。PrivateSubCommand1_Click()Label2.Caption=CStr(CLn

26、g(Text1.Text)+CLng(Text2.Text)EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then是否為ENTER鍵KeyAscii=0IfText1.TextAndText2.TextThenCommand1.Enabled=TrueEndIfSendKeysTabEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenKeyAscii

27、=0IfText1.TextAndText2.TextThenCommand1.Enabled=TrueEndIfSendKeysTabEndIfEndSub12-2-2標(biāo)簽及文本框標(biāo)簽用于顯示用戶(hù)不能直接改變的文本，常與無(wú)Caption屬性的控件配合使用，如文本框。文本框用于顯示用戶(hù)輸入的、或運(yùn)行時(shí)在代碼中賦予控件的信息，有時(shí)也稱(chēng)作編輯控件。1、標(biāo)簽屬性基本上某些常用屬性與在命令按鈕的常用屬性一樣，需要加以介紹的有如下幾個(gè)屬性：ForeColor設(shè)置控件的文字或圖像的前景顏色AutoSize決定控件是否自動(dòng)改變大小以顯示其全部?jī)?nèi)容Alignment決定控件中文本的對(duì)齊方式WordWrap擴(kuò)展

28、標(biāo)簽大小的調(diào)整方式，與AutoSize配合2、標(biāo)簽事件與方法標(biāo)簽響應(yīng)鼠標(biāo)事件，支持鼠標(biāo)雙擊DblClick事件的響應(yīng)，但不響應(yīng)鍵盤(pán)事件；支持的常用方法與命令按鈕大致。3、文本框?qū)傩晕谋究虺巳缟纤龅拇蟛糠殖Ｓ脤傩酝?，還有如下的常用屬性：Text、PassWordChar、Locked、MaxLength、MutiLine、ScrollBars，但文本框無(wú)Caption屬性，常與標(biāo)簽配合使用。Text設(shè)置或返回編輯域中的文本PassWordChar用于將任何輸入字符以輸入的特定字符代替Locked設(shè)定文本框是否可編輯MaxLength限定文本框中可輸入文本的長(zhǎng)度MutiLine設(shè)置單彳丁或多彳

29、丁文本ScrollBars多行文本時(shí)，設(shè)置加入滾動(dòng)條注意：PassWordChar屬性在MutiLine二False時(shí)使用，而ScrollBars在MutiLine=True時(shí)使用。4、文本框事件與方法文本框支持鼠標(biāo)、鍵盤(pán)事件以及常見(jiàn)的方法。例12.6:標(biāo)簽AutoSize、WordWrap屬性和文本框的MutiLine屬性在標(biāo)簽中顯示“白日依山盡黃河入海流欲窮千里目更上一層樓”，標(biāo)簽的長(zhǎng)度僅能容納“白日依山盡黃河入海流”，本例如圖12-13所示，說(shuō)明在AutoSize=True時(shí)，WordWrap=false標(biāo)簽長(zhǎng)度水平擴(kuò)展，=false時(shí)垂直擴(kuò)展。同樣在文本框中，若文本框的屬性MutiLi

30、ne=false時(shí)，文本框僅在第一行顯示“白日依山盡黃河入海流”，在MutiLine=true時(shí)文本框啟動(dòng)多行顯示。如圖12-14所示：例12.7:注冊(cè)界面，當(dāng)用戶(hù)進(jìn)入應(yīng)用程序時(shí)，一般需要輸入用戶(hù)名和密碼進(jìn)行注冊(cè)。此程序需用到文本框的PassWordChar屬性。在注冊(cè)界面中，輸入密碼的文本框Text2的PassWordChar屬性域輸入”，所以在其中輸入密碼時(shí)，代之顯示“*”。該程序簡(jiǎn)易代碼如下：OptionExplicitPrivateSubCommand1_Click()IfText1.TextAndText2.TextThenIfText1.TexthhhOrText2.Text123

31、456ThenForm1.Caption=用戶(hù)名/密碼不對(duì)！請(qǐng)重輸Text1.SetFocusElseUnloadMeEndIfElseForm1.Caption=用戶(hù)名/密碼未輸全！請(qǐng)重輸IfText1.Text=ThenText1.SetFocusElseText2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub12-2-3選擇按鈕用于顯示選項(xiàng)，用戶(hù)只能在一系列選項(xiàng)中選擇一個(gè)。1、選擇按鈕屬性重要屬性如表所示，其他屬性同前所述。Caption按鈕標(biāo)題，在標(biāo)題中允許訪(fǎng)問(wèn)快捷鍵：Alt+字母Alignment決定

32、按鈕的選擇體放置在標(biāo)題的左邊(0)或右邊(1)Value決定是否選中了該選項(xiàng)(True)，系統(tǒng)缺省(False)2、選擇按鈕事件和方法常用的事件為Click事件，選擇選項(xiàng)按鈕即可激活其Click事件；其他事件和方法前于講述。選擇按鈕在具體的使用中需注意如下事項(xiàng)。、一般將多個(gè)選項(xiàng)按鈕放置在框架中組成選項(xiàng)組使用。用框架的標(biāo)題對(duì)選項(xiàng)組加以簡(jiǎn)單說(shuō)明。、選項(xiàng)按鈕的Value屬性的默認(rèn)值為False，但在運(yùn)行時(shí)，必須有一個(gè)選項(xiàng)按鈕被選中。一般設(shè)第一個(gè)選項(xiàng)按鈕為默認(rèn)選中的選項(xiàng)按鈕。例12.8:選擇界面，利用選擇按鈕進(jìn)行字體選擇，因?yàn)檫x擇按鈕為單選則將四項(xiàng)選擇分為兩組，選出兩種選擇作用于顯示字體。如圖12-1

33、6所示：默認(rèn)值為“粗體”和“斜體”。程序代碼：PrivateSubForm_Load()設(shè)置默認(rèn)為粗、斜體Option1.Value=TrueOption3.Value=TrueLabel1.Font.Bold=TrueLabel1.Font.Italic=TrueEndSubPrivateSubOption1_Click()置字體為粗體Label1.Font.Bold=TrueEndSubPrivateSubOption2_Click()置字體為細(xì)體Label1.Font.Bold=FalseEndSubPrivateSubOption3_Click()置字體為斜體Label1.Font.I

34、talic=TrueEndSubPrivateSubOption4_Click()置字體為正體Label1.Font.Italic=FalseEndSub12-2-4列表框和下拉列表框列表框顯示項(xiàng)目列表，從其中可以選擇一項(xiàng)或多項(xiàng)。若項(xiàng)目總數(shù)超過(guò)了可顯示的項(xiàng)目數(shù)，自動(dòng)添加滾動(dòng)條。1、列表框?qū)傩粤斜砜虬驳某Ｓ脤傩裕缜八?；列表框幾個(gè)重要的屬性如表所示：Columns決定框中選項(xiàng)在一列中垂直滾動(dòng)（默認(rèn)：0）,還是在多列中水平滾動(dòng)（0）Multiselect決定允許多項(xiàng)選擇，為0（默認(rèn)）：?jiǎn)雾?xiàng)選擇，為1：簡(jiǎn)單多項(xiàng)選擇（單擊、空格選擇），為2：復(fù)雜多項(xiàng)選擇（SHIFT或CTRL+單擊選擇）Lis

35、t用于訪(fǎng)問(wèn)或改變某選項(xiàng)值的數(shù)組，維數(shù)：ListCountListcount列表框中選項(xiàng)的總個(gè)數(shù)Listlndex返回當(dāng)前選中選項(xiàng)在List數(shù)組的下標(biāo)值Text顯示當(dāng)前選中的選項(xiàng)的內(nèi)容Sorted設(shè)置選項(xiàng)是否按升序或大小序排列2、列表框事件和方法列表框能使用常用的鼠標(biāo)、鍵盤(pán)事件，并支持如下三種方法:AddItem向列表框添加選項(xiàng)，對(duì)象.AddItem內(nèi)容，索引值RemoveItem從列表框刪除選項(xiàng)，對(duì)象.RemoveItem索引值Clear清除全部選項(xiàng)，對(duì)象.Clear例12.9：列表框常用屬性和方法舉例，設(shè)計(jì)一個(gè)程序，輸入選項(xiàng)并添加到列表框中，顯示在列表框中所選中的選項(xiàng)，提供刪除指定選項(xiàng)功能。

36、4因諸輸入:Ji岳”列表框刪除選項(xiàng)退出I寶中的選項(xiàng)為:寶中的選項(xiàng)為：qqqqqq圖12-17：列表框厘性方法舉例程序界面如圖12-17所示，代碼如下：PrivateSubCommand1_Click()List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()IfList1.ListIndex=-1ThenLabel1.Caption=沒(méi)有選中或無(wú)選項(xiàng)！ElseList1.RemoveItemList1.ListIndexEndIfEndSubPrivateSubList1_Click()Label1.Caption=List1.TextEn

37、dSubPrivateSubText1_Change()IfText1.Text=ThenCommand1.Enabled=FalseElseCommand1.Enabled=TrueEndIfEndSub12-2-5滾動(dòng)條為不具備滾動(dòng)條的控件提供滾動(dòng)功能。一般有水平和垂直兩種滾動(dòng)條，具體的結(jié)構(gòu)和使用方法相同。以下以水平滾動(dòng)條為例講解滾動(dòng)條。滾動(dòng)條的結(jié)構(gòu)為：兩端各有一個(gè)滾動(dòng)箭頭，兩個(gè)滾動(dòng)箭頭中間是滾動(dòng)條部分，在滾動(dòng)條上有一個(gè)能夠移動(dòng)的小方塊，叫做滾動(dòng)框。1、滾動(dòng)條屬性滾動(dòng)條包含女口前所述的常用屬性，滾動(dòng)條幾個(gè)重要的屬性如表所示:Value表示滾動(dòng)框的當(dāng)前位置的值，改變值可改變滾動(dòng)框的位置。默認(rèn)

38、值為0滾動(dòng)框總是位于最左端。Min滾動(dòng)框移動(dòng)到最小位置數(shù)值。系統(tǒng)設(shè)置此數(shù)為0滾動(dòng)框在滾動(dòng)條的最左端時(shí)，Value值為0。Max滾動(dòng)框移動(dòng)到最大位置數(shù)值。系統(tǒng)設(shè)此數(shù)為32767,滾動(dòng)框在最右端時(shí)，Value值為32767。Value屬性的數(shù)值變化范圍為032767。SmallChange單擊滾動(dòng)條兩端的箭頭時(shí)，滾動(dòng)框移動(dòng)的數(shù)值，默認(rèn)值為1,可以修改。LargeChange單擊滾動(dòng)條上的滾動(dòng)框時(shí)，滾動(dòng)框移動(dòng)的數(shù)值。默認(rèn)值為1,可以修改2、滾動(dòng)條屬性和方法滾動(dòng)條可使用常用的方法和鍵盤(pán)事件，但不能使用鼠標(biāo)事件，其他的滾動(dòng)條的重要事件如表所示：Scroll在滾動(dòng)框移動(dòng)時(shí)被激活Change在滾動(dòng)框移動(dòng)后或

39、通過(guò)代碼改變Value值被激活例12.10：注意滾動(dòng)條兩個(gè)重要的事件Scroll、Change的區(qū)別，此列中若發(fā)生Change事件則用藍(lán)色顯示Value值，若發(fā)生Scroll事件則用紅色顯示Value值。執(zhí)行程序：按住箭頭或滾動(dòng)條，觸發(fā)Change事件，顯示藍(lán)字；拖動(dòng)滾動(dòng)框不釋放，則觸發(fā)Scroll事件，顯示紅字。程序清單：OptionExplicitPrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=1000HScroll1.LargeChange=100HScroll1.SmallChange=1EndSubPrivateSubHScroll1_

40、Change()Label1.ForeColor=&HFF0000顯示藍(lán)色Label1.Caption=Format(HScroll1.Value)EndSubPrivateSubHScroll1_Scroll()顯示紅色Label1.ForeColor=&HFF&Label1.Caption=Format(HScroll1.Value)EndSub12-2-6計(jì)時(shí)器控件通過(guò)定時(shí)引發(fā)的Timer事件，Timer控件可以有規(guī)律地隔一段時(shí)間執(zhí)行一次代碼。注意：。因?yàn)橛?jì)時(shí)器在一秒鐘內(nèi)最多產(chǎn)生18個(gè)事件，所以?xún)蓚€(gè)事件之間的時(shí)間間隔精確度不超過(guò)1/18秒。1、計(jì)時(shí)器屬性計(jì)時(shí)器屬性較少，只有Name、En

41、abled、Index、Interval、Left、Tag和Top幾個(gè)屬性。其中Interval屬性：用于設(shè)置兩個(gè)計(jì)時(shí)器事件之間的時(shí)間間隔。以毫秒為單位，范圍是065535毫秒，系統(tǒng)初始值設(shè)置為0。2、計(jì)時(shí)器事件計(jì)時(shí)器可以響應(yīng)計(jì)時(shí)器事件，即Timer事件。12-2-7CommandDialog控件CommonDialog控件提供一組標(biāo)準(zhǔn)的操作對(duì)話(huà)框，打開(kāi)和保存文件、設(shè)置打印選項(xiàng)、及選擇顏色和字體等操作。在程序中使用CommonDialog控件，將其添加到窗體并設(shè)置屬性。所顯示的對(duì)話(huà)框由控件的方法確定。下面介紹CommonDialog控件屬性和方法。1、CommonDialog屬性除了常用的屬性

42、外，CommonDialog自有的一些重要的屬性如表所示:Filter在對(duì)話(huà)框的類(lèi)型列表框中所顯示的過(guò)濾器，object.Filter=descriptionlfilter1|description2filter2.,例如：Text(*.txt)|*.txtFilterIndex“打開(kāi)”或“另存為”對(duì)話(huà)框中一個(gè)缺省的過(guò)濾器InitDir用于指定初始的目錄，如果此屬性未指定，則使用當(dāng)前目錄CancerError設(shè)置當(dāng)選取“取消”按鈕時(shí)是否出錯(cuò)2、CommonDialog方法如表所示：方法所顯示的對(duì)話(huà)框ShowOpen顯示“打開(kāi)”對(duì)話(huà)框ShowSave顯示“另存為”對(duì)話(huà)框ShowColor顯示“顏

43、色”對(duì)話(huà)框ShowFont顯示“字體”對(duì)話(huà)框ShowPrinter顯示“打印”或“打印選項(xiàng)”對(duì)話(huà)框ShowHelp調(diào)用Windows幫助引擎例12.11：設(shè)計(jì)使用CommonDialog控件提供的對(duì)話(huà)框的程序。由于CommonDialog控件不是VB6.0固有的控件，要使用常用對(duì)話(huà)框控件必須裝入控件。通過(guò)“工程”菜單找到“部件”菜單項(xiàng)打開(kāi)部件對(duì)話(huà)框，找到MicrosoftCommonDialogControl6.0，進(jìn)行復(fù)選返回。這時(shí)就可在工具箱看見(jiàn)CommonDialog控件的圖標(biāo)。程序界面上命令按鈕Command1-Command4分別對(duì)應(yīng)“打開(kāi)”、“另存為”、“顏色”和“字體”按鈕；設(shè)置

44、標(biāo)簽label1用以顯示所選中的文件名、色彩和字體；CommonDialog控件的CancerError設(shè)為False。其他的在程序中設(shè)置。程序清單：PrivateSubCommand1_Click()CDlg.Filter=Text|*.txtCDlg.ShowOpenLabel1.Caption=CDlg.FileNameEndSubPrivateSubCommand2_Click()CDlg.Filter=Text|*.txtCDlg.ShowSaveLabel1.Caption=CDlg.FileNameEndSubPrivateSubCommand3_Click()CDlg.Font

45、Bold=Label1.FontBoldCDlg.FontItalic=Label1.FontItalicCDlg.FontName=Label1.FontNameCDlg.FontSize=Label1.FontSizeCDlg.Flags=cdlCFScreenFontsCDlg.ShowFontLabel1.FontBold=CDlg.FontBoldLabel1.FontItalic=CDlg.FontItalicLabel1.FontName=CDlg.FontNameLabel1.FontSize=CDlg.FontSizeEndSubPrivateSubCommand4_Clic

46、k()CDlg.Color=Label1.ForeColorCDlg.ShowColorLabel1.ForeColor=CDlg.ColorEndSubPrivateSubCommand5_Click()UnloadMeEndSub第十三章多文檔界面(MDI)13.1界面樣式Windows的應(yīng)用程序界面樣式主要有兩種：?jiǎn)挝臋n界面(SDI)和多文檔界面(MDI)。單文檔界面(SDI)的應(yīng)用只允許在一個(gè)實(shí)例中打開(kāi)和處理單個(gè)文檔，如：Windows中的WordPad(記事本)應(yīng)用程序；而多文檔界面(MDI)應(yīng)用則允許在單個(gè)實(shí)例中打開(kāi)多個(gè)文檔窗體，象表格程序Excel。13-2MDI窗體的創(chuàng)建多文檔

47、界面(MDI)應(yīng)用程序允許用戶(hù)同時(shí)顯示多個(gè)文檔，每個(gè)文檔顯示在自己的窗口中。文檔或子窗口被包含在父窗口中，父窗口為應(yīng)用程序中所有的子窗口提供工作空間。例如：MicrosoftExcel允許創(chuàng)建并顯示不同樣式的多文檔窗口。每個(gè)子窗口都被限制在Excel父窗口的區(qū)域之內(nèi)。當(dāng)最小化Excel時(shí)，所有的文檔窗口也被最小化，只有父窗口的圖標(biāo)顯示在任務(wù)欄中。創(chuàng)建MDI應(yīng)用程序步驟：工程1CT程1)Forml(Form1)Form2(Form2)圖13-1:MD：工程I程-工程iIB1=1|QMDIForml(MEIFormO子窗體就是其MDIChild屬性設(shè)置為T(mén)rue的普通窗體。一個(gè)應(yīng)用程序可以包含許多

48、相似或者不同樣式的MDI子窗體。1、創(chuàng)建MDI窗體，從“工程”菜單中選取“添加MDI窗體”。見(jiàn)圖13-1中MDIForm1窗體就是MDI窗體。注意：一個(gè)應(yīng)用程序只能有一個(gè)MDI窗體。2、創(chuàng)建應(yīng)用程序的子窗體，創(chuàng)建一個(gè)MDI子窗體就是將創(chuàng)建的普通新窗體(或者打開(kāi)一個(gè)存在的窗體)的MDIChild屬性設(shè)為T(mén)rue。見(jiàn)圖13-1中窗體Forml和Form2就是MDI之窗體。這兩個(gè)窗體的屬性：MDIChild設(shè)置True。例13.1：MDI簡(jiǎn)易文本編輯器。提供文本文檔的新建等功能，加入“窗口”菜單，包括窗體排列等菜單項(xiàng)，提供文檔的編輯彈出菜單等。設(shè)計(jì)步驟：1、構(gòu)造窗體：在VB中，按步驟創(chuàng)建一個(gè)MDI窗

49、體(MDIForm1)和一個(gè)標(biāo)準(zhǔn)窗體(Forml)。創(chuàng)建“文件”菜單。2、本程序中，所有的MDI子窗體都為簡(jiǎn)易編輯器；因此將Forml窗體創(chuàng)建一個(gè)文本框(Textl),創(chuàng)建“文件”和“窗口”菜單。并將窗體的MDIChild屬性置True。3、MDI子窗體的編程：新建子窗體時(shí)，創(chuàng)建MDI子窗體的實(shí)例，關(guān)閉應(yīng)用或MDI子窗體時(shí)，檢測(cè)內(nèi)容是否變動(dòng)以便存入。圖13-2MDI簡(jiǎn)易文本編輯器程序清單：1、MDI簡(jiǎn)易文本編輯器應(yīng)用程序示例主窗體應(yīng)用程序首先啟動(dòng)MDI主窗體的Load事件；在這事件過(guò)程中，設(shè)定工作目錄，啟動(dòng)和初始化MDI子窗體。代碼中使用MDI子窗體對(duì)象的動(dòng)態(tài)數(shù)組來(lái)加載MDI子窗體，見(jiàn)模塊定義

50、：Document()AsNewfrmNotePad；初始化時(shí)設(shè)置MDI子窗體的狀態(tài)，F(xiàn)State(1).Dirty=False，此數(shù)組在模塊定義如下：TypeFormStateDeletedAsIntegerDirtyAsIntegerEndTypePublicFState()AsFormState這數(shù)組變量中Deleted標(biāo)記編輯器中文本是否被刪除，Dirty標(biāo)記子窗體的文本編輯器文本是否被改動(dòng)。PrivateSubMDIForm_Load()ShowChDirApp.PathReDimDocument(1)ReDimFState(1)Document(1).Tag=1FState(1).Dirty=FalseDocument(1).Caption=無(wú)標(biāo)題：1Document(1).ShowEndSub2、“文件”菜單“新建”菜單項(xiàng)的編程菜單中“新建”Click事件過(guò)程將建立一個(gè)新的MDI子窗體，與Load過(guò)程一樣，進(jìn)行初始化和顯示。與Load過(guò)程不一樣的是，在Load過(guò)程中啟動(dòng)Document()數(shù)組的首元素，在應(yīng)用系統(tǒng)應(yīng)用時(shí)，伴隨MDI子窗體的創(chuàng)建和刪除，Document()數(shù)組中可能存在空元素，因此，在新建的Click過(guò)程中要首先檢測(cè)有無(wú)空元素，產(chǎn)生索引號(hào)，這由模塊中函數(shù)FindFreeIndex()完成，然