第2章 創(chuàng)建用戶界面

1、1,新編Visual Basic程序設計教程,2,第 2 章 創(chuàng)建用戶界面,&2.1 創(chuàng)建窗體,打開VB時或新建一個工程時，VB都自動創(chuàng)建了一個窗體對象。我們可以根據(jù)需要創(chuàng)建多個窗體對象。,方法1：在工程菜單中選擇添加窗體。方法2：在工具欄中選擇添加窗體。方法3：在工程資源管理器窗口中用鼠標右健單擊窗體，鼠標指針指向添加，選擇添加窗體。,# 窗體對象的創(chuàng)建,3,2.1.1 窗體的屬性、方法與事件,Nam

2、e(名稱)：系統(tǒng)自動會為每個窗體命名為 Form1、 Form2、 Form3、……。當我們要改它們的名稱時(盡量改)，建議用窗體的實際意義加前綴Frm組成。如一個啟動窗體，它的名稱可以用FrmStartUp命名。,Caption屬性：窗體標題。它是出現(xiàn)在標題欄中的文字,BackColor屬性：窗體的背景色,（見P14表2-1）,1. 屬性,4,BorderStyle: 窗體邊框風格,Enabled: 有效屬性。決定對象是否

3、能被事件激活。缺省值為“True”, 表示能被事件激活。“False”表示不能被事件激活,Picture: 圖標屬性。用于設置窗體顯示的圖片,Left、Top、Height、Width: 決定窗體的位置與大小,Font: 設置窗體所顯示文字的字體、字型和字號,Visible: 決定對象是否可見,Moveable: 決定窗體能否移動,ForeColor屬性：窗體的前景色,5,2. 窗體對象的方法,Hide : 隱藏,Move: 移

4、動,Print: 打印,PrintForm: 打印窗體,Refresh: 刷新,Show: 顯示,3. 窗體對象的事件,Click: 單擊事件,DblClick: 雙擊事件,Load: 裝載事件,Cls：清除,6,Resize: 窗體被改變大小時，觸發(fā)本事件。,Activate: 窗體變?yōu)楫斍按翱跁r，觸發(fā)本事件。,Deactivate:窗體失去當前窗口時，觸發(fā)本事件。,2.1.2 定制窗體屬性（其它對象相同）,格式：,選中對象后直接在屬

5、性窗口中為屬性設置值,方法1：,方法2：用語句設置屬性值,Object.Property=Expression,,對象名,,屬性名稱,設置新值,,設置屬性：,7,,舉例：窗體Form1設計時設置的標題屬性值為“示例”，該窗體運行時標題自動修改為“運行示例”。,1、直接在窗體Form1的 屬性窗口中取標題屬性Caption的屬性值為“示例”,方法：,2：在程序代碼中，用語句設置屬性值： Form1.Caption=“運行示例

6、”,方法1,方法2,下轉：第2章VB教材舉例 \ 1 (2.1.2A),8,,常用屬性Font（字體屬性）有多個子屬性，也可以采用方法1和方法2設置。采用方法1：設計態(tài)時，在屬性窗口中設置采用方法2：在程序代碼中分別設置子屬性,對象名.font.name = ,對象名.font.size = ,對象名.font. **** = true,**** ： italic（斜體） bold （粗體）

7、 ……,下轉：第2章VB教材舉例 \ 2(2.1.2B),……,ok,9,2.1.3 窗體的顯示、隱藏、裝載和卸載,在程序代碼中,使用 Show與 Hide 方法可以顯示或隱藏窗體,1. 窗體的顯示與隱藏,使用方法的格式：,Object . Method [Arg1, Arg2, ...],,對象名,,方法名,,參數(shù),則:窗體的顯示 FormName . Show 窗體的隱藏 FormName . H

