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

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

ElseMsgBox("密碼錯誤，請重輸入")TxtPass.SetFocusTxtPass=""ExitSub

EndIfEndSub7、MaxLength屬性：設置文本框中最大可以 輸入的字符數。若超過則系統發出 嘟嘟聲。 缺省值是0------輸入的字符取決于 系統對內存所建 立的值。8、Locked屬性：決定文本框中的文本是否可 編輯。 缺省值為False-----文本可編輯9、取消文本框中的擊鍵值 對于文本框中所輸入字符，可以利 用KeyPress事件加以過濾或限制。例：計算兩個數的平均數窗體模塊的對象為：Txtnum1Txtnum2TxtResult三個文本框的名字分別為：OptionExplicitPrivateSubTxtnum1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表長度為0的字符串BeepEndIfEndSubPrivateSubCmdOk_Click()TxtResult=(Val(TxtNum1)+Val(TxtNum2))/2EndSubPrivateSubTxtnum2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0'0代表長度為0的字符串BeepEndIfEndSub窗體模塊的代碼為：&2-5復選框(CheckBox)在工具箱中的復選框工具復選框的屬性：復選框用來在多個選項中選擇一個或多個選項。1、名稱：缺省值為Check1、 Check2、……。建議以文本 框的實際意義加前綴chk 組成。2、Value屬性：是默認屬性，決定該復選框 是否被選中 0---Unchecked(缺省值) 沒選中 1---Checked 選中 2---Grayed 暗淡其中 0可用VbUnChecked代替 1可用VbChecked代替 2可用VbGrayed代替例：調查體育愛好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選項按鈕(OptionButton)在工具箱中的選項按鈕工具(單選項)選項按鈕用來在多個選項中選擇一個選項。創建選項按鈕組：要將選項按鈕分組，只要將選項按鈕創建在控件容器中。例：在窗體上的選項按鈕都是一組。在框架中的選項按鈕也是一組。在同一組選項按鈕中只能選擇一個選項。選項按鈕的屬性：1、名稱：缺省值為Option1、Option2、……。 建議以選項按鈕的實際意義加前綴 Opt組成。2、缺省屬性：為Value。值為 True------選中 False-----沒選中例：調查體育愛好OptionExplicitPrivateSubCommand1_Click()Dimx1,x2,x3,xbAsString

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

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

簡單組合框包括文本框和不能下拉的列表。可以在文本中輸入、也可以在列表中選擇2 vbComboDrop-DownList

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

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

elsePrintDir1+File1

EndIfEndSub&2-13圖形框(PictureBox)在工具箱中的圖形框工具圖形框用來為顯示圖形。一、圖形框的屬性：1、名稱：缺省值為Picture1、 Picture2、……。建議以圖形框 的實際意義加前綴Pic組成。2、Picture屬性：它是默認屬性，返回 或設置控件中要顯示的圖片。object.Picture[=picture]語法格式：需要加載到圖形框中的圖形(指明圖形所在的位置----路徑與文件名)。它所能使用的圖形格式為Bitmap,icon,metafile,GIF,JPEG在設計時：只要在屬性窗口，使用Picture 屬性，指明圖形文件的位置即可在運行時：使用上述語法格式，外加 LoadPicture函數，即能加載圖片例：在窗體中創建一個圖形框，一個按鈕。當按 鈕按下時，顯示圖片。OptionExplicitPrivateSubCommand1_Click()Picture1.Picture=LoadPicture("e:\練習\練習20\fruit.jpg")EndSub例：制作電子像冊OptionExplicitDimiAsIntegerPrivateSubCommand1_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屬性：返回或設置從圖 形方法到持久圖形的輸出。object.AutoRedraw[=boolean]True---自動重畫功能有效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---自動重畫功能無效OptionExplicitPrivateSubCommand1_Click()Picture1.PrintTab(2);"12"Picture1.PrintTab(2);"123"Picture1.PrintTab(2);"1234"EndSub1二、圖形框的方法：1、Print方法：在圖形框中輸出文字。例：在圖形框中輸出文字2、Circle方法：在圖形框中輸出一個圓或 部分圓或橢圓。語法格式：object.Circle[Step](x,y),radius,[color,start,end,aspect]必需的。Single(單精度浮點數)，圓、橢圓或弧的中心坐標。必需的。Single(單精度浮點數)，圓、橢圓或弧的半徑。可選項。圓的輪廓的RGB顏色。當弧、或部分圓或橢圓畫完以后，start和end指定(以弧度為單位)弧的起點和終點位置。以弧度為單位圓的縱橫尺寸比。3、Line方法：在圖形框中輸出一條線或一個矩形。語法格式：object.Line[Step](x1,y1)-[Step](x2,y2),[color],[B][F]直線或矩形的起點坐標。直線或矩形的終點坐標。直線或矩形的顏色。可用RGB函數設定以起點到終點之間畫矩形如果使用了B選項，則F選項規定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F光用B，則矩形用當前的FillColor和FillStyle填充。FillStyle的缺省值是Transparent例：在一個圖形框中畫一個圓，一個橢圓，一 條線，一個矩形。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方法：在圖片框中的指定位置畫 圖形。語法格式：object.PaintPicturepicture,x1,y1,width1,_ height1,x2,y2,width2,height2,opcodePicture---------需要調入圖形框中的圖形。x1,y1---------必需的。均為單精度數值，指定在 object

