第二章VB程序的界面設(shè)計(jì)

第2章VB程序的界面設(shè)計(jì)&2.1窗體對(duì)象打開VB時(shí)或新建一個(gè)工程時(shí)，VB都自動(dòng)創(chuàng)建了一個(gè)窗體對(duì)象。我們可以根據(jù)需要?jiǎng)?chuàng)建多個(gè)窗體對(duì)象。方法1：在工程菜單中選擇添加窗體。方法2：在工具欄中選擇添加窗體。方法3：在工程資源管理器窗口中用鼠標(biāo) 右健單擊窗體，鼠標(biāo)指針指向添 加，選擇添加窗體。一、窗體對(duì)象的創(chuàng)建二、窗體對(duì)象的屬性Name(名稱)：系統(tǒng)自動(dòng)會(huì)為每個(gè)窗體命名為 Form1、Form2、Form3、……。 當(dāng)我們要改它們的名稱時(shí)(盡量 改)，建議用窗體的實(shí)際意義加前 綴Frm組成。如一個(gè)啟動(dòng)窗體， 它的名稱可以用FrmStartUp命名。Caption屬性：窗體標(biāo)題。它是出現(xiàn)在標(biāo)題欄中 的文字。BackColor屬性：窗體的背景色。ForeColor屬性：窗體的前景色。BorderStyle:窗體邊框風(fēng)格。Enabled:活動(dòng)屬性。決定對(duì)象是否能被事件激活。 缺省值為“True”,表示能被事件激活。 “False”表示不能被事件激活I(lǐng)con:圖標(biāo)屬性。設(shè)置運(yùn)行時(shí)窗體最小化時(shí)所顯 示的圖標(biāo)。或在標(biāo)題欄上所看到的圖標(biāo)。Left、Top、Height、Width:決定窗體的位置與 大小。Font:設(shè)置窗體所顯示文字的字體、字型和字號(hào)。三、窗體對(duì)象的方法Hide:隱藏Move:移動(dòng)Print:打印PrintForm:打印窗體Refresh:刷新Show:顯示四、窗體對(duì)象的事件Click:單擊事件DblClick:雙擊事件Load:裝載事件Resize:窗體被改變大小時(shí)，觸發(fā)本事件。Activate:窗體變?yōu)楫?dāng)前窗口時(shí)，觸發(fā)本事件。Deactivate:窗體失去當(dāng)前窗口時(shí)，觸發(fā)本事件。五、設(shè)置對(duì)象的屬性和方法格式：選中對(duì)象后直接在屬性窗口中為屬性設(shè)置值方法1：方法2：用語(yǔ)句設(shè)置屬性值Object.Property=Expression對(duì)象名屬性名稱設(shè)置新值設(shè)置屬性：例：?jiǎn)螕舸绑w時(shí)，窗體上顯示“歡迎使用Visual BASIC”，窗體的標(biāo)題欄上顯示“實(shí)驗(yàn)1”使用方法的格式：Object.Method[Arg1,Arge2,...]對(duì)象名方法名參數(shù)答：OptionExplicit打開代碼窗口，編寫如下程序PrivateSubForm_Click()Form1.FontSize=22Form1.Font="黑體"Form1.Print"歡迎使用VisualBasic"Form1.Caption=“實(shí)驗(yàn)1"EndSub六、窗體的顯示、隱藏使用Show與Hide方法可以顯示或隱藏窗體例：創(chuàng)建二個(gè)窗體，在窗體1上建三個(gè)按鈕，窗 體對(duì)象界面如下窗體1的屬性設(shè)置如下：Name：FrmStartUpCaption:窗體1一個(gè)按鈕的屬性設(shè)置如下：Name：CmdOpenCaption:顯示窗體2另一個(gè)按鈕的屬性設(shè)置如下：Name：CmdCloseCaption:隱藏窗體2第三個(gè)按鈕的屬性設(shè)置如下：Name：CmdExitCaption:退出窗體2的屬性設(shè)置如下：Name：FrmWorkCaption:窗體2編寫程序代碼：PrivateSubCmdOpen_Click()FrmWork.ShowEndSubPrivateSubCmdClose_Click()FrmWork.HideEndSubPrivateSubCmdExit_Click()EndEndSub演示程序七、窗體的Print方法Print方法用于將文本輸出到窗體上。Print方法的格式為：[Object.]Printp1<s>p2<s>...輸出項(xiàng)?？梢允浅Ａ?；變量；表達(dá)式等輸出項(xiàng)之間的分隔符，可以是逗號(hào)或分號(hào)1、輸出布局：a、標(biāo)準(zhǔn)格式(也叫分區(qū)格式)---- 用“,”作為輸出項(xiàng)之間的分隔 符，每個(gè)輸出項(xiàng)占據(jù)一個(gè)顯 示區(qū)(一個(gè)顯示區(qū)占14個(gè)字符 位置)。b、緊湊格式(也叫自由格式)----用“;”作為輸出 項(xiàng)之間的分隔符，每個(gè)分號(hào)都使 后面的一個(gè)輸出項(xiàng)緊靠前面的輸 出項(xiàng)。2、數(shù)值的組成符號(hào)位數(shù)值部分一個(gè)空格例：Print5[[5例：Print-5[-5輸出為：輸出為：3、續(xù)行當(dāng)一個(gè)Print語(yǔ)句的末尾是一個(gè)“,”或“;”時(shí)，表示下一個(gè)Print語(yǔ)句中的輸出項(xiàng)應(yīng)接在本語(yǔ)句輸出項(xiàng)的后面輸出。4、空行當(dāng)一個(gè)Print語(yǔ)句無(wú)輸出項(xiàng)時(shí)，將空一行。例： Print“12345678901234” Print1,2;3 Print Print“a”;“b”; Print“c”,“d”&3.2命令按鈕控件命令按鈕(CommandButton)在工具箱中的按鈕工具命令按鈕的屬性：1、名稱：缺省值為Command1、 Command2、……建議以 按鈕的實(shí)際意義加前綴 Cmd 組成。例：兩個(gè)按鈕，一個(gè)是加1，一個(gè)是退出。所以 兩個(gè)按鈕的名稱分別命名為CmdAdd1,CmdExitOptionExplicitPrivateSubCmdAdd1_Click()StaticxAsIntegerx=x+1Text1.Text=xEndSubPrivateSubCmdExit_Click()EndEndSub窗體模塊的對(duì)象為：窗體模塊的代碼為：2、Caption屬性：缺省值為Command1、 Command2、……它是按鈕上的標(biāo)題 顯示文字，建議以按鈕的實(shí)際意義說(shuō) 明組成。3、Enabled屬性：值為True或False，設(shè)置或返 回一個(gè)值，用來(lái)確定按鈕是否能夠?qū)?用戶產(chǎn)生的事件作出反應(yīng)。例：在一個(gè)窗體上建立一個(gè)加1按鈕，一個(gè)減1按 鈕，在按加1按鈕時(shí)(結(jié)果在0~10之間),不允 許按減1按鈕，在按減1按鈕時(shí)(結(jié)果在10~0之 間)不允許按加1按鈕。OptionExplicitDimxAsIntegerPrivateSubCmdAdd1_Click()x=x+1Text1.Text=xIfx>=10ThenCmdAdd1.Enabled=FalseCmdSub1.Enabled=TrueEndIfEndSubPrivateSubCmdExit_Click()EndEndSubPrivateSubCmdSub1_Click()x=x-1Text1.Text=xIfx<=0ThenCmdAdd1.Enabled=TrueCmdSub1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()CmdAdd1.Enabled=TrueCmdSub1.Enabled=FalseEndSub4、Visible屬性：值為True或False，決定按鈕是 否可見。5、Cancel屬性：值為True或False，決定按鈕是 否是取消按鈕。即Cancel屬性設(shè)置 為True時(shí)，表示按鍵盤上的Esc鍵就 是單擊此按鈕。6、Default屬性：值為True或False，決定按鈕是 否是Enter鍵。即Default屬性設(shè)置 為True時(shí)，表示按鍵盤上的Enter鍵 就是單擊此按鈕。7、TabIndex屬性：設(shè)置或返回父窗體中按鈕對(duì) 象的Tab順序。(值為0~n-1，n為窗體 中控件對(duì)象的個(gè)數(shù))8、TabStop屬性：值為True、False。指出用戶 是否可以使用Tab鍵來(lái)選定對(duì)象。 TabStop設(shè)置為True,表示可以選定對(duì)象9、創(chuàng)建鍵盤快捷方式：利用Caption屬性，在標(biāo)題 顯示文字某個(gè)字符前加連字符(&)，這時(shí) 可看見該字符出現(xiàn)一個(gè)下劃線，運(yùn)行時(shí)， 只要按Alt+帶下劃線字符，就能選定該 按鈕。10、Value屬性：在設(shè)計(jì)時(shí)不可用。True表示已選 擇該按鈕；False（缺省值）表示沒(méi)有選 擇該按鈕。如果在代碼中設(shè)置Value屬 性值為True，表示激活該按鈕的Click事 件。11、選定命令按鈕： A、用鼠標(biāo)單擊按鈕。 B、按Tab鍵，將焦點(diǎn)移到該按鈕上，然后按 Enter鍵或空格鍵。 C、若按鈕有快捷方式，則只要按快捷鍵即可 (Alt+帶下劃線字符)。 D、若按鈕是默認(rèn)命令按鈕，則只要Enter鍵 即可。 E、若按鈕是默認(rèn)取消按鈕，則只要Esc鍵 即可。&2-3標(biāo)簽(Label)在工具箱中的標(biāo)簽工具標(biāo)簽的屬性：1、名稱：缺省值為L(zhǎng)abel1、 Label2、……。建議以 標(biāo)簽的實(shí)際意義加前綴 Lbl組成。2、Caption屬性：缺省值為L(zhǎng)abel1、 Label2、……。設(shè)置或返 回標(biāo)題欄的文本。3、Alignment屬性：缺省值為0-Left Justify。設(shè)置或返回標(biāo)簽標(biāo) 題欄文本的對(duì)齊方式。0-LeftJustify表示左對(duì)齊1-RightJustify表示中對(duì)齊2-Center表示右對(duì)齊4、AutoSize屬性：缺省值為False。設(shè)置標(biāo) 簽是否能水平自動(dòng)調(diào)整大小以顯 示所有的內(nèi)容。5、WordWrap屬性：缺省值為False。設(shè)置 標(biāo)簽是否能垂直自動(dòng)調(diào)整大小以 顯示所有的內(nèi)容。6、UseMnemonic屬性：缺省值為True。設(shè) 置返回標(biāo)簽的Caption屬性中能否 出現(xiàn)下劃線。 True-------在&字符后的字符出 現(xiàn)下劃線。 False-------在&字符后的字符不出 現(xiàn)下劃線，&顯示在標(biāo)題欄中&2-4文本框(TextBox)在工具箱中的文本框工具文本框的屬性：文本框用來(lái)輸入或顯示(輸出)文字信息1、名稱：缺省值為Text1、Text2、……。 建議以文本框的實(shí)際意義加前綴txt 組成。2、Text屬性：輸入或輸出到文本框的文字。 缺省時(shí)，可輸入2048個(gè)字符。若將 MultiLine屬性設(shè)置成True，則可 輸入多達(dá)32K的字符。3、MultiLine屬性：缺省值為False。決定文 本框是否允許接受多行文本。4、ScrollBar屬性：缺省值為0-Nore。決定文 本框是否加上水平滾動(dòng)條或垂直滾 動(dòng)條。例：在文本框中輸入多排文字PrivateSubCommand1_Click()Text1="VisualBasic"&_vbCrLf&"123456"EndSub創(chuàng)建如下用戶界面：將文本框的MultiLine屬性設(shè)置為True編寫如下程序：5、Alignment屬性：在MultiLine屬性為True 時(shí)，此屬性起作用。 0-LiftJustify 1-RightJustify 2-Center6、PasswordChar屬性：創(chuàng)建密碼文本框。在 此屬性中加一個(gè)“*”,則運(yùn)行時(shí)此文 本框中無(wú)論輸入什么字符，都只顯 示*號(hào)。例：創(chuàng)建一個(gè)密碼窗口。窗體模塊的對(duì)象為：窗體模塊的代碼為：OptionExplicitPrivateSubCmdExit_Click()EndEndSubPrivateSubCmdOK_Click()