8、ide (FormName 指窗體名),10,例：創(chuàng)建二個窗體，在窗體1上建三個按鈕，窗體對象界面如下,11,窗體1的屬性設置如下：,Name：FrmStartUpCaption: 窗體1,第一個按鈕的屬性設置如下：,Name：CmdOpenCaption: 顯示窗體2,中間一個按鈕的屬性設置如下：,Name：CmdCloseCaption: 隱藏窗體2,第三個按鈕的屬性設置

9、如下：,Name：CmdExitCaption: 退出,窗體2的屬性設置如下：,Name：FrmWorkCaption: 窗體2,,12,編寫程序代碼：,Private Sub CmdOpen_Click() FrmWork.ShowEnd Sub,,Private Sub CmdClose_Click() FrmWork.HideEnd Sub,,Private Sub CmdExit_Click()

10、EndEnd Sub,下轉 第2章VB教材舉例 \ 3 (2.1.3),ok,13,,2. 裝載窗體與Load事件,裝載語句: Load Object （Object為對象名） 功能：把窗體（或其它對象）載入內(nèi)存，但不顯 示。（由于VB程序運行時會自動裝載窗體，所以沒必要對窗體使用Load語句）,Load事件當系統(tǒng)自動裝載窗體時，能引發(fā)窗體的Load事件，造成Load事件過程。在使用Show方法顯示窗體時，亦會引發(fā)窗體

11、的Load事件。,舉例：[例2-1],下轉 第2章VB教材舉例 \ 4 (例 2-1),14,,3. 卸載窗體與Unload 事件,卸載語句：Unload Object Object 對象名。若卸載當前窗體，則為: Unload Me,4. End 語句用于程序代碼中，表示由程序來結束程序的運行,下轉 第2章VB教材舉例 \ 5 (2.1.3 - 3.4),15,2.1.4 窗體的Print 方法,Pri

12、nt 方法用于將文本直接輸出到窗體上。,Print 方法的格式為：,[Object.] Print p1 p2 ...,輸出項,,輸出項之間的分隔符，可以是逗號“，”或分號“；”,1、輸出字符串：,Print “Made in China”Print “ABC1234567890”,16,,2、輸出常量（數(shù)值）,,A、數(shù)值的組成,符號占1位,,,數(shù)值部分,,1個空格,例：Print 5,例：Print -5,輸出為：,輸出為

13、：,,,17,C、緊湊格式(自由格式) ： 用“;”作為輸出項之間的分隔符，每個分號都使后面的一個輸出項緊靠前面的輸出項。,B、標準格式(分區(qū)格式) ：用“,”作為輸出項之間的分隔符，每個輸出項占據(jù)一個顯示區(qū)(一個顯示區(qū)占14（16）個字符位置)。,例：Print 1,2,3輸出： 1 2 3,例：Print 1;2;+3;-4;-5;-6輸出：

14、1 2 3 -4 -5 -6,18,3、續(xù)行,當一個Print語句的末尾是一個 “ , ”或 “ ; ”時，表示下一個Print 語句中的輸出項應接在本語句輸出項的后面輸出。,4、空行,當一個Print語句無輸出項時，將空一行。,例：Print “Made in China” Print “ABC1234567890” Print 1,2,3 Print Print 1

15、;-2;3 Print -4;-5;-6,下轉 第2章VB教材舉例 \ 6 (2.1.4),19,&2.2 VB的常用控件,2.2.1 概述,VB 6.0的常用控件 Page 20 表 2-3,2.2.2 常用控件,1、文本框 ( TextBox ),,在工具箱中的文本框工具,（1）文本框的屬性：,功能：文本框用來輸入或顯示(輸出)文字信息,20,-

16、Name(名稱)：缺省值為Text1、Text2、……。建議以文本框的實際意義加前綴 txt 組成。,- Text文本屬性：輸入到文本框的內(nèi)容。缺省時，可輸入2048個字符。若將 MultiLine 屬性設置成True，則可輸入多達32K的字符。,- PasswordChar口令屬性：創(chuàng)建密碼文本框。在此屬性中加一個 “ * ”, 則運行時此文本框中無論輸入什么字符，都只顯示 “ * ” 號。,舉例：使用口令屬性，創(chuàng)建一個密碼窗口,21

