VB第9章 Visual Basic常用控件.ppt

1、1,第9章,常用內(nèi)部控件,本章要點(diǎn): 控件的公共屬性 鼠標(biāo)和鍵盤事件 常用內(nèi)部控件 動(dòng)畫控件和多媒體控件,例9-12,2,9.1 控件的公共屬性,1. Name屬性 Name屬性用于標(biāo)識(shí)窗體、控件、或數(shù)據(jù)訪問對(duì)象的名稱。在屬性窗口的屬性名為“(名稱)”,注意： 1) Name屬性運(yùn)行時(shí)是只讀的 2) 新建立的控件有其缺省名稱，如Text1、Text2 3) 以字母開始, 最長(zhǎng)40個(gè)字符，可包括字母、數(shù)字和下劃線，不能包括標(biāo)點(diǎn)符號(hào)或空格(允許漢字) 4) 控件數(shù)組的名稱: Name(Index) 例如：Text1(0)、Text1(1) Command1(0)、Command1(1),3,2.

2、Caption屬性 Caption屬性用于設(shè)置或返回對(duì)象的標(biāo)題或在對(duì)象上顯示的文字。,注意： 1) 當(dāng)創(chuàng)建一個(gè)新的對(duì)象時(shí)，其缺省Caption屬性值與其缺省的Name屬性值相同。 2) 使用 運(yùn)行時(shí): List(i)表示第i項(xiàng) 2) Style外形(常規(guī)形式、復(fù)選框形式) 3) Columns列表形式 0:垂直單列、1:水平單列、1:水平多列 4) Text只讀、運(yùn)行期用，獲取當(dāng)前選擇項(xiàng)目的值 5) ListIndex運(yùn)行期用，當(dāng)前選定項(xiàng)目的索引(0) 如果未選定項(xiàng)目，則 ListIndex 值為 -1 6) ListCount列表部分項(xiàng)目的總個(gè)數(shù) 7) Sorted元素是否自動(dòng)按字母順序排序

3、 8) Selected運(yùn)行期用，用于選擇某項(xiàng) 如List1.Selected(3)=True 選擇第4項(xiàng),31,8) MultiSelect: 0缺省值，不允許復(fù)選。 1鼠標(biāo)單擊、按空格鍵在列表中選擇或取消選擇 2 按下 Shift并單擊鼠標(biāo)或按下 Shift 以及一個(gè)箭頭鍵將在以前選中項(xiàng)的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項(xiàng)。按下 Ctrl 并單擊鼠標(biāo)在列表中選中或取消選中項(xiàng)。 3. 方法 1) AddItem向列表框中添加新的項(xiàng)目 對(duì)象名.AddItem 項(xiàng)目,索引 2) RemoveItem從列表框中移除項(xiàng)目 對(duì)象名.RemoveItem 索引 3) Clear清除所有列表的 對(duì)象名.Clear

4、,32,【例9-7】用列表框?qū)崿F(xiàn)游戲列表的管理，實(shí)現(xiàn)從所有游戲列表中選擇自己喜歡的游戲，添加到“我的收藏”列表中。在“我的收藏”列表中雙擊某游戲名稱可以打開相應(yīng)的游戲。,33,1) 將左列表框中選擇的項(xiàng)目移動(dòng)到右列表框中 Private Sub Command1_Click() If List1.ListCount = 0 Then MsgBox “列表中已沒有可選項(xiàng), , 注意 Exit Sub End If If List1.ListIndex = 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else M

5、sgBox 請(qǐng)先在列表中選擇某項(xiàng), , 注意 End If End Sub,34,2) 將右列表框中選擇的項(xiàng)目移動(dòng)到左列表框中。 Private Sub Command2_Click() If List2.ListCount = 0 Then MsgBox 列表中已沒有可選項(xiàng), , 注意 Exit Sub End If If List2.ListIndex = 0 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox 請(qǐng)先在列表中選擇某項(xiàng), , 注意 End If End Sub,35,3) 將左側(cè)