IfTxtPass.Text="123456"ThenFrmPassWord.HideFrmMain.Show

ElseMsgBox("密碼錯(cuò)誤，請(qǐng)重輸入")TxtPass.SetFocusTxtPass=""ExitSub

EndIfEndSub7、MaxLength屬性：設(shè)置文本框中最大可以 輸入的字符數(shù)。若超過(guò)則系統(tǒng)發(fā)出 嘟嘟聲。 缺省值是0------輸入的字符取決于 系統(tǒng)對(duì)內(nèi)存所建 立的值。8、Locked屬性：決定文本框中的文本是否可 編輯。 缺省值為False-----文本可編輯9、取消文本框中的擊鍵值 對(duì)于文本框中所輸入字符，可以利 用KeyPress事件加以過(guò)濾或限制。例：計(jì)算兩個(gè)數(shù)的平均數(shù)窗體模塊的對(duì)象為：Txtnum1Txtnum2TxtResult三個(gè)文本框的名字分別為：OptionExplicitPrivateSubTxtnum1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表長(zhǎng)度為0的字符串BeepEndIfEndSubPrivateSubCmdOk_Click()TxtResult=(Val(TxtNum1)+Val(TxtNum2))/2EndSubPrivateSubTxtnum2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表長(zhǎng)度為0的字符串BeepEndIfEndSub窗體模塊的代碼為：&2-5復(fù)選框(CheckBox)在工具箱中的復(fù)選框工具復(fù)選框的屬性：復(fù)選框用來(lái)在多個(gè)選項(xiàng)中選擇一個(gè)或多個(gè)選項(xiàng)。1、名稱：缺省值為Check1、 Check2、……。建議以文本 框的實(shí)際意義加前綴chk 組成。2、Value屬性：是默認(rèn)屬性，決定該復(fù)選框 是否被選中 0---Unchecked(缺省值) 沒(méi)選中 1---Checked 選中 2---Grayed 暗淡其中 0可用VbUnChecked代替 1可用VbChecked代替 2可用VbGrayed代替例：調(diào)查體育愛好OptionExplicitPrivateSubCommand1_Click()Dimx1,x2,x3AsString