17、,窗體模塊的對象為：,窗體模塊的代碼為：,Option ExplicitPrivate Sub CmdExit_Click() EndEnd SubPrivate Sub CmdOK_Click() If TxtPass.Text = "123456" Then FrmPassWord.Hide FrmMain.Show Else Ms

18、gBox ("密碼錯誤，請重輸入") TxtPass.SetFocus TxtPass = "" End IfEnd Sub,下轉 第2章VB教材舉例 \ 7 (2.2.2-1),22,,- MultiLine多行屬性：缺省值為False，僅能輸入一行文本。若為 True，能輸入多行文本。,- MaxLength文本最大長度屬性：設置文本框中最大可以輸入的

19、字符數(shù)。缺省值是0 ，表示本文本框可以接受任意個數(shù)的字符。,例：在文本框中 輸入多排文字,創(chuàng)建如下用戶界面：,將文本框的MultiLine屬性設置為True,,23,Private Sub Command1_Click() Text1 = " Visual Basic" & _ vbCrLf & " 123456"End Sub,編寫如下程序：,-

20、 ScrollBar滾動條屬性： （當 MultiLine 屬性為True時有效) 0 - 無滾動條（缺省值） 1 - 有滾動條 2 - 有滾動條,下轉 \VB教材舉例 \ 8 (2.2.2-2),下轉 第2章VB教材舉例 \ 滾動條,24,- Alignment 文本對齊屬性:

21、 0 - 文本左對齊 1 - 文本右對齊 2 - 文本居中,下轉 第2章VB教材舉例 \ 8 (2.2.2-2),- Locked文本編輯屬性：決定文本框中的文本是否可編輯。缺省值：False - 文本可編輯,下轉 第2章VB教材舉例 \ 8 (2.2.2-2),25,（2）文本框的方法- Refresh 刷新方法- SetFoc

22、us 設置焦點方法,被設置的文本框內(nèi)有光標閃動（3）事件- Change 事件 在文本框中輸入或修改內(nèi)容時，窗體上會同步顯示內(nèi)容。- LostFocus 事件 若光標離開文本框，引發(fā)本事件- KeyPress 事件 當用戶按下或松開鍵盤上某按鍵，引發(fā)本事件,下轉 第2章VB教材舉例 \ 8 (2.2.2-2),下轉 第2章VB教材舉例 \ 9(2.2.2-3) , \10 (2.2.2-4),下轉 第2章

23、VB教材舉例 \ 11 (2.2.2-5),26,2、標簽(Label),,在工具箱中的標簽工具,（1）屬性：,- Name 標簽名稱：缺省值為Label1、Label2、……。建議以標簽的實際意義加前綴Lbl組成。,- Caption 標題屬性：設置或返回標題欄的文本。,- Alignment對齊屬性：缺省值為0。設置或返回標簽標題欄文本的對齊方式。,27,0 - Left Justify 左對齊1 - Right Ju

24、stify 右對齊2 - Center 中對齊,- AutoSize大小自適應屬性：缺省值為False。當設置為True時，標簽能水平自動調整大小以顯示所有的內(nèi)容。,- BackStyle背景風格屬性：缺省值為 1 ，表示背景色或圖片不透明；當設置為 0 ，則為透明 。,（2）方法 - Refresh 刷新方法 - Move 移動方法,28,3、命令按鈕 (CommandButton)

25、,,在工具箱中的按鈕工具,屬性：,- 名稱：缺省值為Command1、Command2、…… 建議以按鈕的實際意義加前綴Cmd組成。,例：兩個按鈕，一個是加1，一個是退出。所以兩個按鈕的名稱分別命名為CmdAdd1, CmdExit,29,Option ExplicitPrivate Sub CmdAdd1_Click() Static x As Integer x = x + 1 Text1.Tex