上繪制picture

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

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

ElsePicture1.Clsx=True

EndIfEndSubPrivateSubForm_Load()x=TrueEndSub程序代碼:&2-14圖像框(Image)在工具箱中的圖像框工具圖像框用來顯示圖像。一、圖像的屬性：1、名稱：缺省值為Image1、 Image2、……。建議以圖像的 實際意義加前綴Img組成。2、Picture屬性：它是默認屬性，返回 或設置控件中要顯示的圖像。object.Picture[=picture]語法格式：需要加載到圖像框中的圖像(指明圖像所在的位置----路徑與文件名)。它所能使用的圖像格式為Bitmap,icon,metafile,GIF,JPEG在設計時：只要在屬性窗口，使用Picture 屬性，指明圖像文件的位置即可在運行時：使用上述語法格式，外加 LoadPicture函數，即能加載圖像例：在窗體中創建一個圖像框，一個按鈕。當按 鈕按下時，顯示圖像。OptionExplicitPrivateSubCommand1_Click()Image1.Picture=LoadPicture("e:\練習\練習20\fruit.jpg")EndSub圖形框(PictureBox)與圖像框(Image)的區別1、圖像框只能顯示它所支持的圖像(例：位 圖文件.bmp;圖標文件.ico;圖元文件 .wmf；增強型圖元文件.emf；JPEG文件； GIF文件。2、圖像框可以伸展圖片的大小使之適合控件 的大小。而圖形框(PictureBox)控件不行。3、圖像框(Image)執行的速度比圖形框(PictureBox)快。4、圖形框(PictureBox)有PaintPicture方法，而圖像框 (Image)沒有。而圖形框除了支持圖像框的所有文件外，還能繪制各種線條組成的圖形(例：線條；圓；矩形等)&2-15定時器(Timer)在工具箱中的定時器工具定時器用來為用戶提供在一定時間間隔內執行一次代碼操作。一、定時器的屬性：1、名稱：缺省值為Timer1、 Timer2、……。建議以定時器 的實際意義加前綴Tmr組成。2、Enabled屬性：它是默認屬性，返 回或設置一個值，該值用來確 定定時器對象是否能夠對用戶 產生的事件作出反應。object.Enabled[=boolean]語法格式：值為True---- (默認值)，允許定時器對事件作 出反應False---- 不允許定時器對事件作出反應3、Interval屬性：返回或設置對Timer控件 的定時間隔（毫秒）。object.Interval[=milliseconds]語法格式：數值表達式，指定毫秒數，范圍是0---65535毫秒，倒計時例：制作一只蝴蝶飛舞的簡單動畫。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菜單概述菜單是現代應用程序中不可缺少的用戶界面之一。它的主要作用是： 1、提供了人機對話的界面，以便讓使用者選擇應用系統的各種功能。 2、管理應用系統，控制各種功能模塊的運行。在Windows98/2000/xp中典型的菜單有二種： 1、下拉式菜單 如：File文件 2、彈出式菜單(上下文菜單)如：按鼠 標右鍵。下面看一下菜單的實例(Windows98/2000/xp中的記事本)：菜單欄訪問鍵菜單下拉菜單分隔符條快捷鍵命令&2-17創建菜單打開VB中的“菜單編輯器”（在工具菜單下），或使用快捷鍵Ctrl+E。出現如下窗口。出現在菜單中的文本代碼中引用的菜單名字使選中命令往前提升一層使選中命令往后挪一層使選中命令與前一個命令對調使選中命令與后一個命令對調對某個命令設置快捷鍵跳到下一個命令在選中命令前面插入一個命令將選中命令刪除例：創建與記事本一樣的菜單打開菜單編輯器，輸入如下內容。“&”后跟字母表示創建訪問鍵對比記事本，在菜單“文件”下還有下拉式菜單。在菜單編輯器中繼續添加命令。這時菜單已經創建成如下形式：在以上菜單中繼續添加分隔符條在菜單編輯器中繼續添加：分隔符條在“編輯”菜單下繼續添加下拉式菜單，并為有的菜單命令添加快捷鍵。最后出現的菜單為：&2-18創建工具欄工具欄為Windows98/2000應用程序常用的標準功能。它提供菜單命令的快速訪問。一、使用控件創建工具欄1、首先在工具欄中添加“Toolbar控件”與 “ImageList控件”方法：將鼠標移到工具箱上，單擊鼠 標右鍵，選擇“部件”。在控件標 簽下選擇“Microsoft Windows CommonControls6.0”,單擊確定 按鈕。2、將“Toolbar控件”與“ImageList 控件”放到窗體中Toolbar控件ImageList控件Toolbar對象ImageList對象3、將按鈕圖形文件加到“ImageList控件”中。 此控件主要是管理圖像文件。方法：選中ImageList控件，單擊鼠標 右鍵，選擇“屬性”，出現以下窗 口。選擇“圖像”標簽”。單擊“插入圖片”按鈕，在某個文件夾下找到要使用的圖片，并為每個圖片指定一個關鍵字。單擊“確定”按鈕。4、使用“Toolbar控件”建立按鈕。 方法：選中“Toolbar控件”，單擊鼠標右鍵， 選擇“屬性”。出現如下窗口。在“通用”標簽下，在“圖像列表”下拉列表中選擇ImageList對象。在“按鈕”標簽下，單擊“插入按鈕”，在關鍵字處輸入“Open”,在工具提示文本中輸入“打開”，在圖像中輸入“1”，單擊“應用”按鈕。這時在工具欄按鈕上出現圖像。重復以上步驟，將能創建多個工具欄按鈕。在程序代碼中出現的按鈕名稱。(必須要)5、輸入各個按鈕的程序代碼在設計狀態，雙擊“Toolbar”對象，出現代碼窗口。PrivateSubToolbar1_ButtonClick(ByValButton_AsComctlLib.Button)

SelectCaseButton.Key

Case"print"… ‘執行打印程序代碼

Case"open"… ‘執行打開文件程序代碼

EndSelectEndSub&2-19InputBox函數在一對話框中顯示提示，等待用戶輸入正文或按下按鈕，并返回包含文本框內容的String。InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])語法格式：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])Title----可選的。顯示在對話框標題欄中的字符串。 若省略則顯示應用程序名。Default----可選的。顯示文本框中的字符串表達 式，在沒有其它輸入時作為缺省值。如果 省略default，則文本框為空。Xpos----可選的。數值表達式，成對出現，指定對 話框的左邊與屏幕左邊的水平距離。如果 省略xpos，則對話框會在水平方向居中。Prompt----必須的。提示信息字符串。如果prompt

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