IfCheck1=vbCheckedThenx1=Check1.Caption

Elsex1=""

EndIf

IfCheck2=vbCheckedThenx2=Check2.Caption

Elsex2=""

EndIf

IfCheck3=vbCheckedThenx3=Check3.Caption

Elsex3=""

EndIfLabel2.Caption=""Label2.Caption=Text1+"愛好"+x1+x2+x3EndSub&2-6選項(xiàng)按鈕(OptionButton)在工具箱中的選項(xiàng)按鈕工具(單選項(xiàng))選項(xiàng)按鈕用來(lái)在多個(gè)選項(xiàng)中選擇一個(gè)選項(xiàng)。創(chuàng)建選項(xiàng)按鈕組：要將選項(xiàng)按鈕分組，只要將選項(xiàng)按鈕創(chuàng)建在控件容器中。例：在窗體上的選項(xiàng)按鈕都是一組。在框架中的選項(xiàng)按鈕也是一組。在同一組選項(xiàng)按鈕中只能選擇一個(gè)選項(xiàng)。選項(xiàng)按鈕的屬性：1、名稱：缺省值為Option1、Option2、……。 建議以選項(xiàng)按鈕的實(shí)際意義加前綴 Opt組成。2、缺省屬性：為Value。值為 True------選中 False-----沒(méi)選中例：調(diào)查體育愛好OptionExplicitPrivateSubCommand1_Click()Dimx1,x2,x3,xbAsString

IfText1=""ThenMsgBox("請(qǐng)輸入姓名"):Text1.SetFocus:ExitSub

IfCheck1=vbCheckedThen

x1=Check1.Caption

Else

x1=""

EndIf

IfCheck2=vbCheckedThenx2=Check2.Caption

Else

x2=""

EndIf

IfCheck3=vbCheckedThenx3=Check3.Caption

Elsex3=""