26、t = xEnd SubPrivate Sub CmdExit_Click() EndEnd Sub,窗體模塊的對象為：,窗體模塊的代碼為：,30,- Caption按鈕標題屬性：它是按鈕上的標題顯示文字，建議以按鈕的實際意義組成。,- Cancel按鈕的取消屬性：決定按鈕是否是取消按鈕。當某按鈕 Cancel 屬性設置為True時，按鍵盤上的 Esc 鍵就相當于單擊此按鈕。,- Default按鈕的確定屬性：決定按鈕

27、是否具有 Enter 功能，即Default屬性設置為True時，表示按鍵盤上的 Enter 鍵相當于單擊此按鈕。,31,- Enabled按鈕的活動屬性：當設置值為True時，該按鈕處于活動狀態(tài)，即可操作狀態(tài)。若為False，按鈕變灰，不可使用。,- TabStop屬性：指出用戶是否可以使用Tab鍵來選定對象。TabStop的默認值為True。表示可以用Tab選定對象。,- 創(chuàng)建鍵盤快捷方式：利用Caption屬性，在標題顯示文字某

28、個字符前加連字符 (&) ，這時可看見該字符出現(xiàn)一個下劃線，運行時，只要按Alt+帶下劃線字符，就能選定該按鈕。,32,- 選定命令按鈕：A、用鼠標單擊按鈕。B、按Tab鍵，將焦點移到該按鈕上，然后按Enter鍵或空格鍵。C、若按鈕有快捷方式，則只要按快捷鍵即可(Alt+帶下劃線字符)。D、若按鈕是默認（確認）命令按鈕，則只要 Enter鍵即可。E、若按鈕是默認取消按鈕，則只要 Es

29、c 鍵即可。,33,命令按鈕的綜合舉例,[例 2-2] 一個使用命令按鈕的程序示例 Page 23,34,Private Sub Command1_Click Label1.Caption = "報效祖國" Command2.Enabled = True Command2.SetFocus Command1.Enabled = FalseEnd SubPrivate Sub Comm

30、and2_Click() Label1.Caption = "努力學習" Command1.Enabled = True Command1.SetFocus Command2.Enabled = FalseEnd Sub,Private Sub Command3_Click() Unload MeEnd Sub,下轉 第2章VB教材舉例 \ 12 (例 2-2),35,4、 列表框(Lis

31、tBox),,在工具箱中的列表框工具,列表框用來為用戶提供選項列表。,在Windows 95/98 中出現(xiàn)的列表框,,36,（1）列表框的屬性：,- 名稱：缺省值為List1、List2、……。建議以列表框的實際意義加前綴Lst組成。,- Text列表項正文屬性：它是默認屬性 ，表示列表框中選中的列表項目（文本）。,例：圖示列表框中，當我們選中第二行時，列表框的Text屬性就是222,Private Sub List1_Click(

32、) Print List1.TextEnd Sub,下轉 第2章VB教材舉例 \ Text屬性演示,,37,- List表屬性：用于保存列表內(nèi)容。List屬性的語法格式為Object . List (列表項序號) 列表項序號由上 至 下

33、為0、1、2、3 ……,- ListCount列表項數(shù)目:該屬性計算出列表框中表項的數(shù)量。,- ListIndex列表項索引：其值是最后選中的列表項序號（序號 0、1、2……），若末選任何項目,其值為-1。,下轉 第2章VB教材舉例 \ Text屬性演示,應用舉例：List1.List (List1.ListIndex) ≒ List1.Text,,38,Option ExplicitPrivate Sub Comma

34、nd1_Click() Static i As Integer If i > List1.ListCount - 1 Then i = 0 End If Text1 = List1.List(i) i = i + 1End SubPrivate Sub Form_Load() List1.AddItem “服工0６01" List1.AddIt

