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

1、1,新編Visual Basic程序設(shè)計(jì)教程,2,第 2 章 創(chuàng)建用戶界面,&2.1 創(chuàng)建窗體,打開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)建,3,2.1.1 窗體的屬性、方法與事件,Nam

2、e(名稱)：系統(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屬性：窗體的背景色,（見P14表2-1）,1. 屬性,4,BorderStyle: 窗體邊框風(fēng)格,Enabled: 有效屬性。決定對(duì)象是否

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

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

5、性窗口中為屬性設(shè)置值,方法1：,方法2：用語句設(shè)置屬性值,Object.Property=Expression,,對(duì)象名,,屬性名稱,設(shè)置新值,,設(shè)置屬性：,7,,舉例：窗體Form1設(shè)計(jì)時(shí)設(shè)置的標(biāo)題屬性值為“示例”，該窗體運(yùn)行時(shí)標(biāo)題自動(dòng)修改為“運(yùn)行示例”。,1、直接在窗體Form1的 屬性窗口中取標(biāo)題屬性Caption的屬性值為“示例”,方法：,2：在程序代碼中，用語句設(shè)置屬性值： Form1.Caption=“運(yùn)行示例

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

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

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

9、如下：,Name：CmdExitCaption: 退出,窗體2的屬性設(shè)置如下：,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,下轉(zhuǎn) 第2章VB教材舉例 \ 3 (2.1.3),ok,13,,2. 裝載窗體與Load事件,裝載語句: Load Object （Object為對(duì)象名） 功能：把窗體（或其它對(duì)象）載入內(nèi)存，但不顯 示。（由于VB程序運(yùn)行時(shí)會(huì)自動(dòng)裝載窗體，所以沒必要對(duì)窗體使用Load語句）,Load事件當(dāng)系統(tǒng)自動(dòng)裝載窗體時(shí)，能引發(fā)窗體的Load事件，造成Load事件過程。在使用Show方法顯示窗體時(shí)，亦會(huì)引發(fā)窗體

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

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

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

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

15、;-2;3 Print -4;-5;-6,下轉(zhuǎn) 第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、……。建議以文本框的實(shí)際意義加前綴 txt 組成。,- Text文本屬性：輸入到文本框的內(nèi)容。缺省時(shí)，可輸入2048個(gè)字符。若將 MultiLine 屬性設(shè)置成True，則可輸入多達(dá)32K的字符。,- PasswordChar口令屬性：創(chuàng)建密碼文本框。在此屬性中加一個(gè) “ * ”, 則運(yùn)行時(shí)此文本框中無論輸入什么字符，都只顯示 “ * ” 號(hào)。,舉例：使用口令屬性，創(chuàng)建一個(gè)密碼窗口,21

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

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

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

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

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

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

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

24、stify 右對(duì)齊2 - Center 中對(duì)齊,- AutoSize大小自適應(yīng)屬性：缺省值為False。當(dāng)設(shè)置為True時(shí)，標(biāo)簽?zāi)芩阶詣?dòng)調(diào)整大小以顯示所有的內(nèi)容。,- BackStyle背景風(fēng)格屬性：缺省值為 1 ，表示背景色或圖片不透明；當(dāng)設(shè)置為 0 ，則為透明 。,（2）方法 - Refresh 刷新方法 - Move 移動(dòng)方法,28,3、命令按鈕 (CommandButton)

25、,,在工具箱中的按鈕工具,屬性：,- 名稱：缺省值為Command1、Command2、…… 建議以按鈕的實(shí)際意義加前綴Cmd組成。,例：兩個(gè)按鈕，一個(gè)是加1，一個(gè)是退出。所以兩個(gè)按鈕的名稱分別命名為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,窗體模塊的對(duì)象為：,窗體模塊的代碼為：,30,- Caption按鈕標(biāo)題屬性：它是按鈕上的標(biāo)題顯示文字，建議以按鈕的實(shí)際意義組成。,- Cancel按鈕的取消屬性：決定按鈕是否是取消按鈕。當(dāng)某按鈕 Cancel 屬性設(shè)置為True時(shí)，按鍵盤上的 Esc 鍵就相當(dāng)于單擊此按鈕。,- Default按鈕的確定屬性：決定按鈕

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

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

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

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

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

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

33、為0、1、2、3 ……,- ListCount列表項(xiàng)數(shù)目:該屬性計(jì)算出列表框中表項(xiàng)的數(shù)量。,- ListIndex列表項(xiàng)索引：其值是最后選中的列表項(xiàng)序號(hào)（序號(hào) 0、1、2……），若末選任何項(xiàng)目,其值為-1。,下轉(zhuǎn) 第2章VB教材舉例 \ Text屬性演示,應(yīng)用舉例：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,舉例：一個(gè)列表框中有數(shù)行內(nèi)容，按下按鈕在文本框中輪流顯示列表框中的表項(xiàng),下轉(zhuǎn) 第2章VB教材舉例 \ 13 (2.2.2-6),理解 List , ListCount等,39,Option ExplicitPrivate Sub Form_Load() List1.AddItem &q

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

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