EndIfIfOption1=TrueThenxb=Option1.CaptionElseIfOption2=TrueThenxb=Option2.CaptionEndIfLabel2.Caption=""Label2.Caption=Text1+xb+"愛好"+x1+x2+x3EndSub&2-7框架(Frame)在工具箱中的框架工具框架用來(lái)為一些控件提供可標(biāo)識(shí)的分組。在框架中繪制控件1、先繪制框架，然后在框架中繪制 其它控件。這時(shí)移動(dòng)框架，框架 中的其它控件一起移動(dòng)。2、先繪制框架，如果在框架外繪制 其它控件，然后移入框架，這時(shí) 框架與框架內(nèi)的其它控件將分別 移動(dòng)。&2-8列表框(ListBox)在工具箱中的列表框工具列表框用來(lái)為用戶提供選項(xiàng)列表。在Windows95/98/2000中出現(xiàn)的列表框列表框的屬性：1、名稱：缺省值為L(zhǎng)ist1、List2、……。建議以 列表框的實(shí)際意義加前綴Lst組成。2、Text屬性：它是默認(rèn)屬性，表示列 表框中 選中的列表項(xiàng)目。例：圖示列表框中，當(dāng)我們選中第二行時(shí)，列表 框的Text屬性就是222PrivateSubList1_Click()PrintList1.TextEndSub3、List屬性：列表框中的內(nèi)容實(shí)際上是一個(gè) 字符串?dāng)?shù)組中的內(nèi)容，數(shù)組的每一項(xiàng)對(duì)應(yīng)列表框中的每一行內(nèi)容。所以List屬性的語(yǔ)法格式為 Object.List(Index)[=String] Index為0---列表框中表項(xiàng)數(shù)量-1代表數(shù)組中的下標(biāo)例：Object.List(Index)選中列表項(xiàng)中下標(biāo)指示的那一項(xiàng)的內(nèi)容PrivateSubList1_Click()PrintList1.List(1)EndSub例：Object.List(Index)[=String]直接給列表項(xiàng)中下標(biāo)指示的那一項(xiàng)賦新值PrivateSubList1_Click()List1.List(1)="VB"EndSub注意：如果下標(biāo)(Index)超出范圍將出現(xiàn)下列錯(cuò)誤。OptionExplicitPrivateSubCommand1_Click()StaticiAsIntegerIfi>List1.ListCount-1Theni=0EndIfText1=List1.List(i)i=i+1EndSubPrivateSubForm_Load()List1.AddItem“輕化1201"List1.AddItem“輕化1202"List1.AddItem“輕化1203"EndSub例：一個(gè)列表框中有三行內(nèi)容，按下按鈕在 文本框中輪流顯示列表框中的表項(xiàng)4、ListCount屬性：該屬性計(jì)算出列表框中 表項(xiàng)的數(shù)量。5、ListIndex屬性：該屬性返回或設(shè)置控件中 當(dāng)前選擇項(xiàng)目的索引(下標(biāo)),在設(shè)計(jì) 時(shí)不可用。object.ListIndex[=index]語(yǔ)法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為0---ListCount-1-1表示沒(méi)選中例：object.ListIndex返回一個(gè)值，它是被選中的表項(xiàng)的下標(biāo)。范圍在0---ListCount-1之間PrivateSubList1_Click()PrintList1.ListIndexEndSub例：object.ListIndex=Index設(shè)置一個(gè)值，直接選中數(shù)組下標(biāo)所表示的列表框表項(xiàng)。PrivateSubList1_Click()List1.ListIndex=0EndSub注意：如果下標(biāo)(Index)超出范圍將出現(xiàn)錯(cuò)誤。PrivateSubList1_Click()List1.ListIndex=5EndSub例：錯(cuò)誤信息為：OptionExplicitPrivateSubForm_Load()List1.AddItem"一年級(jí)"List1.AddItem"二年級(jí)"List1.AddItem"三年級(jí)"List1.AddItem"四年級(jí)"List1.AddItem"五年級(jí)"EndSubPrivateSubList1_DblClick()PrintList1.ListIndexPrintList1.TextPrintList1.List(List1.ListIndex)List1.ListIndex=0EndSub例：理解ListIndex 屬性6、Selected屬性：該屬性返回或設(shè)置列表框 控件中的一個(gè)項(xiàng)的選擇狀態(tài),在設(shè)計(jì) 時(shí)不可用。Object.Selected(index)[=Boolean]語(yǔ)法格式：控件中選擇項(xiàng)目的下標(biāo)True或False例：Object.Selected(index)返回True或False表示下標(biāo)指示的那個(gè)項(xiàng)有沒(méi)有被選中例：Object.Selected(index)=Boolean設(shè)置True或False，直接選中下標(biāo)指示的那個(gè)項(xiàng)；或直接取消下標(biāo)指示的那個(gè)項(xiàng)。7、MultiSelect屬性：該屬性返回或設(shè)置一個(gè)值， 用來(lái)表示列表框中的項(xiàng)能否進(jìn)行復(fù)選。0 (缺省值)不允許復(fù)選。1 簡(jiǎn)單復(fù)選。即用鼠標(biāo)單擊或空格鍵 進(jìn)行選中或取消。2 擴(kuò)展復(fù)選。用鼠標(biāo)配合Shift或Ctrl鍵進(jìn) 行選擇。方法與Windows98中的選擇一 樣。二、列表框的事件：列表框的常用事件為Click和DblClickClick------表示單擊列表框中的某一項(xiàng)DblClick------表示雙擊列表框中的某一項(xiàng)三、列表框的方法：1、AddItem方法：它用來(lái)向列表框中添 加項(xiàng)目。語(yǔ)法格式：object.AddItemitem,index添加到列表框中的項(xiàng)目指示項(xiàng)目添加到列表框中的位置。它是可選的2、RemoveItem方法：從列表框中刪除以 “Index”為目標(biāo)的項(xiàng)目。語(yǔ)法格式：object.RemoveItemindex指示列表框中需刪除項(xiàng)的位置。它是必選項(xiàng)下標(biāo)例：創(chuàng)建一個(gè)按鈕和一個(gè)列表框，按按鈕時(shí)向 列表中添加項(xiàng)目。雙擊列表框中的某一項(xiàng) 時(shí)，則將它刪除。3、Clear方法：從列表框中刪除所有項(xiàng)目。OptionExplicitPrivateSubCommand1_Click()List1.AddItem"一年級(jí)"List1.AddItem"二年級(jí)"List1.AddItem"三年級(jí)"List1.AddItem"四年級(jí)"List1.AddItem"五年級(jí)"EndSubPrivateSubList1_DblClick()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand2_Click()List1.ClearEndSub&2-9組合框(ComboBox)在工具箱中的組合框工具組合框是文本框與列表框的結(jié)合，用來(lái)為用戶提供建議性的選項(xiàng)列表。一、組合框的屬性：1、名稱：缺省值為Combo1、 Combo2、……。建議以組合框 的實(shí)際意義加前綴Cbo組成。2、Text屬性：它是默認(rèn)屬性，表示組合 框中選中的文本或列表項(xiàng)目。object.Text[=string]語(yǔ)法格式：3、Style屬性：該屬性選擇組合框中的樣式。0 vbComboDropDown