6、列表框中的所有項(xiàng)移動(dòng)到右側(cè)列表框中 Private Sub Command3_Click() For i = 0 To List1.ListCount 1 List1.Selected(0) = True List2.AddItem List1.Text List1.RemoveItem 0 Next i End Sub,36,4) 將右側(cè)列表框中的所有項(xiàng)移動(dòng)到左側(cè)列表框中 Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text

7、 List2.RemoveItem 0 Next i End Sub,37,9.3.7 組合框(ComboBox),1. 作用: 提供列表(可折疊)、文本輸入 2. 屬性 1) List列表內(nèi)容(Ctrl+Enter換行) 2) Style外形 0下拉組合框(折疊) 1簡(jiǎn)單組合框(不折疊) 2下拉列表框(不能修改Text屬性) 3) Text文本框內(nèi)容 4) ListIndex運(yùn)行期用，當(dāng)前選定項(xiàng)目的索引 索引從0開始 5) ListCount列表部分項(xiàng)目的總個(gè)數(shù) 6) Sorted元素是否自動(dòng)按順序排序,38,3. 事件 組合框的事件與Style屬性有關(guān)。 Style為0時(shí): 響應(yīng)Click

8、、Change、DropDown事件 Style為1時(shí): 響應(yīng)Click、DblClick、Change事件 Style為2時(shí): 響應(yīng)Click、DropDown事件 4. 方法 1) AddItem: 向組合框中添加新的項(xiàng)目 對(duì)象名.AddItem 項(xiàng)目,索引 2) RemoveItem: 從組合框中移除項(xiàng)目 對(duì)象名.RemoveItem 索引 3) Clear: 清除組合框中的所有項(xiàng)目 對(duì)象名.Clear,39,【例9-8】使用組合框選擇微機(jī)配置，包括選擇品牌、CPU、硬盤、內(nèi)存。,運(yùn)行界面:,40,設(shè)置各組合框控件的屬性如下表：,41,1）設(shè)運(yùn)行時(shí)各組合框的文本部分初始值為其列表的第一項(xiàng)

9、，因此編寫窗體的Load事件過程如下：,代碼設(shè)計(jì)：,Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0) End Sub,42,2）當(dāng)在各組合框中進(jìn)行選擇后，選擇的內(nèi)容可以從Text屬性獲得，因此在“確定”按鈕的Click事件過程中，直接將各組合框的Text屬性打印在圖片框Picture1中，代碼如下：,Private Sub Command1_Click() Pictu

10、re1.Cls Picture1.Print 您選擇的配置是: Picture1.Print Picture1.Print 品牌:; Combo1.Text Picture1.Print CPU:; Combo2.Text Picture1.Print 硬盤:; Combo3.Text Picture1.Print 內(nèi)存:; Combo4.Text End Sub,43,9.3.8 定時(shí)器(Timer),1. 作用:周期性地執(zhí)行某功能、運(yùn)行時(shí)不可見。 2. 屬性 1) Enabled: 將Enabled設(shè)置為False時(shí)將停止定時(shí)器的計(jì)時(shí)操作。 2) Interval: 計(jì)時(shí)事件執(zhí)行的時(shí)間間隔

11、(毫秒)。 3. 事件 Timer事件: 每當(dāng)計(jì)時(shí)時(shí)間到時(shí)產(chǎn)生Timer事件,注: 一個(gè)計(jì)時(shí)器的最大計(jì)時(shí)時(shí)間為65535毫秒 , 等于 1 分鐘多一些。如果最大計(jì)時(shí)時(shí)間大于該值，可以使用多個(gè)計(jì)時(shí)器。,44,【例9-9】使用Image控件和Timer控件自制簡(jiǎn)單的動(dòng)畫，實(shí)現(xiàn)圖形的旋轉(zhuǎn)。,素材準(zhǔn)備：將一組相關(guān)的圖片進(jìn)行連續(xù)的更換可以產(chǎn)生動(dòng)畫效果，準(zhǔn)備一組這樣的相關(guān)圖片。例如可以使用Word的自選圖形功能畫一個(gè)自選圖形，設(shè)置一定的填充效果，將其復(fù)制到Windows畫圖工具中，保存成一個(gè)bmp文件，然后在Word中對(duì)自選圖形按一定方向（如逆時(shí)針）進(jìn)行旋轉(zhuǎn)，每旋轉(zhuǎn)一定角度（如30度）就使用相同的方法保存