35、em “服工0６02" List1.AddItem “服裝0６01"End Sub,舉例：一個列表框中有數(shù)行內(nèi)容，按下按鈕在文本框中輪流顯示列表框中的表項,下轉 第2章VB教材舉例 \ 13 (2.2.2-6),理解 List , ListCount等,39,Option ExplicitPrivate Sub Form_Load() List1.AddItem &q

36、uot;一年級" List1.AddItem "二年級" List1.AddItem "三年級" List1.AddItem "四年級" List1.AddItem "五年級"End SubPrivate Sub List1_DblClick() Print List1.ListIndex Pr

37、int List1.Text Print List1.List(List1.ListIndex) List1.ListIndex=0End Sub,舉例：理解ListIndex屬性,下轉 第2章VB教材舉例 \ 14 (2.2.2-7),40,- Columns 列表框顯示形式：取值為 0，列表項每項占一行，當行數(shù)多時框內(nèi)裝不下，會自動出垂直滾動條。取值大于0 時，列表項會多行顯示，可能出水平滾動條

38、。,- Sorted 排序屬性：取值為 True 時，列表項將按ASCII碼排序。取值為 False，不排序。,- Selected選擇屬性：當某一列表項被選中時，該項的屬性值為 True ，否則為 False。本屬性表示方法與List 同。本屬性不能在屬性窗口中選，只能在程序代碼中使用。,Object . Selected (列表項序號),語法格式：,下轉 第2章VB教材舉例 \ 14 (2.2.2-7),同上下轉

39、……,41,（2）列表框的方法：,- AddItem添加列表項方法：它用來向列表框中添加項目。,語法格式：,object.AddItem〈 item 〉[ , index ],添加到列表框中的文本,指示項目插入位置的序號?？蛇x（可有可無）,42,- RemoveItem刪除列表項方法（刪除某一項）,語法格式：,Object . RemoveItem 刪除項序號,指示列表框中需刪除項的位置。它是必選項,- Clear方法：從列表框中刪除

40、 所有項目。,,,43,Option ExplicitPrivate Sub Command1_Click() List1.AddItem "一年級" List1.AddItem "二年級" List1.AddItem "三年級" List1.AddItem "四年級" List1.AddItem "五年

41、級"End SubPrivate Sub List1_DblClick() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click() List1.ClearEnd Sub,例：創(chuàng)建二個按鈕和一個列表框，按按鈕時向列表中添加項目。雙擊列表框中的某一項時，則將它刪除。,Command1Command2,下轉 第

42、2章VB教材舉例 \ 15 (2.2.2-8),44,(3) 列表框事件：,列表框的常用事件為 Click 和 DblClick,Click------表示單擊列表框中的某一項DblClick------表示雙擊列表框中的某一項,舉例：Page 25 在窗體上設置一個文本框和一個列表框，列表框中是一組職工類型名，單擊之一，可在文本框顯示出選定的類型名。,45,文本框列表框,,,下轉 第2章VB教材舉例 \

43、16 (2.2.2-9),Private Sub List1_Click() Text1.Text = List1.List(List1.ListIndex) ‘ Text1.Text = List1.TextEnd Sub,46,舉例：Page 25 [例2-3] 統(tǒng)計考試成績的程序示例,文本框 1文本框 2文本框 3,,,,列表框,,Command1 command2 command3

44、 command4,,,,,下轉 第2章VB教材舉例 \ 17 (2.2.2-10),47,5、組合框(ComboBox),,在工具箱中的組合框工具,組合框 = 文本框 + 列表框在列表框中所選項目的文本會自動填入文本框。,(1) 組合框的屬性：,- 名稱：缺省值為Combo1、Combo2、……。建議以組合框的實際意義加前綴Cbo組成。,- Text文本屬性：它是默認屬性 ，表示組合框中選中的文本或某列表項目。