下拉式組合框它是默認(rèn)設(shè)置。包括文本框和能下拉的列表。即可在文本部分輸入文字，又可打開下拉式列表，選擇列表項(xiàng)目。1 vbComboSimple

簡(jiǎn)單組合框包括文本框和不能下拉的列表?？梢栽谖谋局休斎搿⒁部梢栽诹斜碇羞x擇2 vbComboDrop-DownList

下拉式列表包括文本框和能下拉的列表。它不能在文本中輸入、只能在列表中選擇4、往組合框中添加項(xiàng)目：(a)、使用List屬性：修改列表項(xiàng)目或在下拉列表中往后添加項(xiàng)目語(yǔ)法格式：object.List(index)[=string]下標(biāo)(b)、使用AddItem方法：語(yǔ)法格式：object.AddItemitem,index添加到組合框中的項(xiàng)目指示項(xiàng)目添加到組合框中的位置。它是可選的5、往組合框中的文本框部分添加文本：在Style屬性=0或Style屬性=1時(shí)，使用Text屬性：語(yǔ)法格式：object.Text=string在Style屬性=2時(shí)，Text屬性只能是只讀6、組合框中刪除項(xiàng)目：使用RemoveItem方法：語(yǔ)法格式：object.RemoveItemindex指示組合框中需刪除項(xiàng)的位置。它是必選項(xiàng)7、Clear方法：從組合框中刪除所有項(xiàng)目。8、ListCount屬性：該屬性計(jì)算出組合框中 表項(xiàng)的數(shù)量。9、ListIndex屬性：該屬性返回或設(shè)置組合框 中當(dāng)前選擇項(xiàng)目的索引(下標(biāo))。用 它判斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)時(shí)不 可用。object.ListIndex[=index]語(yǔ)法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為0---ListCount-1-1表示沒(méi)選中例：object.ListIndexobject.ListIndex[=index]返回選中項(xiàng)的下標(biāo)值例：直接選中下標(biāo)指示的項(xiàng)。&2-10驅(qū)動(dòng)器列表框(DriveListBox)在工具箱中的驅(qū)動(dòng)器列表框工具驅(qū)動(dòng)器列表框用來(lái)為用戶提供有效的磁盤驅(qū)動(dòng)器選擇。一、驅(qū)動(dòng)器列表框的屬性：1、名稱：缺省值為Drive1、Drive2、……。 建議以驅(qū)動(dòng)器列表框的實(shí)際意 義加前綴Drv組成。2、Drive屬性：它是默認(rèn)屬性，返回或 設(shè)置運(yùn)行時(shí)選擇的驅(qū)動(dòng)器。 在設(shè)計(jì)時(shí)不可用。object.Drive[=drive]語(yǔ)法格式：例：Drive1.Drive=“c:”表示選中磁盤驅(qū)動(dòng)器c:3、ListCount屬性：返回驅(qū)動(dòng)器列表框中列 表的個(gè)數(shù)(驅(qū)動(dòng)器的個(gè)數(shù),包括軟驅(qū)、 硬盤、光驅(qū))。4、List屬性：返回驅(qū)動(dòng)器列表框中列表的某 個(gè)選項(xiàng)。在運(yùn)行時(shí)只讀。object.List(index)語(yǔ)法：例：Drive1.Drive=drive1.list(1)表示選中驅(qū)動(dòng)器列表框中排列第二行的磁盤驅(qū)動(dòng)器例：PrintDrive1.Drive顯示當(dāng)前磁盤驅(qū)動(dòng)器例：創(chuàng)建驅(qū)動(dòng)器列表框，當(dāng)按下按鈕時(shí)在驅(qū)動(dòng)器列表框中顯示光盤驅(qū)動(dòng)器。PrivateSubCommand1_Click()Drive1.Drive=Drive1.List(Drive1.ListCount-1)EndSub5、ListIndex屬性：該屬性返回或設(shè)置控件中 當(dāng)前選擇項(xiàng)目的索引(下標(biāo))。用它判 斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)時(shí)不可用。object.ListIndex[=index]語(yǔ)法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為0---ListCount-1-1表示沒(méi)選中&2-11目錄列表框(DirListBox)在工具箱中的目錄列表框工具目錄列表框用來(lái)為用戶顯示目錄和路徑。一、目錄列表框的屬性：1、名稱：缺省值為Dir1、Dir2、……。 建議以目錄列表框的實(shí)際意義 加前綴Dir組成。2、Path屬性：它是默認(rèn)屬性，返回或 設(shè)置運(yùn)行時(shí)選擇的當(dāng)前路徑。 在設(shè)計(jì)時(shí)不可用。object.Path[=pathname]語(yǔ)法格式：例：創(chuàng)建驅(qū)動(dòng)器列表框和目錄列表框，當(dāng)改變驅(qū)動(dòng)器列表框中的驅(qū)動(dòng)器時(shí)，在目錄列表框顯示相應(yīng)的文件夾。PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub3、ListCount屬性：返回目錄列表框中當(dāng)前目 錄的子目錄個(gè)數(shù)。4、List屬性：返回目錄列表框中列表的某 個(gè)目錄選項(xiàng)。在運(yùn)行時(shí)只讀。object.List(index)語(yǔ)法：指定當(dāng)前選擇目錄的下標(biāo)范圍為-n到ListCount-1當(dāng)前選中的目錄下標(biāo)為-1,緊鄰其上的為-2,-3,…緊鄰其下的目錄下標(biāo)依次為0,1,2,3,……例：PrivateSubDrive1_Change()Dir1=Drive1PrintDir1.ListCountPrintDir1.List(0)EndSub5、ListIndex屬性：該屬性返回或設(shè)置控件中 當(dāng)前選擇項(xiàng)目(目錄)的索引(下標(biāo))。 用它判斷一個(gè)項(xiàng)的位置。在設(shè)計(jì)時(shí)不 可用。object.ListIndex[=index]語(yǔ)法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為0---ListCount-1-1表示沒(méi)選中例：PrivateSubDrive1_Change()Dir1=Drive1PrintDir1.ListCountPrintDir1.List(0)Dir1.ListIndex=3EndSub&2-12文件列表框(FileListBox)在工具箱中的文件列表框工具文件列表框用來(lái)為用戶顯示某個(gè)目錄中的文件名。一、文件列表框的屬性：1、名稱：缺省值為File1、File2、……。 建議以文件列表框的實(shí)際意義加前綴Fil組成。2、FileName屬性：它是默認(rèn)屬性，返 回或設(shè)置所選文件的路徑和文 件名。在設(shè)計(jì)時(shí)不可用。object.FileName[=pathname]語(yǔ)法格式：字符串表達(dá)式，指定路徑和文件名3、Path屬性：返回或設(shè)置當(dāng)前路徑。在設(shè)計(jì) 時(shí)不可用。4、ListCount屬性：返回文件列表框中當(dāng)前目 錄中匹配Pattern屬性設(shè)置的文件 個(gè)數(shù)。4、Pattern屬性：返回或設(shè)置一個(gè)值，該值指示在運(yùn)行時(shí)顯示在FileListBox控件中的文件名object.Pattern[=Value]語(yǔ)法格式：一個(gè)用來(lái)指定文件規(guī)格的字符串表達(dá)式，例如"*.*"或"*.FRM"。缺省值是"*.*"它返回所有文件的列表。除使用通配符外，還能夠使用分號(hào)(;)分隔的多種模式。例如，"*.exe;*.bat"將返回所有可執(zhí)行文件和所有MS-DOS批處理文件的列表。5、List屬性：返回文件列表框中某個(gè)文件的選項(xiàng)。 在運(yùn)行時(shí)只讀。object.List(index)語(yǔ)法：指定當(dāng)前選擇文件的下標(biāo)范圍為0到ListCount-16、ListIndex屬性：返回或設(shè)置控件中當(dāng)前選擇 文件的索引(下標(biāo))。用它判斷一個(gè)項(xiàng) 的位置。在設(shè)計(jì)時(shí)不可用。object.ListIndex[=index]語(yǔ)法格式：指定當(dāng)前選擇項(xiàng)目的下標(biāo)值為0---ListCount-1-1表示沒(méi)選中例：組合使用文件系統(tǒng)控件。調(diào)用硬盤上的某 個(gè)文件，并將它顯示在窗口中。PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1=Dir1.PathEndSubPrivateSubFile1_DblClick()PrintFile1.filename