12、成一個(gè)bmp文件。這里假設(shè)保存了12個(gè)文件，名稱為tx1.bmptx12.bmp，與所要設(shè)計(jì)的應(yīng)用程保存在同一個(gè)文件夾下。,45,界面設(shè)計(jì)：,設(shè)置Timer1的屬性： Enabled屬性：False ; Interval屬性：50。,46,代碼設(shè)計(jì)：,1）在窗體模塊的通用聲明段定義變量i，用來表示當(dāng)前要加載的是第幾個(gè)圖形：,Dim i As Integer,2）在窗體的Load事件過程中對(duì)i進(jìn)行初始化：,Private Sub Form_Load() i = 1 End Sub,47,3）在“開始旋轉(zhuǎn)”按鈕的Click事件過程中啟動(dòng)定時(shí)器。,Private Sub Command1_Click

13、() Timer1.Enabled = True End Sub,4）在“暫?！卑粹o的Click事件過程中關(guān)閉定時(shí)器。,Private Sub Command2_Click() Timer1.Enabled = False End Sub,48,5）在Timer1的Timer事件過程中加載圖形：,Private Sub Timer1_Timer() i = i + 1 Image1.Picture = LoadPicture(App.Path Scroll (拖動(dòng)時(shí)),50,【例9-10】使用滾動(dòng)條控制顏色的紅、綠、藍(lán)分量的值，用來設(shè)置圖形的填充顏色。,設(shè)計(jì)界面：,滾動(dòng)條屬性：Max設(shè)置為25

14、5，Min設(shè)置為0,51,代碼設(shè)計(jì)：,1）運(yùn)行時(shí)，當(dāng)滾動(dòng)條滑塊位置發(fā)生變化時(shí),標(biāo)簽應(yīng)能夠反映滾動(dòng)條的當(dāng)前值，同時(shí)圖形的顏色會(huì)做相應(yīng)的調(diào)整，因此在滾動(dòng)條的Change事件過程中編寫代碼。例如：,其他兩個(gè)滾動(dòng)條的Change事件過程類似。,Private Sub HScroll1_Change() Shape1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label4.Caption = HScroll1.Value End Sub,52,2）如果希望運(yùn)行時(shí)拖動(dòng)滾動(dòng)條滑塊也能夠及時(shí)調(diào)整圖形的顏色，并在標(biāo)簽中顯示相應(yīng)

15、的顏色值，應(yīng)在滾動(dòng)條的Scroll事件過程中編寫相同的代碼，例如：,其他兩個(gè)滾動(dòng)條的Scroll事件過程類似。,Private Sub HScroll1_Scroll() Shape1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label4.Caption = HScroll1.Value End Sub,53,【例9-11】用滾動(dòng)條瀏覽大幅圖像。,設(shè)置Picture1和Picture2的Autosize屬性為True。,54,代碼設(shè)計(jì)：,1）在窗體的Load事件過程中編寫代碼，將圖像加載到Picture2中

16、,根據(jù)Picture1與Picture2的相對(duì)大小來決定是否要加滾動(dòng)條：,Private Sub Form_Load() Picture2.Picture = LoadPicture(App.Path & 小雞.bmp) If Picture2.Width Picture1.ScaleWidth Then _ Picture2.Left = (Picture1.ScaleWidth _ - Picture2.Width) 2 HScroll1.Visible = False Form1.Height = Form1.Height - HScroll1.Height,55,Else Pictur

17、e2.Left = 0 HScroll1.Visible = True HScroll1.Value = 0 HScroll1.Max = Picture2.Width _ - Picture1.ScaleWidth HScroll1.SmallChange = Picture2.Width 20 HScroll1.LargeChange = Picture2.Width 10 End If,56,If Picture2.Height Picture1.Height Then Picture2.Top = (Picture1.ScaleHeight _ - Picture2.Height) 2

18、 VScroll1.Visible = False Form1.Width = Form1.Width _ - VScroll1.Width Else Picture2.Top = 0 VScroll1.Visible = True VScroll1.Value = 0 VScroll1.Max = Picture2.Height _ - Picture1.ScaleHeight VScroll1.SmallChange = Picture2.Height 20 VScroll1.LargeChange = Picture2.Height 10 End If End Sub,57,2）在滾動(dòng)條

19、的Change事件過程中編寫代碼，根據(jù)當(dāng)前滾動(dòng)條的Value值調(diào)整圖片框的位置:,Private Sub HScroll1_Change() Picture2.Left = -HScroll1.Value End Sub Private Sub VScroll1_Change() Picture2.Top = -VScroll1.Value End Sub,3）還可以繼續(xù)在滾動(dòng)條的Scroll事件過程中編寫和Change事件過程相同的代碼，使運(yùn)行時(shí)拖動(dòng)滑塊也可以實(shí)現(xiàn)大圖的滾動(dòng)顯示。,58,運(yùn)行界面：,顯示小圖,顯示大圖,59,9.4 動(dòng)畫控件和多媒體控件,除了工具箱中提供的常用內(nèi)部控件外，還可

20、以使用ActiveX控件來增強(qiáng)Visual Basic應(yīng)用程序的界面效果及其功能。ActiveX控件文件的擴(kuò)展名為.ocx。 可以使用Visual Basic提供的ActiveX控件，也可以使用從第三方開發(fā)者提供的控件。 使用ActiveX控件之前，需要先將其添加到工具箱中，添加步驟如下： 打開“工程”菜單單擊“部件” 顯示“部件”對(duì)話框選定控件單擊“確定”按鈕,60,完成添加ActiveX控件后就可以像使用內(nèi)部控件一樣使用添加到工具箱中的ActiveX控件了。 將ActiveX添加到窗體上以后，在屬性窗口的屬性名稱列表中有一項(xiàng)“自定義”屬性，單擊該屬性旁的瀏覽按鈕“”可以打開一個(gè)“屬性頁(yè)”對(duì)

21、話框，該對(duì)話框集中了設(shè)計(jì)期可以設(shè)置的許多重要屬性，可以在該對(duì)話框中方便地進(jìn)行各種屬性的設(shè)置。,61,9.4.1 動(dòng)畫控件（Animation）,1. 添加 (1) 工程部件Microsoft Windows Common Contrls -2 6.0 (2) 從工具箱中選擇Animation,3. 作用：顯示無(wú)聲的AVI視頻文件，播放無(wú)聲動(dòng)畫,2. 外觀,62,1）Open：用于打開一個(gè)要播放的.avi文件，格式： 對(duì)象名.Open 文件名 例：播放當(dāng)前應(yīng)用程序路徑之下的文件filedel.avi： Animation1.Open App.Path & filedel.avi,4. 屬性,5.

22、方法,AutoPlay： 在將.avi文件加載到Animation控件時(shí)，該屬性決定Animation控件是否開始自動(dòng)播放.avi文件。 True: 要自動(dòng)連續(xù)循環(huán)播放.avi文件。 False : 在加載了.avi文件后，需要使用Play方法來播放該.avi文件。,63,2） Play：用于播放已經(jīng)打開的.avi文件，格式： 對(duì)象名.Play 重復(fù)次數(shù),起始幀,結(jié)束幀 例：Animation1.Play 5, 3, 15 播放當(dāng)前打開的.avi文件的第3幀到第15幀，共播放5遍。 3）Stop：終止那些用Play方法啟動(dòng)的動(dòng)畫。格式： 對(duì)象名.Stop 當(dāng)設(shè)置Autoplay屬性為True時(shí)

23、不能使用Stop方法終止播放。 4）Close：關(guān)閉當(dāng)前打開的.avi文件。格式： 對(duì)象名.Close,64,【例9-12】在窗體上放四個(gè)命令按鈕，單擊各按鈕時(shí)實(shí)現(xiàn)打開特定的.avi文件、播放動(dòng)畫、停止播放和關(guān)閉動(dòng)畫。界面如下圖：,設(shè)計(jì)界面:,運(yùn)行界面:,65,Private Sub Command1_Click() “打開”按鈕 Animation1.Open App.Path & filedel.avi End Sub Private Sub Command2_Click() “播放”按鈕 Animation1.Play End Sub Private Sub Command3_Click

24、() “停止”按鈕 Animation1.Stop End Sub Private Sub Command4_Click() “關(guān)閉”按鈕 Animation1.Close End Sub,代碼設(shè)計(jì):,66,9.4.2 多媒體控件（Multimedia MCI）,1. 添加 1) 工程部件Microsoft Multimedia Control 6.0 2) 從工具箱中選擇MMControl 2. 外觀,3. 作用：于管理媒體控制接口(MCI)設(shè)備,包括常規(guī)的多媒體音頻、視頻設(shè)備。 也稱Multimedia MCI控件。,67,4. 各按鈕的名稱及作用,通過設(shè)置各按鈕的Visible和Enab

