控件數(shù)組 (2)

1、控件數(shù)組 一組具有共同名稱和類型的控件 事件過程也相同 最大索引值為 32767 元素有自己的屬性設(shè)置值 控件數(shù)組優(yōu)點(diǎn) 消耗的資源要少 共享代碼 控件數(shù)組建立 設(shè)計(jì)時 “復(fù)制”和“粘貼”操作設(shè)置name的屬性相同，即相同的名字。設(shè)置index的屬性不同，即不同的索引值。運(yùn)行時 必須在設(shè)計(jì)時創(chuàng)建一個(在大多數(shù)情況下)Index 屬性為 0 的控件。然后在運(yùn)行時使用：Load object(index%)Unload object(index%)通過通過left、top確定其位置；確定其位置；Visible屬性設(shè)置為屬性設(shè)置為True。Style=0Style=1（七）（七） 列表框列表框(Lis

2、tBox)ListBox 控件顯示項(xiàng)目列表，從其中可以選擇一項(xiàng)或多項(xiàng)。如果項(xiàng)目總數(shù)超過了可顯示的項(xiàng)目數(shù)，就自動在 ListBox 控件上添加滾動條。List(0) =List(1) =List(2) =List(3) =List(4) =InferFiercePieceCoxBadListIndex =ListCount =Selected(3) =Sorted = Text =與與List(list1.ListIndex)的值相等的值相等5True，其余為，其余為FalseFalse，沒有排序。，沒有排序?！癱ox” 3 (下標(biāo)從下標(biāo)從0開始的開始的)1、主要屬性List： 字符型數(shù)組，存放

3、列表框的項(xiàng)目，下標(biāo)是從0開始的。如：List(0)表示第一項(xiàng)(Listindex=0)的內(nèi)容ListIndex：選中的項(xiàng)目序號，沒有項(xiàng)目選中時為-1ListCount：項(xiàng)目數(shù)量，ListCount-1是最后一項(xiàng)的下標(biāo)。Selected：邏輯數(shù)組，表示列表項(xiàng)選中狀況。Selected(i)的值為True表示第i+1項(xiàng)被選中，否則沒有選中。Text：被選中列表項(xiàng)的內(nèi)容，相當(dāng)于List(ListIndex) 。Sorted：True：按字母順序排列；False：按加入先后順序排列MultiSelect：0-None：禁止多項(xiàng)選擇；1-Simple：簡單多項(xiàng)選擇；2-Extended：擴(kuò)展多項(xiàng)選擇。只

4、能在程序中設(shè)置或引用只能在程序中設(shè)置或引用只能在設(shè)計(jì)狀態(tài)中設(shè)置只能在設(shè)計(jì)狀態(tài)中設(shè)置2、方法AddItem 把一個項(xiàng)目（字符串）插入列表框。 使用形式： 對象對象.AddItem item , index其中 : item: 為字符串表達(dá)式，表示要加入的項(xiàng)目。 index:決定新增項(xiàng)目的位置，缺省則添加在最后RemoveItem 刪除列表框中一個項(xiàng)目。 使用形式： 對象對象.RemoveItem index 其中：index為被刪除項(xiàng)目在列表中的位置。首項(xiàng)為0Clear 清除列表框中的所有內(nèi)容。 使用形式 對象對象.Clear注意：“對象”可以是列表框、組合框或剪貼板剪貼板。3、事件 Click

5、 、 DblClick（八）（八） 組合框組合框(ComboBox) ComboBox 控件是由 TextBox 控件和 ListBox 控件的特性結(jié)合在一起的控件。 1、屬性 ：具有列表框和文本框的大部分屬性。 Style屬性決定組合框三種不同的風(fēng)格：2、方法、事件；下拉式組合框下拉式組合框 簡單組合框簡單組合框 下拉式列表框下拉式列表框 Style=0 Style=1 Style=2不能輸入文本響應(yīng)鼠標(biāo)和鍵盤事件響應(yīng)鼠標(biāo)和鍵盤事件一、鼠標(biāo)器事件按下鼠標(biāo)某一個鍵:Sub object_MouseDown(button%, shift%, x!, y!)釋放鼠標(biāo)某一個鍵:Sub object