IfRight(Dir1,1)<>"\"thenPrintDir1+"\"+File1

elsePrintDir1+File1

EndIfEndSub&2-13圖形框(PictureBox)在工具箱中的圖形框工具圖形框用來(lái)為顯示圖形。一、圖形框的屬性：1、名稱：缺省值為Picture1、 Picture2、……。建議以圖形框 的實(shí)際意義加前綴Pic組成。2、Picture屬性：它是默認(rèn)屬性，返回 或設(shè)置控件中要顯示的圖片。object.Picture[=picture]語(yǔ)法格式：需要加載到圖形框中的圖形(指明圖形所在的位置----路徑與文件名)。它所能使用的圖形格式為Bitmap,icon,metafile,GIF,JPEG在設(shè)計(jì)時(shí)：只要在屬性窗口，使用Picture 屬性，指明圖形文件的位置即可在運(yùn)行時(shí)：使用上述語(yǔ)法格式，外加 LoadPicture函數(shù)，即能加載圖片例：在窗體中創(chuàng)建一個(gè)圖形框，一個(gè)按鈕。當(dāng)按 鈕按下時(shí)，顯示圖片。OptionExplicitPrivateSubCommand1_Click()Picture1.Picture=LoadPicture("e:\練習(xí)\練習(xí)20\fruit.jpg")EndSub例：制作電子像冊(cè)O(shè)ptionExplicitDimiAsIntegerPrivateSubCommand1_Click()DimtAsStringi=i+1