45、,48,- Style外觀屬性：該屬性選擇組合框中的樣式。,0 ……下拉式組合框,默認設置文本框 + 能下拉的列表框既可在文本中輸入文字，又可打開下拉式列表，選擇列表項目。,1……簡單組合框,文本框 +不能下拉的列表框可以在文本中輸入、也可以在列表中選擇,文本框,文本框,列表框,列表框,,,,,49,2 ……下拉式列表,能下拉的列表框此形式無文本框，只能在下拉列表中選擇,列表框,（2）組合框方法前面所述列表框的方法，組合框均適

46、用。（3）組合框事件組合框外觀屬性中： 0、2 模式可響應 Click事件 1 模式可響應 DblClick事件,下轉 第2章VB教材舉例 \ 18 (2.2.2-11),,50,1) 圖像框(Image),,在工具箱中的圖像框工具,功能：圖像框用來顯示圖像。,（1）圖像的屬性：,- 名稱：缺省值為Image1、Image2、……。建議以圖像的實際

47、意義加前綴Img組成。,- Picture屬性：它是默認屬性 ，返回或設置控件中要顯示的圖像。,6、圖象控件（Image）和圖片框控件（PictureBox）,51,object.Picture [= picture],語法格式：,,需要加載到圖像框中的圖像 ( 指明圖像所在的位置----路徑與文件名 ) 。它所能使用的圖像格式 為位圖文件 ：.bmp；圖標文件：. ico；以及圖元文件 .wmf ；增強型圖元文件 .emf；JP