25、led屬性可以有選擇地設(shè)置可用的按鈕。,68,5. 屬性 1) DeviceType：指定要打開的MCI設(shè)備的類型。 簡(jiǎn)單設(shè)備：不需要數(shù)據(jù)文件即可播放，如打開視頻或音頻CD播放器，即可通過“曲目”進(jìn)行播放、回繞和快進(jìn)。 復(fù)合設(shè)備：必需通過數(shù)據(jù)文件才能播放。 Multimedia MCI控件支持的部分多媒體設(shè)備：見P 192表9-4 例：使用Multimedia MCI控件MMControl1播放avi文件，需要首先做以下設(shè)置： MMControl1.DeviceType = AVIVideo 2) FileName：指定Open命令將要打開的或者Save命令將要保存的文件。例如： MMCont

26、rol1.FileName = d:clock.avi,69,3) Command：指定將要執(zhí)行的MCI命令，見P192 表9-5 例：打開指定的.avi文件并開始播放： MMControl1.DeviceType = AVIVideo MMControl1.FileName = d:clock.avi MMControl1.Command = open MMControl1.Command = play“ 例：在窗體上添加一個(gè)Multimedia MCI控件之后，在窗體的Load事件過程中編寫如下代碼，即可播放一張CD盤。 MMControl1.DeviceType = cdaudio MM