Ifi>=6Theni=1t="e:\"+Trim(Str(i))+".jpg"Picture1.Picture=LoadPicture(t)EndSubPrivateSubCommand2_Click()DimtAsStringi=i-1Ifi<=0Theni=5t="e:\"+Trim(Str(i))+".jpg"Picture1.Picture=LoadPicture(t)EndSub3、AutoRedraw屬性：返回或設(shè)置從圖 形方法到持久圖形的輸出。object.AutoRedraw[=boolean]True---自動(dòng)重畫功能有效PrivateSubC1_Click()P1.AutoRedraw=FalseEndSubPrivateSubC2_Click()P1.AutoRedraw=TrueEndSubPrivateSubForm_Load()P1.ScaleHeight=100P1.ScaleWidth=100EndSubPrivateSubP1_Click()DimIP1.ForeColor=RGB(255,0,0)ForI=5To95Step10P1.Line(I,0)-(I,100)NextEndSubFalse---自動(dòng)重畫功能無(wú)效OptionExplicitPrivateSubCommand1_Click()Picture1.PrintTab(2);"12"Picture1.PrintTab(2);"123"Picture1.PrintTab(2);"1234"EndSub1二、圖形框的方法：1、Print方法：在圖形框中輸出文字。例：在圖形框中輸出文字2、Circle方法：在圖形框中輸出一個(gè)圓或 部分圓或橢圓。語(yǔ)法格式：object.Circle[Step](x,y),radius,[color,start,end,aspect]必需的。Single(單精度浮點(diǎn)數(shù))，圓、橢圓或弧的中心坐標(biāo)。必需的。Single(單精度浮點(diǎn)數(shù))，圓、橢圓或弧的半徑?？蛇x項(xiàng)。圓的輪廓的RGB顏色。當(dāng)弧、或部分圓或橢圓畫完以后，start和end指定(以弧度為單位)弧的起點(diǎn)和終點(diǎn)位置。以弧度為單位圓的縱橫尺寸比。3、Line方法：在圖形框中輸出一條線或一個(gè)矩形。語(yǔ)法格式：object.Line[Step](x1,y1)-[Step](x2,y2),[color],[B][F]直線或矩形的起點(diǎn)坐標(biāo)。直線或矩形的終點(diǎn)坐標(biāo)。直線或矩形的顏色?？捎肦GB函數(shù)設(shè)定以起點(diǎn)到終點(diǎn)之間畫矩形如果使用了B選項(xiàng)，則F選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F光用B，則矩形用當(dāng)前的FillColor和FillStyle填充。FillStyle的缺省值是Transparent例：在一個(gè)圖形框中畫一個(gè)圓，一個(gè)橢圓，一 條線，一個(gè)矩形。OptionExplicitPrivateSubCommand1_Click()Picture1.Circle(1200,1000),750Picture1.Circle(1200,2800),500,,,,0.5Picture1.Line(2500,1500)-(3500,1500)Picture1.Line(3500,2000)-(4000,3000),,BEndSub4、PaintPicture方法：在圖片框中的指定位置畫 圖形。語(yǔ)法格式：object.PaintPicturepicture,x1,y1,width1,_ height1,x2,y2,width2,height2,opcodePicture---------需要調(diào)入圖形框中的圖形。x1,y1---------必需的。均為單精度數(shù)值，指定在 object

上繪制picture

的目標(biāo)坐標(biāo)(x-軸 和y-軸)。Width1-------可選的。對(duì)調(diào)入圖形框中的圖形寬 度進(jìn)行壓縮或拉伸。省略則使用原寬度。height1-------可選的。對(duì)調(diào)入圖形框中的圖形 高度進(jìn)行壓縮或拉伸。省略則使用原高度。例:使用一個(gè)按鈕,利用PaintPicture方法在圖形框中顯示/隱藏一幅照片OptionExplicitDimxAsBooleanPrivateSubCommand1_Click()

Ifx=TrueThenPicture1.PaintPictureLoadPicture("d:\test\1.jpg"),110,110x=False

ElsePicture1.Clsx=True

EndIfEndSubPrivateSubForm_Load()x=TrueEndSub程序代碼:&2-14圖像框(Image)在工具箱中的圖像框工具圖像框用來(lái)顯示圖像。一、圖像的屬性：1、名稱：缺省值為Image1、 Image2、……。建議以圖像的 實(shí)際意義加前綴Img組成。2、Picture屬性：它是默認(rèn)屬性，返回 或設(shè)置控件中要顯示的圖像。object.Picture[=picture]語(yǔ)法格式：需要加載到圖像框中的圖像(指明圖像所在的位置----路徑與文件名)。它所能使用的圖像格式為Bitmap,icon,metafile,GIF,JPEG在設(shè)計(jì)時(shí)：只要在屬性窗口，使用Picture 屬性，指明圖像文件的位置即可在運(yùn)行時(shí)：使用上述語(yǔ)法格式，外加 LoadPicture函數(shù)，即能加載圖像例：在窗體中創(chuàng)建一個(gè)圖像框，一個(gè)按鈕。當(dāng)按 鈕按下時(shí)，顯示圖像。OptionExplicitPrivateSubCommand1_Click()Image1.Picture=LoadPicture("e:\練習(xí)\練習(xí)20\fruit.jpg")EndSub圖形框(PictureBox)與圖像框(Image)的區(qū)別1、圖像框只能顯示它所支持的圖像(例：位 圖文件.bmp;圖標(biāo)文件.ico;圖元文件 .wmf；增強(qiáng)型圖元文件.emf；JPEG文件； GIF文件。2、圖像框可以伸展圖片的大小使之適合控件 的大小。而圖形框(PictureBox)控件不行。3、圖像框(Image)執(zhí)行的速度比圖形框(PictureBox)快。4、圖形框(PictureBox)有PaintPicture方法，而圖像框 (Image)沒(méi)有。而圖形框除了支持圖像框的所有文件外，還能繪制各種線條組成的圖形(例：線條；圓；矩形等)&2-15定時(shí)器(Timer)在工具箱中的定時(shí)器工具定時(shí)器用來(lái)為用戶提供在一定時(shí)間間隔內(nèi)執(zhí)行一次代碼操作。一、定時(shí)器的屬性：1、名稱：缺省值為Timer1、 Timer2、……。建議以定時(shí)器 的實(shí)際意義加前綴Tmr組成。2、Enabled屬性：它是默認(rèn)屬性，返 回或設(shè)置一個(gè)值，該值用來(lái)確 定定時(shí)器對(duì)象是否能夠?qū)τ脩?產(chǎn)生的事件作出反應(yīng)。object.Enabled[=boolean]語(yǔ)法格式：值為True---- (默認(rèn)值)，允許定時(shí)器對(duì)事件作 出反應(yīng)False---- 不允許定時(shí)器對(duì)事件作出反應(yīng)3、Interval屬性：返回或設(shè)置對(duì)Timer控件 的定時(shí)間隔（毫秒）。object.Interval[=milliseconds]語(yǔ)法格式：數(shù)值表達(dá)式，指定毫秒數(shù)，范圍是0---65535毫秒，倒計(jì)時(shí)例：制作一只蝴蝶飛舞的簡(jiǎn)單動(dòng)畫。OptionExplicitDimi,intleft,flagAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=42EndSub窗體模塊的代碼為：PrivateSubTimer1_Timer()intleft=intleft+20