48、EG文件；GIF文件。,在設計時：只要在屬性窗口，使用Picture屬性，指明圖像文件的位置即可,在運行時：使用上述語法格式，外加LoadPicture函數(shù)，即能加載圖像,52,例：在窗體中創(chuàng)建一個圖像框，一個按鈕。當按鈕按下時，顯示圖像。,Option ExplicitPrivate Sub Command1_Click() Image1.Picture = LoadPicture(” E:\qiqi的文檔\My P

49、ictures\教學用圖片\1.jpg")End Sub,下轉 第2章VB教材舉例 \ 19 (2.2.2-12),圖像框,,53,2） 圖形框(PictureBox),,在工具箱中的圖形框工具,功能：圖形框用來顯示圖形。,（1）圖形框屬性：,- 名稱：缺省值為Picture1、Picture2、……。建議以圖形框的實際意義加前綴Pic組成。,- Picture屬性：它是默認屬性 ，返回或設置控件中要顯示的圖片。

50、,54,object.Picture [= picture],語法格式：,,需要加載到圖形框中的圖形 ( 指明圖形所在的位置----路徑與文件名) 。它所能使用的圖形格式為 .Bmp，.ico， GIF， JPEG等,在設計時：只要在屬性窗口，使用Picture屬性，指明圖形文件的位置即可,在運行時：使用上述語法格式，外加LoadPicture函數(shù)，即能加載圖片,55,舉例： 在窗體中創(chuàng)建一個圖形框，一個按鈕

51、。當按鈕按下時，顯示圖片。,Option ExplicitPrivate Sub Command1_Click() Picture1.Picture = LoadPicture(“E:\qiqi的文檔\My Pictures\教學用圖片\2.jpg")End Sub,下轉 第2章VB教材舉例 \ 20 (2.2.2-13),56,例：制作電子像冊,Option ExplicitDim i As Integer

52、Private Sub Command1_Click() Dim t As String i = i + 1 If i >= 30 Then i = 1 t = ” E:\qiqi的文檔\My Pictures\教學用圖片\“+ Trim(Str(i)) + ".jpg" Picture1.Picture = LoadPicture(t)End SubPrivate

53、Sub Command2_Click() Dim t As String i = i - 1 If i <= 0 Then i = 30 t = ” E:\qiqi的文檔\MyPictures\教學用圖片\" + Trim(Str(i)) + ".jpg" Picture1.Picture = LoadPicture(t)End Sub,下轉 第2章VB教材舉

54、例 \ 21 (2.2.2-14),57,(2) 圖形框的方法：,- Print方法：在圖形框中輸出文字。,例：在圖形框中輸出文字,Option ExplicitPrivate Sub Command1_Click() Picture1.Print Tab(1); "12" Picture1.Print Tab(2); "123" Picture1

55、.Print Tab(3); “學習VB"End Sub,下轉 第2章VB教材舉例 \ 22 (2.2.2-15),58,- Circle方法：在圖形框中輸出一個圓或部分圓或橢圓。,語法格式：,object.Circle [Step] (x, y), radius, [color, start, end, aspect],必需的。圓、橢圓或弧的中心坐標Single(單精度浮點數(shù)),,,必需的。圓、橢圓或弧的半徑 Sin

56、gle(單精度浮點數(shù)),,,可選項。圓的輪廓的 RGB顏色,,當弧、或部分圓或橢圓畫完以后，start 和 end 指定(以弧度為單位)弧的起點和終點位置。以弧度為單位,,,圓的縱橫尺寸比,59,- Line方法：在圖形框中輸出一條線或一個矩形。,語法格式：,object.Line [Step] (x1, y1) - [Step] (x2, y2), [color], [B][F],直線或矩形的起點坐標,,直線或矩形的終點坐標,,直線或

57、矩形的顏色?？捎肦GB函數(shù)設定,,以起點到終點之間畫矩形,如果使用了 B 選項，則 F 選項規(guī)定矩形以矩形邊框的顏色填充。不能不用 B 而用 F。如果不用 F 光用 B，則矩形用當前的 FillColor 和 FillStyle 填充。 FillStyle的缺省值是Transparent,,60,例：在一個圖形框中畫一個圓，一個橢圓，一條線，一個矩形。,Option ExplicitPrivate Sub Command1_Click

58、() Picture1.Circle (1200, 1000), 750 Picture1.Circle (1200, 2800), 500, , , , 0.5 Picture1.Line (2500, 1500)-(3500, 1500) Picture1.Line (3500, 2000)-(4000, 3000), , BEnd Sub,下轉 第2章VB教材舉例 \ 23 (2.2.2-16),

59、61,討論：圖形框(PictureBox)與圖像框(Image)的區(qū)別,1、圖像框只能顯示它所支持的圖像(例：位圖文件 .bmp ; 圖標文件 .ico ; 圖元文件 .wmf ；增強型圖元文件 .emf；JPEG文件；GIF文件。,2、圖像框可以伸展圖片的大小使之適合控件的大小。而圖形框(PictureBox)控件不行。,3、圖像框(Image)執(zhí)行的速度比圖形框(PictureBox)快。,而圖形框除了支持圖像框的所有文件外，還能繪

60、制各種線條組成的圖形( 例：線條 ；圓；矩形等 ),Autosize(圖片框)：取值為True時，該控件能自動調節(jié)大小以顯示完整的圖形Stretch(圖像框)：取值為False時，圖像框可自動改變大小以適應加載的圖形；取值為True時，則加載的圖形可自動調整尺寸以適應圖像框的大小,62,7、選項按鈕(OptionButton)、復選框（CheckBox)與框架控件（Frame),,在工具箱中的選項按鈕工具（單選項）,功能：選項按鈕用

61、于從一組 互斥 的選項中選取一個選項,1）選項按鈕,外觀： 表示未選中 表示選中,,,,選項按鈕的屬性：,（1）名稱：缺省值為Option1、Option2、……。建議以選項按鈕的實際意義加前綴Opt組成。,（2）缺省屬性：為Value。值為 True ------ 選中，F(xiàn)alse ----- 沒選中,63,2）復選框(CheckBox),,在工具箱中的復選框工具,復選框的屬性：,功

62、能：復選框用來在多個選項中選擇一個或多個選項,（1）名稱：缺省值為Check1、Check2、……。建議以文本框的實際意義加前綴 chk 組成。,（2）Value屬性：是默認屬性，決定該復選框是否被選中0 --- Unchecked (缺省值) 沒選中1 --- Checked 選中2 --- Grayed 暗淡,其中： 0 可用 VbUnChecked 代替 1 可用 VbChecked 代

63、替 2 可用 VbGrayed 代替,,,,64,3）框架(Frame),,在工具箱中的框架工具,功能：框架用來為相關控件提供 可標識的分組,在窗體上創(chuàng)建框架的操作步驟：,（1）先繪制框架，然后設置框架的Caption屬性，即框架標題。（2）在框架內(nèi)創(chuàng)建選項按鈕組或復選框組。若需移動框架，框架中的控件組將一起移動。,65,[例2-4] 改變文字風格的應用程序,框架,選項按鈕,復選框,文本框,下轉 第2章VB教材舉例 \ 24 (2

64、.2.2-17),,,,,66,8、水平滾動條與垂直滾動條（HScrollBar & VScrollBar),對于文本框、列表框、組合框控件，當其所含的信息量大于框口時，框邊會自動出現(xiàn)滾動條，不需用戶設計 舉例：在用戶界面中添加滾動條舉例：商品打折小程序,下轉 第2章VB教材舉例 \ 25 (2.2.2-18),定制滾動條：,注意修改max和min屬性；,67,9、計時器控件（Timer）： 功能：當控