27、Control1.Command = open MMControl1.Command = play,70,4) AutoEnable：決定Multimedia MCI控件是否能夠自動(dòng)啟動(dòng)或關(guān)閉控件中的某個(gè)按鈕。僅在Enabled屬性被設(shè)置為True的前提下才起作用。 5) ButtonEnabled：?jiǎn)⒂没蚪每丶械哪硞€(gè)按鈕。只有當(dāng)Enabled屬性為True、AutoEnable屬性為False時(shí)起作用。具體使用時(shí)應(yīng)將Button替換成相應(yīng)的按鈕名稱。 例如：MMControl1.EjectEnabled = False 6) ButtonVisible：決定指定的按鈕是否在控件中顯示。只

28、有當(dāng)Visible屬性為True時(shí)起作用。 例如：MMControl1.RecordVisible = False 7) Frames：指定Step或Back命令步進(jìn)的幀數(shù)。 例如：MMControl1.Frames = 10,71,8) From：規(guī)定Play或Record命令的起始點(diǎn)。 9) To：規(guī)定Play或Record命令的結(jié)束點(diǎn)。 10) Length：返回打開的MCI設(shè)備上的媒體長(zhǎng)度。 11) Position：返回打開的MCI設(shè)備的當(dāng)前位置。 12) Start：返回當(dāng)前媒體的起始位置。 13) Tracks：返回當(dāng)前所使用的設(shè)備的音軌數(shù)。對(duì)于CD唱片，Tracks屬性指的是一