Ifintleft>Picture1.WidthThenintleft=0

EndIfPicture1.Cls

Ifflag=0Thenflag=1Picture1.PaintPictureLoadPicture("e:\bfly1.bmp"),intleft,1000

Elseflag=0Picture1.PaintPictureLoadPicture("e:\bfly2.bmp"),intleft,1000

EndIfEndSub&2-16菜單概述菜單是現(xiàn)代應(yīng)用程序中不可缺少的用戶界面之一。它的主要作用是： 1、提供了人機(jī)對(duì)話的界面，以便讓使用者選擇應(yīng)用系統(tǒng)的各種功能。 2、管理應(yīng)用系統(tǒng)，控制各種功能模塊的運(yùn)行。在Windows98/2000/xp中典型的菜單有二種： 1、下拉式菜單 如：File文件 2、彈出式菜單(上下文菜單)如：按鼠 標(biāo)右鍵。下面看一下菜單的實(shí)例(Windows98/2000/xp中的記事本)：菜單欄訪問(wèn)鍵菜單下拉菜單分隔符條快捷鍵命令&2-17創(chuàng)建菜單打開VB中的“菜單編輯器”（在工具菜單下），或使用快捷鍵Ctrl+E。出現(xiàn)如下窗口。出現(xiàn)在菜單中的文本代碼中引用的菜單名字使選中命令往前提升一層使選中命令往后挪一層使選中命令與前一個(gè)命令對(duì)調(diào)使選中命令與后一個(gè)命令對(duì)調(diào)對(duì)某個(gè)命令設(shè)置快捷鍵跳到下一個(gè)命令在選中命令前面插入一個(gè)命令將選中命令刪除例：創(chuàng)建與記事本一樣的菜單打開菜單編輯器，輸入如下內(nèi)容?！?”后跟字母表示創(chuàng)建訪問(wèn)鍵對(duì)比記事本，在菜單“文件”下還有下拉式菜單。在菜單編輯器中繼續(xù)添加命令。這時(shí)菜單已經(jīng)創(chuàng)建成如下形式：在以上菜單中繼續(xù)添加分隔符條在菜單編輯器中繼續(xù)添加：分隔符條在“編輯”菜單下繼續(xù)添加下拉式菜單，并為有的菜單命令添加快捷鍵。最后出現(xiàn)的菜單為：&2-18創(chuàng)建工具欄工具欄為Windows98/2000應(yīng)用程序常用的標(biāo)準(zhǔn)功能。它提供菜單命令的快速訪問(wèn)。一、使用控件創(chuàng)建工具欄1、首先在工具欄中添加“Toolbar控件”與 “ImageList控件”方法：將鼠標(biāo)移到工具箱上，單擊鼠 標(biāo)右鍵，選擇“部件”。在控件標(biāo) 簽下選擇“Microsoft Windows CommonControls6.0”,單擊確定 按鈕。2、將“Toolbar控件”與“ImageList 控件”放到窗體中Toolbar控件ImageList控件Toolbar對(duì)象ImageList對(duì)象3、將按鈕圖形文件加到“ImageList控件”中。 此控件主要是管理圖像文件。方法：選中ImageList控件，單擊鼠標(biāo) 右鍵，選擇“屬性”，出現(xiàn)以下窗 口。選擇“圖像”標(biāo)簽”。單擊“插入圖片”按鈕，在某個(gè)文件夾下找到要使用的圖片，并為每個(gè)圖片指定一個(gè)關(guān)鍵字。單擊“確定”按鈕。4、使用“Toolbar控件”建立按鈕。 方法：選中“Toolbar控件”，單擊鼠標(biāo)右鍵， 選擇“屬性”。出現(xiàn)如下窗口。在“通用”標(biāo)簽下，在“圖像列表”下拉列表中選擇ImageList對(duì)象。在“按鈕”標(biāo)簽下，單擊“插入按鈕”，在關(guān)鍵字處輸入“Open”,在工具提示文本中輸入“打開”，在圖像中輸入“1”，單擊“應(yīng)用”按鈕。這時(shí)在工具欄按鈕上出現(xiàn)圖像。重復(fù)以上步驟，將能創(chuàng)建多個(gè)工具欄按鈕。在程序代碼中出現(xiàn)的按鈕名稱。(必須要)5、輸入各個(gè)按鈕的程序代碼在設(shè)計(jì)狀態(tài)，雙擊“Toolbar”對(duì)象，出現(xiàn)代碼窗口。PrivateSubToolbar1_ButtonClick(ByValButton_AsComctlLib.Button)

SelectCaseButton.Key

Case"print"… ‘執(zhí)行打印程序代碼

Case"open"… ‘執(zhí)行打開文件程序代碼

EndSelectEndSub&2-19InputBox函數(shù)在一對(duì)話框中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的String。InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])語(yǔ)法格式：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])Title----可選的。顯示在對(duì)話框標(biāo)題欄中的字符串。 若省略則顯示應(yīng)用程序名。Default----可選的。顯示文本框中的字符串表達(dá) 式，在沒(méi)有其它輸入時(shí)作為缺省值。如果 省略default，則文本框?yàn)榭铡pos----可選的。數(shù)值表達(dá)式，成對(duì)出現(xiàn)，指定對(duì) 話框的左邊與屏幕左邊的水平距離。如果 省略xpos，則對(duì)話框會(huì)在水平方向居中。Prompt----必須的。提示信息字符串。如果prompt

包含多個(gè)行，則可在各行之間用回車符 (Chr(13))、換行符(Chr(10))或回車 換行