65、件設定時間后，在引發(fā) Timer 事件時，將有規(guī)律地執(zhí)行 Timer 事件過程中的程序代碼,下轉 第2章VB教材舉例 \ 26 (2.2.2-19),舉例：會鳴叫的電子表（電子表每跳動一次，計算機發(fā)出一聲蜂鳴聲）,68,舉例：天空中飄行的 熱氣球,下轉 第2章VB教材舉例 \ 27 (2.2.2-20),Private Sub Command1_Click() Timer1.Enabled =

66、 TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubDim x As IntegerPrivate Sub Timer1_Timer() For x = 0 To Form1.Width Ima.Left = x Next xEnd Sub,69,舉例：天空中 飛行的飛機,下轉 第2章VB教材舉例 \ 2

67、8 (2.2.2-21) ……飛機使用圖象框設置,Private Sub Command1_Click()Dim x As Integer For x = 0 To Form1.Width fg.Left = x fg.Top = x / 1.5 Next xEnd SubPrivate Sub Command2_Click() EndEnd Sub,70,& 2.3 制作菜單,2.3

68、.1 菜單概述,菜單是現(xiàn)代應用程序中不可缺少的用戶界之一。它的主要功能是： 提供人機對話界面，讓使用者選擇所需功能,在Windows中典型的菜單有二種： 1、下拉式菜單 2、彈出式菜單（ 如：按鼠標右鍵，出現(xiàn)快捷菜單）,71,下面看一個菜單實例：Windows中的記事本,菜單條（菜單）,,,菜單,72,下拉菜單,分隔符條,,,,快捷鍵,,菜單項（菜單命令）,73,2.3.2

69、 使用菜單編輯器,1、打開 “菜單編輯器”的方法:1）菜單欄：工具 菜單編輯器……2）工具欄：菜單編輯器3）按快捷鍵 Ctrl+E 操作 1 或 2 、 3：出現(xiàn)菜單編輯器,,,,,74,出現(xiàn)在菜單中的文本,編程代碼中引用的菜單名稱,,使選中菜單項往前提升一層,,使選中菜單項往后挪一層,,使選中菜單項與前一個命令對調,使選中菜單項與后一個命令對調,,,對某個菜單項設置快捷鍵,,2、菜單編輯器的結構與

70、功能,,75,,跳到下 一個菜單項,在選中菜單項前面插入一個菜單項,,將選中菜單項刪除,,76,3、利用菜單編輯器創(chuàng)建菜單舉例：創(chuàng)建一個某應用程序的菜單，目錄如下 菜單名 一級下拉菜單 快捷鍵 文件（F） ： 新建（N） Ctrl+N 打開（O

71、）… Ctrl+O 保存（S）… 文字（W）： 字體（A） 字號（B） 一號