【正文】 組合框 (ComboBox) 1. 作用 : 提供列表 (可折疊 )、文本輸入 2. 屬性 1) List—列表內(nèi)容 (Ctrl+Enter換行 ) 2) Style—外形 0—下拉組合框 (折疊 ) 1—簡單組合框 (不折疊 ) 2—下拉列表框 (不能修改 Text屬性 ) 3) Text—文本框內(nèi)容 4) ListIndex—運(yùn)行期用，當(dāng)前選定項目的索引 索引從 0開始 5) ListCount—列表部分項目的總個數(shù) 6) Sorted—元素是否自動按順序排序 第九章 Visual Basic常用控件 35 3. 事件 組合框的事件與 Style屬性有關(guān)。 2. 屬性 1) Enabled: 將 Enabled設(shè)置為 False時將停止定時器的計時操作。 5) SmallChange:單擊滾動箭頭時，滾動條的 Value 值的改變量。 ActiveX控件文件的擴(kuò)展名為 .ocx。 \ 第九章 Visual Basic常用控件 53 2) Play：用于播放已經(jīng)打開的 .avi文件，格式： 對象名 .Play [重復(fù)次數(shù) ],[起始幀 ][,結(jié)束幀 ] 例如： 5, 3, 15 播放當(dāng)前打開的 .avi文件的第 3幀到第 15幀，共播放 5遍。 ―播放”按鈕 End Sub Private Sub Command3_Click() 39。 ? Multimedia MCI控件支持的部分多媒體設(shè)備：見 P187表 95 ? 例如， 使用 Multimedia MCI控件 MMControl1播放 avi文件，需要首先做以下設(shè)置： = AVIVideo 2) FileName：指定 Open命令將要打開的或者 Save命令將要保存的文件。 例如： = False 7) Frames：指定 Step或 Back命令步進(jìn)的幀數(shù)。對于 CD唱片， Tracks屬性指的是一張盤中共有多少個曲目。如果該屬性被設(shè)置為 True， 那么在下一條MCI命令完成時產(chǎn)生一個回調(diào)事件 (Done)。例如，從 Multimedia MCI控件的 Position、Length和 Mode等屬性中獲得狀態(tài)信息 3) Done事件：當(dāng) Notify屬性為 True的 MCI命令結(jié)束時發(fā)生。 Picture1 MMControl1 運(yùn)行界面： 第九章 Visual Basic常用控件 66 1) 在窗體的 Load事件過程中編寫如下代碼： Private Sub Form_Load() = AVIVideo = amp。 例如，以下為 Pause按鈕對應(yīng)的事件過程： Private Sub MMControl1_PauseClick(Cancel As Integer) …… End Sub 第九章 Visual Basic常用控件 64 2) StatusUpdate事件：按 UpdateInterval屬性所給定的時間間隔自動地發(fā)生。窗體和控件的句柄可以通過其 hWnd屬性獲得。 第九章 Visual Basic常用控件 61 13) Start：返回當(dāng)前媒體的起始位置。 例如： = False 第九章 Visual Basic常用控件 60 6) ButtonVisible：決定指定的按鈕是否在控件中顯示。 ? 簡單設(shè)備 ：不需要數(shù)據(jù)文件即可播放，如打開視頻或音頻 CD播放器，即可通過“曲目”進(jìn)行播放、回繞和快進(jìn)。 ―打開”按鈕 amp。 ?False : 在加載了 .avi文件后，需要使用 Play方法來播放該 .avi文件。移動范圍限制在圖片框內(nèi)部。 Timer1屬性 : Enabled—False Interval—1000 Cmd1 Cmd2 Cmd3 Timer1 Shape1 第九章 Visual Basic常用控件 41 Dim Flag As Integer Private Sub Cmd1_Click() = True Flag = 1 End Sub Private Sub Cmd2_Click() = True Flag = 0 End Sub Private Sub Cmd3_Click() = False End Sub 第九章 Visual Basic常用控件 42 Private Sub Timer1_Timer() If Flag = 0 Then If 200 Or 200 Then MsgBox 不能再縮小 , , 注意 = False Exit Sub 39。 內(nèi)存 :。 3. 方法 1) AddItem—向列表框中添加新的項目 對象名 .AddItem 項目 [,索引 ] 2) RemoveItem—從列表框中移除項目 對象名 .RemoveItem 索引 3) Clear—清除所有列表的 對象名 .Clear 第九章 Visual Basic常用控件 30 【例 97】 設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列 (字段 )名稱。 Option1 Option2 Value為 True的兩種顯示方式 Style為 1 Style為 0 Option3 Option4 Option5 Option6 Text1 第九章 Visual Basic常用控件 24 Private Sub Option1_Click() = vbBlack End Sub Private Sub Option2_Click() = vbYellow End Sub Private Sub Option3_Click() = vbRed End Sub Private Sub Option4_Click() = vbWhite End Sub Private Sub Option5_Click() = vbGreen End Sub Private Sub Option6_Click() = vbBlue End Sub 第九章 Visual Basic常用控件 25 復(fù)選框 (CheckBox) 1. 作用 多選一或多選多 (放在窗體上或其他容器中 ) 2. 屬性 1) Value 0—未選中 1—選中 2—灰度狀態(tài) (常用于表示不確定或 部分選中 ) 2) Alignment屬性 : 決定文本的對齊方式 3) Style: 控制外觀 0: 呈現(xiàn)為旁邊帶有小方框的默認(rèn)狀態(tài)。在窗體的 KeyDown事件過程中根據(jù)所返回的 KeyCode值實現(xiàn)對圖形的移動。 例如，某文本框 Text1的 KeyDown事件過程如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) …… End Sub ? KeyCode: 返回所操作鍵的代碼。 ?一個窗體僅在它沒有可視和有效的控件或KeyPreview屬性被設(shè)置為 True時才能接收該事件。 例如，窗體的 MouseMove事件過程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub （ Button 、 Shift、 X和 Y參數(shù)的作用同前） 注意：當(dāng)鼠標(biāo)指針在對象上移動時，并不是經(jīng)過每個像素都會產(chǎn)生 MouseMove事件，而是按每秒一定的次數(shù)生成 MouseMove事件。例如，鼠標(biāo)事件有 單擊、雙擊、按下、抬起、移動、拖動 等，鍵盤事件有 按鍵的按下、抬起 等。 注意： 1) 在 Label和 Shape控件中，如果 BackStyle屬性的設(shè)置值為 0(透明 )，則忽略 BackColor屬性。其他有標(biāo)題的控件，標(biāo)題大小限制為 255個字符。第九章 Visual Basic常用控件 1 第 9章