29、張盤中共有多少個(gè)曲目。 14) Track：用于指定音軌。 15) TrackPosition：返回Track屬性給出的音軌的起始位置。,72,16) TrackLength：返回Track屬性給出的音軌的長(zhǎng)度。 17) hWndDisplay：對(duì)于利用窗口顯示輸出結(jié)果的設(shè)備，該屬性用于為其規(guī)定輸出窗口。該屬性在設(shè)計(jì)時(shí)不可用。使用時(shí)可以為該屬性指定一個(gè)MCI設(shè)備輸出窗口的句柄。如果句柄為0，則使用缺省窗口來顯示。 在Visual Basic中，窗體和控件都有句柄，可以通過其hWnd屬性獲得。 例如，可以使用語(yǔ)句： MMControl1.hWndDisplay = Picture1.hWnd 來

30、指定輸出窗口為圖片框Picture1。,73,2事件 ButtonClick：當(dāng)用戶單擊MCI控件上的按鈕時(shí)產(chǎn)生該事件，其事件過程如下： Private Sub MMControl1_ButtonClick(Cancel As Integer) End Sub Button：Prev、Next、Play、Pause、Back、Step、Stop、Record或Eject。 例如，以下為Pause按鈕對(duì)應(yīng)的事件過程： Private Sub MMControl1_PauseClick(Cancel As Integer) End Sub,74,【例9-13】利用Multimedia MCI控件在

31、指定的圖片框中播放.avi文件。,運(yùn)行界面：,75,Private Sub Form_Load() MMControl1.DeviceType = AVIVideo MMControl1.FileName = App.Path & _ SEARCH.AVI MMControl1.RecordVisible = False MMControl1.EjectVisible = False MMControl1.Command = open MMControl1.hWndDisplay = Picture1.hWnd End Sub,1） 在窗體的Load事件過程中編寫如下代碼：,Private S

32、ub Form_Unload(Cancel As Integer) MMControl1.Command = stop End Sub,2）在窗體的Unload事件過程中執(zhí)行Stop命令：,76,9.4.4 其他常用的動(dòng)畫控件和多媒體控件,【例9-14】使用WindowsMediaPlayer控件給應(yīng)用程序添加背景音樂。,1）向工具箱添加WindowsMediaPlayer控件： 工程|部件選擇“Windows Media Palyer” 2）向窗體上添加一個(gè)WindowsMediaPlayer控件： 名稱：WindowsMediaPlayer1 3）設(shè)置屬性： 打開WindowsMediaP

33、layer1 的屬性頁(yè)對(duì)話框，在其“常規(guī)”選項(xiàng)卡的“選擇模式”下拉列表中選擇“Invisible”，單擊“確定”后該控件變?yōu)椴豢梢姟?界面設(shè)計(jì)：,77,代碼設(shè)計(jì)：,Private Sub Form_Load() WindowsMediaPlayer1.URL = _ App.Path & 賽馬.MP3 WindowsMediaPlayer1.Controls.play WindowsMediaPlayer1.settings.setMode _ loop, True 循環(huán)播放 End Sub,78,【例9-15】使用WebBrowser控件播放Gif動(dòng)畫。,1）向工具箱添加WebBrowser 控件： 工程|部件選擇“Microsof Internet Controls” 2）向窗體上添加一個(gè)WebBrowser 控件： 名稱： WebBrowser 1,界面設(shè)計(jì)：,79,代碼設(shè)計(jì)：,Private Sub Form_Load() WebBrowser1.Navigate (App.Path & 貓.gif) End Sub,運(yùn)行界面：,80,【例9-16】使用ShockwaveFlash控件播放Flash動(dòng)畫,1）向工具箱添加Shockwave Flash 控件： 工程|部件選擇“Shockwave Flash ” 2）向窗體上添