38、。,- Sorted 排序?qū)傩裕喝≈禐?True 時(shí)，列表項(xiàng)將按ASCII碼排序。取值為 False，不排序。,- Selected選擇屬性：當(dāng)某一列表項(xiàng)被選中時(shí)，該項(xiàng)的屬性值為 True ，否則為 False。本屬性表示方法與List 同。本屬性不能在屬性窗口中選，只能在程序代碼中使用。,Object . Selected (列表項(xiàng)序號(hào)),語法格式：,下轉(zhuǎn) 第2章VB教材舉例 \ 14 (2.2.2-7),同上下轉(zhuǎn)

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

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

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

42、2章VB教材舉例 \ 15 (2.2.2-8),44,(3) 列表框事件：,列表框的常用事件為 Click 和 DblClick,Click------表示單擊列表框中的某一項(xiàng)DblClick------表示雙擊列表框中的某一項(xiàng),舉例：Page 25 在窗體上設(shè)置一個(gè)文本框和一個(gè)列表框，列表框中是一組職工類型名，單擊之一，可在文本框顯示出選定的類型名。,45,文本框列表框,,,下轉(zhuǎn) 第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)計(jì)考試成績(jī)的程序示例,文本框 1文本框 2文本框 3,,,,列表框,,Command1 command2 command3

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

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

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

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

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

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

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

51、。當(dāng)按鈕按下時(shí)，顯示圖片。,Option ExplicitPrivate Sub Command1_Click() Picture1.Picture = LoadPicture(“E:\qiqi的文檔\My Pictures\教學(xué)用圖片\2.jpg")End Sub,下轉(zhuǎn) 第2章VB教材舉例 \ 20 (2.2.2-13),56,例：制作電子像冊(cè),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\教學(xué)用圖片\“+ 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\教學(xué)用圖片\" + Trim(Str(i)) + ".jpg" Picture1.Picture = LoadPicture(t)End Sub,下轉(zhuǎn) 第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); “學(xué)習(xí)VB"End Sub,下轉(zhuǎn) 第2章VB教材舉例 \ 22 (2.2.2-15),58,- Circle方法：在圖形框中輸出一個(gè)圓或部分圓或橢圓。,語法格式：,object.Circle [Step] (x, y), radius, [color, start, end, aspect],必需的。圓、橢圓或弧的中心坐標(biāo)Single(單精度浮點(diǎn)數(shù)),,,必需的。圓、橢圓或弧的半徑 Sin

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

57、矩形的顏色?？捎肦GB函數(shù)設(shè)定,,以起點(diǎn)到終點(diǎn)之間畫矩形,如果使用了 B 選項(xiàng)，則 F 選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用 B 而用 F。如果不用 F 光用 B，則矩形用當(dāng)前的 FillColor 和 FillStyle 填充。 FillStyle的缺省值是Transparent,,60,例：在一個(gè)圖形框中畫一個(gè)圓，一個(gè)橢圓，一條線，一個(gè)矩形。,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,下轉(zhuǎn) 第2章VB教材舉例 \ 23 (2.2.2-16),

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

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

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

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

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

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

65、件設(shè)定時(shí)間后，在引發(fā) Timer 事件時(shí)，將有規(guī)律地執(zhí)行 Timer 事件過程中的程序代碼,下轉(zhuǎn) 第2章VB教材舉例 \ 26 (2.2.2-19),舉例：會(huì)鳴叫的電子表（電子表每跳動(dòng)一次，計(jì)算機(jī)發(fā)出一聲蜂鳴聲）,68,舉例：天空中飄行的 熱氣球,下轉(zhuǎn) 第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,舉例：天空中 飛行的飛機(jī),下轉(zhuǎn) 第2章VB教材舉例 \ 2

67、8 (2.2.2-21) ……飛機(jī)使用圖象框設(shè)置,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)代應(yīng)用程序中不可缺少的用戶界之一。它的主要功能是： 提供人機(jī)對(duì)話界面，讓使用者選擇所需功能,在Windows中典型的菜單有二種： 1、下拉式菜單 2、彈出式菜單（ 如：按鼠標(biāo)右鍵，出現(xiàn)快捷菜單）,71,下面看一個(gè)菜單實(shí)例：Windows中的記事本,菜單條（菜單）,,,菜單,72,下拉菜單,分隔符條,,,,快捷鍵,,菜單項(xiàng)（菜單命令）,73,2.3.2

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

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

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