6、_MouseUp(button%, shift%, x!, y!)移動鼠標(biāo)時:Sub object _MouseMove(button%, shift%, x!, y!) 參數(shù)（參數(shù)（Button） 值值 說明說明 vbLeftButton 1 左按鈕被按下 vbRightButton 2 右按鈕被按下 vbMiddleButton 4 中間按鈕被按下 參數(shù)（參數(shù)（Shift） 值值 說明說明 vbShiftMask 1(001) Shift 鍵被按下 vbCtrlMask 2(010) Ctrl 鍵被按下 vbAltMask 4(100) Alt 鍵被按下 參數(shù)（參數(shù)（Shift）的值）的值

7、 說明說明 3 (011) Ctrl 和 Shift 鍵被按下 5 (101) Alt 和 Shift 鍵被按下 6 (110) Alt 和 Ctrl 鍵被按下 7 (111) Alt 、Ctrl 和 Shift 鍵被按下 參數(shù)參數(shù) （ x, y）返回一個指定鼠標(biāo)指針當(dāng)前位置的數(shù)。二、 鍵盤事件 KeyPress事件: 按下并釋放一個會產(chǎn)生ASCII碼的鍵時觸發(fā) KeyDown事件: 按下任意鍵時觸發(fā) KeyUp事件; 釋放任意鍵時觸發(fā)KeyPress事件只對會產(chǎn)生ASCII碼的鍵有反應(yīng)，包括數(shù)字鍵、大小寫字母、數(shù)字鍵、大小寫字母、Enter、Backspace、Esc、Tab鍵鍵；方向鍵（方

8、向鍵（ ）不會產(chǎn)生KeyPress事件Sub object_KeyPress(keyascii As Integer)Sub object_KeyPress(keyascii As Integer) 參數(shù)（參數(shù)（ object）一個對象表達(dá)式，其值是某一個對象。參數(shù)（參數(shù)（keyascii） 是返回一個ASCII 碼的整數(shù)。 Sub Text1_KeyPress(KeyAscii As Integer) Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =13 Then If KeyAscii =13 Then End If End If

9、End Sub End SubSub object_KeyDown(keycode%Sub object_KeyDown(keycode%，shift%)shift%)Sub object_KeyUp(keycode%,shift%)Sub object_KeyUp(keycode%,shift%)參數(shù)（參數(shù)（keycode）代表用戶所操作的一個(物理的)鍵代碼。 keyascii所按鍵盤的Ascii值。 參數(shù)（參數(shù)（shift）與鼠標(biāo)器的參數(shù)Shift意義相同。例 以十六進(jìn)制形式輸出鍵盤上鍵的keycode碼。Sub Form_KeyDown(KeyCode As Integer, Shif

10、t As Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Integer)Print Chr(KeyCode);-; Hex(KeyCode)Print Chr(KeyCode);-; Hex(KeyCode)End SubEnd Sub運(yùn)行時，按下H鍵(不管大小寫)，窗體上顯示“H-48”。控件焦點(diǎn) 焦點(diǎn)是接收用戶鼠標(biāo)或鍵盤輸入的能力 當(dāng)對象具有焦點(diǎn)時，可接收用戶的輸入 在 Microsofe Windows界面中，任一時刻都可運(yùn)行幾個應(yīng)用程序，但只有具有焦點(diǎn)的應(yīng)用程序才有活動標(biāo)題欄，才能接受用戶輸入。焦點(diǎn)事件 GotFocus S

11、ub object_GotFocus( ) LostFocus Sub object_LostFocus( )例4.12KeyPreview 屬性屬性 object.KeyPreview = boolean object窗體 boolean 的設(shè)置值為： True窗體先接收鍵盤事件，然后是活動控件接收事件。 False（缺省值）活動控件接收鍵盤事件，而窗體不接收。拖放拖動控件，改變其位置。vDragDrop事件 Private Sub Object_DragDrop (Source As Control ， X As Single，Y As Single） Object為為窗體窗體或或控件控件 Source 為正在被拖動的控件為正在被拖動的控件 X、Y是一個指定當(dāng)前鼠標(biāo)指針在是一個指定當(dāng)前鼠標(biāo)指針在Object中的坐標(biāo)中的坐標(biāo) 水平水平 (x) 和垂直和垂直 (y) 位置的數(shù)字位置的數(shù)字 v將一個控件拖動到一個對象上，并釋放鼠標(biāo)按鈕后發(fā)生 DragMode屬性 0-Manu