第5章VB程序設(shè)計3

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

2、未被選中未被選中復(fù)選框復(fù)選框Value ：(數(shù)值型）數(shù)值型） 0 復(fù)選框未被選中復(fù)選框未被選中1 復(fù)選框被選中復(fù)選框被選中2 復(fù)選框被禁止操作，顯復(fù)選框被禁止操作，顯示灰色示灰色應(yīng)用應(yīng)用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、框架、框架功能功能分組：將功能相同的控件分成一組，放入同一個分組：將功能相同的控件分成一組，放入同一個框架中。框架中。美觀美觀框架與其中的控件組成一體，框架內(nèi)所有控件將框架與其中的控件組成一體，框架內(nèi)所有控件

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

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

6、se：按加入先后順序排列。按加入先后順序排列。Selected：P 邏輯數(shù)組邏輯數(shù)組 Selected(i)的值為的值為True表示第表示第i+1項被選中。項被選中。MultiSelect 0-None：禁止多項選擇。禁止多項選擇。 1-Simple：簡單多項選擇。簡單多項選擇。(鼠標(biāo)或空格）鼠標(biāo)或空格） 2-Extended：擴(kuò)展多項選擇。（擴(kuò)展多項選擇。（shift/ctrl)列表框各主要屬性的值：列表框各主要屬性的值： List1.ListIndex = 3 (下標(biāo)從下標(biāo)從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。應(yīng)用應(yīng)用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.組合框組合框作用作用：擁有文本框和列表框的功能，在列表框：擁有文本框和列表框的功能，在列表框中列出可供用戶選擇的選項，當(dāng)用戶選定某中列出可供用戶選擇的選項，當(dāng)用戶選定某項后，該項內(nèi)容自動裝入文本框中。項后，該項內(nèi)容自動裝入文本框中。特征：特征：可以像文本框一樣接受用戶的輸入，也可以像文本框一樣接受用戶的輸入，也能像列表框一樣列舉多個項目供用戶選擇。能像列表框一樣列舉多個項目供用戶選擇。主要屬性主要屬性 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應(yīng)用應(yīng)用4 4綜合應(yīng)用綜合應(yīng)用Private Sub Command1_Click()T

12、ext3 = 學(xué)號學(xué)號: & 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問題與任務(wù)問題與任務(wù) 設(shè)計實現(xiàn)下列功能：當(dāng)拖動滾動條的時候，圖設(shè)計實現(xiàn)下列功能：當(dāng)拖動滾動條的時候，圖片的高度隨著滑塊的位置變化，逐漸展開直至片的高度隨著滑塊的位置變化，逐漸展開直至全部。全部。新知識點新知識點-滾動條滾動條1 1、功能：、功能： 附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，作為附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，作為數(shù)據(jù)輸入的工具。數(shù)據(jù)輸入的工具。2 2、分類：、分類： 水平滾動條水平滾動條 垂直滾動條垂直滾動條3 3、主要屬性、主要屬性Max：最大值（最大值（-3276832

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

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

16、程序代碼。以一定的時間間隔激發(fā)計時器事件而執(zhí)行相應(yīng)的程序代碼。2、主要屬性、主要屬性（1）Interval屬性屬性 單位：單位：ms(0.001s)，0.5秒是秒是500。 Interval0：屏蔽計時器。屏蔽計時器。 范圍：范圍：065535ms，最大約最大約65s。（2）Enabled屬性屬性 True：有效計時有效計時 False：停止時鐘工作停止時鐘工作3、主要事件：、主要事件：timer問題與任務(wù)問題與任務(wù)設(shè)計實現(xiàn)下列功能：圓球從窗體左邊滑動到右邊設(shè)計實現(xiàn)下列功能：圓球從窗體左邊滑動到右邊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三個常用的系統(tǒng)日期函數(shù)：三個常用的系統(tǒng)日期函數(shù)：Time():系統(tǒng)時間系統(tǒng)時間Date():系統(tǒng)系統(tǒng)日期日期Now()：系統(tǒng)日期和時間系統(tǒng)日期和時間問題與任務(wù)問題與任務(wù) 例例5-85-8控制文本框或組合框中輸入的只控制文本框或組

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

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

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

21、yPress(KeyAscii as Integer)End Sub作用作用可以對輸入的數(shù)據(jù)進(jìn)行限制和檢查，從可以對輸入的數(shù)據(jù)進(jìn)行限制和檢查，從而保證輸入內(nèi)容的有效性。而保證輸入內(nèi)容的有效性。 KeyUpKeyUp：釋放釋放任一鍵任一鍵觸發(fā)該事件。觸發(fā)該事件。 KeyDownKeyDown：按下任一鍵觸發(fā)該事件。按下任一鍵觸發(fā)該事件。 KeyUp和和keyDown事件事件觸發(fā)條件觸發(fā)條件事件過程形式事件過程形式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事件事件事件過程參數(shù)事件過程參數(shù)KeycodeKeycode（鍵盤掃描碼）：物理鍵。鍵盤掃描碼）：物理鍵。上檔字符和下檔字符相同，為上檔字符和下檔字符相同，為。小寫字母和大寫字母的小寫字母和大寫字母的keycodekeycode相同，為相同，為?！盿”a”和和“A”A”的的keycodekeycode為為6565。注意大鍵盤的注意大鍵盤的“1”“1”與數(shù)字小鍵盤的與數(shù)字小鍵盤的“1”“1”的的keycodekeycode是不同的。是不同的。ShiftShift：根據(jù)按鍵時是否

23、同時按下根據(jù)按鍵時是否同時按下ShiftShift、CtrlCtrl和和AltAlt返返回一個整數(shù)?；匾粋€整數(shù)。Shift: 1 Ctrl :2 Alt:4 Shift: 1 Ctrl :2 Alt:4 例如：按鍵同時按下例如：按鍵同時按下Shift+Ctrl,Shift+Ctrl,則則ShiftShift參數(shù)為參數(shù)為3 3。KeyDown -KeyDown -KeyPress -KeyPress -keyUpkeyUp3個鍵盤事件的觸發(fā)順序：個鍵盤事件的觸發(fā)順序：啟動下列程序啟動下列程序, ,在窗體上按功能鍵在窗體上按功能鍵F1,F1,輸出結(jié)果為輸出結(jié)果為_._.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習(xí)題：習(xí)題：鼠標(biāo)事件鼠標(biāo)事件常用的鼠標(biāo)事件常用的鼠標(biāo)事件什么是鼠標(biāo)事件？什么時候需要對鼠標(biāo)事件編程？什么是鼠標(biāo)事件？什么時候需要對鼠標(biāo)事件編程？lClickClick和和DblClickDblClick事件事件lMouseDownMouseDown事件事件: :當(dāng)鼠標(biāo)的任意按鈕被按下時觸發(fā)當(dāng)鼠標(biāo)的任意按鈕被按下時觸發(fā)lM

25、ouseUPMouseUP事件：當(dāng)鼠標(biāo)的任意按鈕被釋放時觸發(fā)事件：當(dāng)鼠標(biāo)的任意按鈕被釋放時觸發(fā)lMouseMoveMouseMove事件：當(dāng)鼠標(biāo)被移動時觸發(fā)事件：當(dāng)鼠標(biāo)被移動時觸發(fā) 用戶操作鼠標(biāo)而引發(fā)的能被用戶操作鼠標(biāo)而引發(fā)的能被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:當(dāng)前鼠標(biāo)指針的位置如果按鼠標(biāo)的時候同時按了如果按鼠標(biāo)的時候同時按了shift和和alt鍵，則鍵，則shift參數(shù)的值是參數(shù)的值是?事件過程參數(shù)事件過程參數(shù)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如果單擊鼠標(biāo)右鍵,輸出結(jié)果是_.窗體上有一空文本框窗體上有一空文本框text1，執(zhí)行以下程序后在文本框中輸入執(zhí)行以下程序后在文本框中輸入abc123，單擊按鈕后運行結(jié)果是單擊按鈕后運行結(jié)果是_。Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub