1、第第5 5章章VBVB程序設計之三程序設計之三常用控件使用常用控件使用( (P93P107)P93P107)問題與任務問題與任務P98-例例5-7新知識點新知識點 單選按鈕、復選框及框架單選按鈕、復選框及框架 列表框和組合框列表框和組合框單選按鈕和復選框單選按鈕和復選框1、功能：、功能： 功能：表示功能：表示“選中選中”和和“不選不選”兩種狀態。兩種狀態。2、表示：、表示：單選按鈕用單選按鈕用“”,而復選框用而復選框用“”表示選表示選中中3、主要屬性、主要屬性（1）name（2）caption（3）value單選鈕單選鈕Value: ( (邏輯型邏輯型) ) True 被選中被選中 False

2、未被選中未被選中復選框復選框Value ：(數值型）數值型） 0 復選框未被選中復選框未被選中1 復選框被選中復選框被選中2 復選框被禁止操作，顯復選框被禁止操作，顯示灰色示灰色應用應用1 1 Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.FontItalic = TrueElse Text1.FontIt

3、alic = FalseEnd IfEnd SubPrivate Sub Option1_Click()If Option1.Value = True Then Text1.FontName = 隸書End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True Then Text1.FontName = 黑體End If3、框架、框架功能功能分組：將功能相同的控件分成一組，放入同一個分組：將功能相同的控件分成一組，放入同一個框架中。框架中。美觀美觀框架與其中的控件組成一體，框架內所有控件將框架與其中的控件組成一體，框架內所有控件

4、將隨框架一起移動，顯示、消失和屏蔽隨框架一起移動，顯示、消失和屏蔽主要屬性主要屬性： Caption Visible enabled建立方法：建立方法：創建：建立框架創建：建立框架畫出其它控件畫出其它控件應用應用2組合框和列表框組合框和列表框1 1、列表框、列表框功能功能：顯示多個選擇項，供用戶選擇。顯示多個選擇項，供用戶選擇。特征：只能從其中選擇，而不能直接修改其特征：只能從其中選擇，而不能直接修改其中的內容。中的內容。List List ：PD PD 字符型數組，字符型數組，存放列表框的項目存放列表框的項目，下標是從，下標是從0 0開始。開始。 ListIndexListIndex：P P

5、 選中的項目的序號選中的項目的序號，沒有項目被選定時為，沒有項目被選定時為-1-1 ListCountListCount：P P 項目的數量項目的數量，ListCount-1ListCount-1是最后一項的下標。是最后一項的下標。 TextText：P P 列表項中被選定的內容：列表項中被選定的內容： List1.List(List1.ListIndex) = List1.TextList1.List(List1.ListIndex) = List1.Text name:name:列表對象的名稱列表對象的名稱主要屬性主要屬性Sorted：D True：按字母順序排列。按字母順序排列。 Fal

6、se：按加入先后順序排列。按加入先后順序排列。Selected：P 邏輯數組邏輯數組 Selected(i)的值為的值為True表示第表示第i+1項被選中。項被選中。MultiSelect 0-None：禁止多項選擇。禁止多項選擇。 1-Simple：簡單多項選擇。簡單多項選擇。(鼠標或空格）鼠標或空格） 2-Extended：擴展多項選擇。（擴展多項選擇。（shift/ctrl)列表框各主要屬性的值：列表框各主要屬性的值： List1.ListIndex = 3 (下標從下標從0開始的開始的) List1. ListCount = 5 List1. Selected(3) = True，其余

7、為其余為False。 List1. Sorted = False，沒有排序。沒有排序。 List1. Text 為為 “cox” ，與與List1. List(List1. ListIndex)相等相等 主要事件：主要事件： Click ,dbclick主要方法主要方法AddItem方法方法格式：格式： 列表框名列表框名.AddItem 項目字符串，位置值項目字符串，位置值功能：功能： 將項目字符串所指定的一個項目插入到由位置值所將項目字符串所指定的一個項目插入到由位置值所指定的位置上。指定的位置上。說明：說明： 每插入一項每插入一項ListCount屬性值都會自動加屬性值都會自動加1。位置值

8、。位置值可以從可以從0到到ListCount-1變化。變化。 若省略位置值，則新增項目添加到列表框最后面。若省略位置值，則新增項目添加到列表框最后面。Clear方法方法 格式：列表框名格式：列表框名.Clear 功能：該方法用于清除列表框中的所有項目，此時功能：該方法用于清除列表框中的所有項目，此時ListCount屬性值置屬性值置0。 RemoveItem方法方法 格式：列表框名格式：列表框名.RemoveItem 位置值位置值 功能：功能： 該方法將指定位置上的項目從列表框中刪除，該方法將指定位置上的項目從列表框中刪除，此時此時ListCount屬性值自動減屬性值自動減1。應用應用3(P9

9、6)-例例5-6Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()For i = 0 To List1.ListCount - 1If List1.Selected(i) Then List2.AddItem List1.List

10、(i)End IfNextEnd Sub2.2.組合框組合框作用作用：擁有文本框和列表框的功能，在列表框：擁有文本框和列表框的功能，在列表框中列出可供用戶選擇的選項，當用戶選定某中列出可供用戶選擇的選項，當用戶選定某項后，該項內容自動裝入文本框中。項后，該項內容自動裝入文本框中。特征：特征：可以像文本框一樣接受用戶的輸入，也可以像文本框一樣接受用戶的輸入，也能像列表框一樣列舉多個項目供用戶選擇。能像列表框一樣列舉多個項目供用戶選擇。主要屬性主要屬性 list,listindex,listcount,text,name,sorted style類型類型屬性值屬性值輸入輸入下拉式組合框下拉式組合框

11、0 0能能簡單組合框簡單組合框1 1能能下拉式列表框下拉式列表框2 2不能不能 主要方法主要方法1、AddItem 對象對象.AddItem item , index index: 0ListCount-1.每插入一項每插入一項ListCount自動加自動加12、RemoveItem 對象對象.RemoveItem index該方法將指定位置的項目刪除，同時該方法將指定位置的項目刪除，同時ListCount自動減自動減13、Clear 對象對象.Clear清除所有項目，清除所有項目，ListCount置置0應用應用4 4綜合應用綜合應用Private Sub Command1_Click()T

12、ext3 = 學號學號: & Text1.Text & vbCrLfText3 = Text3 & 姓名姓名: + Text2.Text & vbCrLfIf Option1.Value = True ThenText3 = Text3 & 性別性別: + 男男 & vbCrLfElseIf Option2.Value = True Then Text3 = Text3 & 性別性別: + 女女 & vbCrLfEnd IfText3 = Text3 & 系別系別: + Combo1.Text & vbCrLfTe

13、xt3 = Text3 & 籍貫籍貫: + List1.Text & vbCrLfEnd Sub問題與任務問題與任務 設計實現下列功能：當拖動滾動條的時候，圖設計實現下列功能：當拖動滾動條的時候，圖片的高度隨著滑塊的位置變化，逐漸展開直至片的高度隨著滑塊的位置變化，逐漸展開直至全部。全部。新知識點新知識點-滾動條滾動條1 1、功能：、功能： 附在窗體上協助觀察數據或確定位置，作為附在窗體上協助觀察數據或確定位置，作為數據輸入的工具。數據輸入的工具。2 2、分類：、分類： 水平滾動條水平滾動條 垂直滾動條垂直滾動條3 3、主要屬性、主要屬性Max：最大值（最大值（-3276832

14、767）Min：最小值（最小值（-3276832767） SmallChange：用戶單擊滾動條用戶單擊滾動條兩端箭頭兩端箭頭時時, 滑塊移動的增量值滑塊移動的增量值.LargeChange：用戶單擊滾動條的用戶單擊滾動條的空白處，空白處，滑塊移動的增量值。滑塊移動的增量值。Value：滾動條內滑塊所處位置所代表的值。滾動條內滑塊所處位置所代表的值。4 4、主要事件、主要事件Scroll: 拖動滑塊拖動滑塊時觸發時觸發Change：滾動條內滑塊滾動條內滑塊位置改變時位置改變時發生。發生。應用應用5 5問題與任務問題與任務設計實現下列功能：圓球從窗體左邊滑動到右邊設計實現下列功能：圓球從窗體左邊

15、滑動到右邊新知識點新知識點1 1、形狀控件、形狀控件2 2、時鐘控件、時鐘控件形狀控件形狀控件（ShapeShape）1、功能：、功能： 用來畫矩形、正方形、橢圓、圓、圓角矩形及圓用來畫矩形、正方形、橢圓、圓、圓角矩形及圓角正方形。角正方形。2、主要屬性：、主要屬性：fillstyle(填充樣式）填充樣式）,fillcolor（填充顏（填充顏色）色）,shape（圖形樣式）（圖形樣式）Shape屬性值屬性值形狀形狀0矩形（默認值）矩形（默認值）1正方形正方形2橢圓橢圓3圓圓4圓角矩形圓角矩形5圓角正方形圓角正方形時鐘控件時鐘控件1 1、功能：、功能： 以一定的時間間隔激發計時器事件而執行相應的

16、程序代碼。以一定的時間間隔激發計時器事件而執行相應的程序代碼。2、主要屬性、主要屬性（1）Interval屬性屬性 單位：單位：ms(0.001s)，0.5秒是秒是500。 Interval0：屏蔽計時器。屏蔽計時器。 范圍：范圍：065535ms，最大約最大約65s。（2）Enabled屬性屬性 True：有效計時有效計時 False：停止時鐘工作停止時鐘工作3、主要事件：、主要事件：timer問題與任務問題與任務設計實現下列功能：圓球從窗體左邊滑動到右邊設計實現下列功能：圓球從窗體左邊滑動到右邊Private Sub Command1_Click()Timer1.Enabled = Tru

17、eEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Shape1.Left Form1.Width Then Shape1.Left = 0ElseShape1.Left = Shape1.Left + 100End IfEnd Sub三個常用的系統日期函數：三個常用的系統日期函數：Time():系統時間系統時間Date():系統系統日期日期Now()：系統日期和時間系統日期和時間問題與任務問題與任務 例例5-85-8控制文本框或組合框中輸入的只控制文本框或組

18、合框中輸入的只能是數字字符。能是數字字符。If Not If Not IsNumericIsNumeric(Text1.Text) Then(Text1.Text) ThenMsgBox MsgBox 錯誤錯誤 End IfEnd If判斷文本框判斷文本框1 1中的內容是中的內容是否是數字字符。否是數字字符。思考與應用思考與應用Private Sub Command1_Click()計算圓的面積計算圓的面積Dim r!, s!r = Val(Text1.Text)s = 3.14 * r * rText2.Text = sEnd SubPrivate Sub Text1_LostFocus()

19、 失去焦點時執行失去焦點時執行If Not IsNumeric(Text1.Text) Then MsgBox 輸入的內容包含非數字字符輸入的內容包含非數字字符 + vbCrLf + 請重新輸請重新輸入入, , 信息警告信息警告 Text1.Text = Text1.SetFocusEnd IfEnd Sub鍵盤事件鍵盤事件在在Visual Basic 6.0中常用的鍵盤事件有中常用的鍵盤事件有3個：個： KeyPress事件：用戶按下并釋放一個能產生事件：用戶按下并釋放一個能產生ASCII碼的鍵時被觸發。碼的鍵時被觸發。 KeyUp事件：用戶釋放任一鍵時被觸發。事件：用戶釋放任一鍵時被觸發。

20、 KeyDown事件：用戶按下任一鍵時被觸發。事件：用戶按下任一鍵時被觸發。鍵盤和鼠標事件鍵盤和鼠標事件KeyPress事件事件 按下并釋放有按下并釋放有ASCIIASCII碼的鍵才會被觸發。方向鍵不觸碼的鍵才會被觸發。方向鍵不觸發該事件發該事件, ,功能鍵不觸發該事件。功能鍵不觸發該事件。事件參數事件參數觸發條件觸發條件keyAscii(keyAscii(字符的字符的ASCIIASCII碼數值碼數值) )，如按鍵，如按鍵“a”a”時，時， keyAsciikeyAscii參數值為參數值為9797。如果是。如果是“A”A”呢？呢？事件過程形式事件過程形式Private Sub Text1_Ke

21、yPress(KeyAscii as Integer)End Sub作用作用可以對輸入的數據進行限制和檢查，從可以對輸入的數據進行限制和檢查，從而保證輸入內容的有效性。而保證輸入內容的有效性。 KeyUpKeyUp：釋放釋放任一鍵任一鍵觸發該事件。觸發該事件。 KeyDownKeyDown：按下任一鍵觸發該事件。按下任一鍵觸發該事件。 KeyUp和和keyDown事件事件觸發條件觸發條件事件過程形式事件過程形式Private Sub Text1_KeyUp(KeyCode as Integer，Shift as Integer) End SubPrivate Sub Text1_Key Dow

22、n(KeyCode as Integer，Shift as Integer) End SubKeyUp和和keyDown事件事件事件過程參數事件過程參數KeycodeKeycode（鍵盤掃描碼）：物理鍵。鍵盤掃描碼）：物理鍵。上檔字符和下檔字符相同，為上檔字符和下檔字符相同，為。小寫字母和大寫字母的小寫字母和大寫字母的keycodekeycode相同，為相同，為。”a”a”和和“A”A”的的keycodekeycode為為6565。注意大鍵盤的注意大鍵盤的“1”“1”與數字小鍵盤的與數字小鍵盤的“1”“1”的的keycodekeycode是不同的。是不同的。ShiftShift：根據按鍵時是否

23、同時按下根據按鍵時是否同時按下ShiftShift、CtrlCtrl和和AltAlt返返回一個整數。回一個整數。Shift: 1 Ctrl :2 Alt:4 Shift: 1 Ctrl :2 Alt:4 例如：按鍵同時按下例如：按鍵同時按下Shift+Ctrl,Shift+Ctrl,則則ShiftShift參數為參數為3 3。KeyDown -KeyDown -KeyPress -KeyPress -keyUpkeyUp3個鍵盤事件的觸發順序：個鍵盤事件的觸發順序：啟動下列程序啟動下列程序, ,在窗體上按功能鍵在窗體上按功能鍵F1,F1,輸出結果為輸出結果為_._.Private Sub Fo

24、rm_KeyDown(KeyCode As Integer, Shift As Integer) Print F1 Down;End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Print F1 Press;End Sub習題：習題：鼠標事件鼠標事件常用的鼠標事件常用的鼠標事件什么是鼠標事件？什么時候需要對鼠標事件編程？什么是鼠標事件？什么時候需要對鼠標事件編程？lClickClick和和DblClickDblClick事件事件lMouseDownMouseDown事件事件: :當鼠標的任意按鈕被按下時觸發當鼠標的任意按鈕被按下時觸發lM

25、ouseUPMouseUP事件：當鼠標的任意按鈕被釋放時觸發事件：當鼠標的任意按鈕被釋放時觸發lMouseMoveMouseMove事件：當鼠標被移動時觸發事件：當鼠標被移動時觸發 用戶操作鼠標而引發的能被用戶操作鼠標而引發的能被VBVB中各種對象識別的中各種對象識別的事件事件命令按鈕順序是命令按鈕順序是: :mousedown- click - mousedown- click - mouseupmouseup Private Sub Form_MouseDown(Private Sub Form_MouseDown(Button Button as Integeras Integer，Sh

26、iftShift as Integer,as Integer,X X as Integer, as Integer,Y Y as Integer) as Integer) MouseUP MouseUP和和MouseMoveMouseMove與此類似。與此類似。事件過程形式事件過程形式Button: 左鍵(1) 右鍵右鍵(2) 中鍵(4)Shift: Shift （1） Ctrl（2） alt（4）X、Y:當前鼠標指針的位置如果按鼠標的時候同時按了如果按鼠標的時候同時按了shift和和alt鍵，則鍵，則shift參數的值是參數的值是?事件過程參數事件過程參數Button，shift，x，yPr

27、ivate Sub Command1_Click() Print 1End SubPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 2End SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 3End SubPrivate Sub Form_Click() Print 3End SubPrivat

28、e Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 2End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 1End Sub順序是順序是: :mousedown- mouseup - clickmousedown- mouseup - clickPrivate Sub Form_MouseDown(Button As In

29、teger, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Print AAAAA End IfEnd Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print BBBBBEnd Sub如果單擊鼠標右鍵,輸出結果是_.窗體上有一空文本框窗體上有一空文本框text1，執行以下程序后在文本框中輸入執行以下程序后在文本框中輸入abc123，單擊按鈕后運行結果是單擊按鈕后運行結果是_。Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub