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

例如：Text1(0)、Text1(1)Command1(0)、Command1(1)22.Caption屬性Caption屬性用于設置或返回對象的標題或在對象上顯示的文字。注意：1)當創(chuàng)建一個新的對象時，其缺省Caption屬性值與其缺省的Name屬性值相同。2)使用&符號可以為某些控件創(chuàng)建訪問鍵，如果需要在標題中加入一個“&”符號而不是創(chuàng)建訪問鍵，需在標題中加入連續(xù)的兩個“&”符號。3)Label控件標題大小沒有限制。其他有標題的控件，標題大小限制為255個字符。3)注意與Name屬性、Text屬性的區(qū)別。36.BackColor、ForeColor屬性

BackColor屬性用來設置或返回控件的背景顏色。ForeColor屬性用來設置或返回在控件里顯示的圖形或文本的顏色（前景顏色）。注意：1)在Label和Shape控件中，如果BackStyle屬性的設置值為0(透明)，則忽略BackColor屬性。2)如果在Form對象或PictureBox控件中設置BackColor屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。3)設置ForeColor屬性值不會影響已經(jīng)打印的文本或繪制的圖形。57.FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline屬性分別對應于：字體、字號、粗體、斜體、刪除線、下劃線8.Font對象屬性在設計時在屬性窗口需要進一步打開對話框進行設置。在代碼中的使用格式:<控件名>.Font.<屬性名>

<屬性名>:Name、Size、Bold、Italic、Underline、Strikethrough

例:Form1.Font.Size=14Command1.Font.Italic=True【例9-1】自學P170例9-169．MousePointer、MouseIcon屬性MousePointer屬性：返回或設置一個值，指示在運行時當鼠標移動到對象上時要顯示的鼠標指針的類型。0～15：使用系統(tǒng)定義的鼠標指針類型99:使用自定義的鼠標指針類型，鼠標指針為通過MouseIcon屬性所指定的圖標。MouseIcon屬性：設置在運行時當鼠標移動到對象上時要顯示的圖標，在MousePointer屬性設置為99時使用。79.2.1鼠標事件1.MouseDown、MouseUp事件MouseDown事件：在按下鼠標按鈕時發(fā)生；MouseUp事件：在釋放鼠標按鈕時發(fā)生。例如，某按鈕的MouseDown事件過程如下：PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSubButton：根據(jù)所按下或抬起的是鼠標的左按鈕、右按鈕還是中間按鈕返回一個整數(shù)。見P171Shift：

根據(jù)在按下或釋放鼠標按鈕時是否同時按下Shift、Ctrl或Alt鍵返回一個整數(shù)。見P172X、Y：返回鼠標指針在對象上的當前位置。默認單位為緹。92．MouseMove事件當鼠標指針在對象上移動時發(fā)生該事件。例如，窗體的MouseMove事件過程如下：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSub（Button、Shift、X和Y參數(shù)的作用同前）注意：當鼠標指針在對象上移動時，并不是經(jīng)過每個像素都會產(chǎn)生MouseMove事件，而是按每秒一定的次數(shù)生成MouseMove事件。由于應用程序能在短時間內(nèi)識別大量的MouseMove事件，因此，不應在MouseMove事件過程中編寫需要大量計算時間的程序。10【例9-2】在窗體上移動鼠標時，將當前的鼠標位置顯示在文本框中。如下圖：窗體的MouseMove事件過程如下：PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Text=X:Text2.Text=YEndSubText1Text211注意：對于同一個字母的按鍵，其大、小寫形式返回不同的KeyAscii值。只有當對象具有焦點時才可以接收KeyPress事件。一個窗體僅在它沒有可視和有效的控件或KeyPreview屬性被設置為True時才能接收該事件。使用文本框的KeyPress事件可以及時對輸入的內(nèi)容進行檢查，以保證輸入內(nèi)容的有效性。13【例9-3】對從文本框Text1輸入的成績進行有效性驗證，如果輸入的字符不是阿拉伯數(shù)字，則響鈴，并消除該字符。分析：可以在Text1的KeyPress事件過程中對參數(shù)KeyAscii的值進行判斷。已知0～9的ASCII碼為48～57，所以當KeyAscii的值不在48～57的范圍內(nèi)時，需要響鈴（用Beep語句），并消除該字符（將KeyAscii設置為0）。代碼如下：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57ThenBeep'響鈴

KeyAscii=0'消除該字符

EndIfEndSub142．KeyDown、KeyUp事件KeyDown事件:在對象有焦點時按下按鍵時發(fā)生；KeyUp事件:在對象具有焦點時松開按鍵時發(fā)生。例如，某文本框Text1的KeyDown事件過程如下：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)……EndSubKeyCode:返回所操作鍵的代碼。在鍵盤上只要按的是同一個鍵，則返回的KeyCode值相同。例如，對于同一個字母按鍵，不管是大寫還是小寫形式，所返回的KeyCode值是相同的。VB為KeyCode值定義了符號常量，如vbKeyF1(F1鍵)或vbKeyHome(Home鍵)。Shift:根據(jù)在按鍵時是否按下Shift、Ctrl或Alt鍵返回一個整數(shù)。見P171表9-2。15代碼如下：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)SelectCaseKeyCodeCasevbKeyUpShape1.Top=Shape1.Top-100CasevbKeyDownShape1.Top=Shape1.Top+100CasevbKeyLeftShape1.Left=Shape1.Left-100CasevbKeyRightShape1.Left=Shape1.Left+100EndSelectEndSub179.3常用內(nèi)部控件框架（Frame）圖片框（PictureBox）圖像框（Image）選項按鈕（OptionButton）復選框（CheckBox）列表框（ListBox）組合框（Combobox)定時器(Timer)滾動條(ScrollBar)189.3.1框架(Frame)1.作用:作為容器，對控件進行分組；修飾界面。2.如何將控件放在容器中選中容器，在容器中直接畫選中容器，粘貼控件3.如何檢查控件是否在容器中拖動容器，控件隨容器移動；拖動控件只能在容器中移動4.選中框架中的多個控件:Ctrl+拖動；Shift+單擊5.刪除容器時，其中的控件隨之被刪除6.框架的常用屬性Caption:Font:Enabled:設置為False時框架中的控件無效。199.3.3圖像框(Image)1.作用:顯示圖像2.如何顯示圖像:設置Picture屬性在屬性窗口中設置對象名.Picture=LoadPicture("圖形文件名")3.如何清除圖像在屬性窗口中刪除Picture屬性內(nèi)容對象名.Picture=LoadPicture()4.特點可以自動調(diào)整控件大小以適應圖像:設Stretch=False

可以延伸圖形以適應控件的大小:設Stretch=True219.3.4選項按鈕(OptionButton)1.作用:多選一(放在窗體上、或放在其他容器中)2.屬性1)ValueTrue—選中

False—未選中2)Alignment屬性:決定文本的對齊方式0:文本左對齊1:文本右對齊3)Style—控制外觀0:呈現(xiàn)為旁邊帶有文本的圓形按鈕。1:顯示為方形按鈕，有按下和抬起兩種狀態(tài)。3.事件

Click事件—使選項按鈕從未選擇變成選擇狀態(tài)時(單擊鼠標改變、代碼改變)22【例9-5】設計如下圖所示的界面，用選項按鈕設置文本框的文字顏色和背景顏色。Option1Option2Value為True的兩種顯示方式Style為1Style為0Option3Option4Option5Option6Text1239.3.5復選框(CheckBox)1.作用多選一或多選多(放在窗體上或其他容器中)2.屬性1)Value0—未選中1—選中2—灰度狀態(tài)(常用于表示不確定或部分選中)2)Alignment屬性:決定文本的對齊方式3)Style:控制外觀0:呈現(xiàn)為旁邊帶有小方框的默認狀態(tài)。1:顯示為方形按鈕，有按下和抬起兩種狀態(tài)。3.事件Click事件25【例9-6】設計界面如下圖所示，用復選框設置文本框的文字樣式與效果。Check1Check2Check3Check4268)MultiSelect:0—缺省值，不允許復選。1—鼠標單擊、按空格鍵在列表中選擇或取消選擇2—按下Shift并單擊鼠標或按下Shift以及一個箭頭鍵將在以前選中項的基礎上擴展選擇到當前選中項。按下Ctrl并單擊鼠標在列表中選中或取消選中項。3.方法1)AddItem—向列表框中添加新的項目

<對象名>.AddItem<項目>[,<索引>]

2)RemoveItem—從列表框中移除項目

<對象名>.RemoveItem<索引>3)Clear—清除所有列表的

<對象名>.Clear29【例9-7】設計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列(字段)名稱。將左列表框中選擇的列移動到右列表框中將右列表框中選擇的列移動到左列表框中將左列表框中的所有列移動到右列表框中將右列表框中的所有列移動到左列表框中List1List2301)將左列表框中選擇的列移動到右列表框中PrivateSubCommand1_Click()IfList1.ListCount=0Then

MsgBox"列表中已沒有可選的列",,"注意"ExitSub

EndIfIfList1.ListIndex>=0ThenList2.AddItemList1.Text

List1.RemoveItemList1.ListIndex

Else

MsgBox"請先在列表中選擇某列",,"注意"EndIfEndSub312)將右列表框中選擇的列移動到左列表框中。PrivateSubCommand2_Click()IfList2.ListCount=0Then

MsgBox"列表中已沒有可選的列",,"注意"ExitSub

EndIfIfList2.ListIndex>=0Then

List1.AddItemList2.Text

List2.RemoveItemList2.ListIndex

Else

MsgBox"請先在列表中選擇某列",,"注意"EndIfEndSub323)將左側列表框中的所有列移動到右側列表框中PrivateSubCommand3_Click()Fori=0ToList1.ListCount–1List1.Selected(0)=True

List2.AddItemList1.Text

List1.RemoveItem0

NextiEndSub4)將右側列表框中的所有列移動到左側列表框中

PrivateSubCommand4_Click()

Fori=0ToList2.ListCount-1

List2.Selected(0)=True

List1.AddItemList2.Text

List2.RemoveItem0

Nexti

EndSub339.3.7組合框(ComboBox)1.作用:提供列表(可折疊)、文本輸入2.屬性1)List—列表內(nèi)容(Ctrl+Enter換行)2)Style—外形0—下拉組合框(折疊)1—簡單組合框(不折疊)2—下拉列表框(不能修改Text屬性)3)Text—文本框內(nèi)容4)ListIndex—運行期用，當前選定項目的索引索引從0開始5)ListCount—列表部分項目的總個數(shù)6)Sorted—元素是否自動按順序排序343.事件組合框的事件與Style屬性有關。Style為0時:響應Click、Change、DropDown事件Style為1時:響應Click、DblClick、Change事件Style為2時:響應Click、DropDown事件4.方法1)AddItem:向組合框中添加新的項目

<對象名>.AddItem<項目>[,<索引>]

2)RemoveItem:從組合框中移除項目

<對象名>.RemoveItem<索引>3)Clear:清除組合框中的所有項目

<對象名>.Clear35【例9-8】在窗體上放4個組合框，用于選擇微機配置，包括選擇品牌、CPU、硬盤、內(nèi)存。運行時，在選擇了各項內(nèi)容之后，單擊“確定”按鈕顯示所選擇的機器配置。Style=1Style=2Style=2Style=036設置各組合框控件的屬性如下表：

控件屬性Combo1（品牌）Combo2（CPU）Combo3（硬盤）Combo4（內(nèi)存）List同方聯(lián)想方正HPAcerIBMDELLAMDAthlon64X23800+AM2Intel奔騰D8202.8GHzIntel奔騰D915AMDAthlon64X23600+AM2AMDAthlon643000+AM2Intel奔騰46303.0GHzAMDAthlon643200+AM2Intel奔騰46313.0GHz40GB80GB120GB160GB200GB250GB128MB256MB512MB1GB2GBStyle122037PrivateSubForm_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=Combo3.List(0)Combo4.Text=Combo4.List(0)EndSubPrivateSubCommand1_Click()Picture1.ClsPicture1.Print"您選擇的配置是:"Picture1.Print"品牌:";Combo1.TextPicture1.Print"CPU:";Combo2.TextPicture1.Print"硬盤:";Combo3.TextPicture1.Print"內(nèi)存:";Combo4.TextEndSub389.3.8定時器(Timer)1.作用:周期性地執(zhí)行某功能、運行時不可見。2.屬性1)Enabled:將Enabled設置為False時將停止定時器的計時操作。2)Interval:計時事件執(zhí)行的時間間隔(毫秒)。3.事件

Timer事件:每當計時時間到時產(chǎn)生Timer事件注:一個計時器的最大計時時間為65535毫秒,等于1分鐘多一些。如果最大計時時間大于該值，可以使用多個計時器。39【例9-9】在窗體上放置一個紅色圓。單擊“增大”按鈕每隔1秒直徑自動增大200Twips；單擊“縮小”按鈕每隔1秒直徑自動縮小200Twips；單擊“停止”按鈕停止增大或縮小。Timer1屬性:Enabled—FalseInterval—1000Cmd1Cmd2Cmd3Timer1Shape140DimFlagAsIntegerPrivateSubCmd1_Click()Timer1.Enabled=TrueFlag=1EndSubPrivateSubCmd2_Click()Timer1.Enabled=TrueFlag=0EndSubPrivateSubCmd3_Click()Timer1.Enabled=FalseEndSub41PrivateSubTimer1_Timer()IfFlag=0ThenIfShape1.Width<200OrShape1.Height<200Then

MsgBox"不能再縮小",,"注意"

Timer1.Enabled=FalseExitSub'結束本事件過程

EndIfShape1.Width=Shape1.Width-200Shape1.Height=Shape1.Height-200ElseShape1.Width=Shape1.Width+200Shape1.Height=Shape1.Height+200EndIfEndSub429.3.9滾動條(HScrollBar、VScrollBar)1.作用2.滾動條結構滾動箭頭滾動塊滾動箭頭3.屬性

1)Value:滾動條當前位置值,介于[Min,Max]之間2)Max:滾動條的Value屬性最大值3)Min:滾動條的Value屬性最小值4)LargeChange:單擊滾動塊和滾動箭頭之間的區(qū)域時，滾動條Value值的改變量。5)SmallChange:單擊滾動箭頭時，滾動條的Value值的改變量。4.事件Change(單擊時、Value改變時);Scroll(拖動時)43【例9-10】設計一水平滾動條，表示范圍為1~100，要求:1)單擊某按鈕生成[1，100]之間的隨機整數(shù)，在滾動條上反映此隨機數(shù)，同時在標簽上顯示該值。2)滾動條滾動時，標簽內(nèi)容能夠及時反映滾動條的當前值。HScroll1Label3Command1設計界面：44代碼如下：PrivateSubCommand1_Click()Randomize:X=Int(Rnd*100+1)HScroll1.Value=XLabel3.Caption=XEndSubPrivateSubHScroll1_Change()Label3.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label3.Caption=HScroll1.ValueEndSub45【例9-11】在圖片框Picture1上放置一個圓，在窗體上放一個水平滾動條HScroll1和一個垂直滾動條VScroll1，如下圖。運行時，拖動滾動條可以使圓在圖片框上隨滾動條左右或上下移動。移動范圍限制在圖片框內(nèi)部。Picture1Shape1HScroll1VScroll146PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=Picture1.ScaleWidth–_Shape1.WidthHScroll1.LargeChange=(Picture1.ScaleWidth–_Shape1.Width)/20HScroll1.SmallChange=(Picture1.ScaleWidth–_Shape1.Width)/40VScroll1.Min=0VScroll1.Max=Picture1.ScaleHeight–Shape1.HeightVScroll1.LargeChange=(Picture1.ScaleHeight–_Shape1.Height)/20VScroll1.SmallChange=(Picture1.ScaleHeight–_Shape1.Height)/40Shape1.Left=0Shape1.Top=0EndSub47PrivateSubHScroll1_Change()Shape1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Shape1.Left=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Shape1.Top=VScroll1.ValueEndSubPrivateSubVScroll1_Scroll()Shape1.Top=VScroll1.ValueEndSub489.4動畫控件和多媒體控件除了工具箱中提供的常用內(nèi)部控件外，還可以使用ActiveX控件來增強VisualBasic應用程序的界面效果及其功能。ActiveX控件文件的擴展名為.ocx?？梢允褂肰isualBasic提供的ActiveX控件，也可以使用從第三方開發(fā)商獲得的附加控件。使用ActiveX控件之前，需要先將其添加到工具箱中，添加步驟如下：打開“工程”菜單→單擊“部件”顯示“部件”對話框→選定控件→單擊“確定”按鈕49完成添加ActiveX控件后就可以像使用內(nèi)部控件一樣使用添加到工具箱中的ActiveX控件了。將ActiveX添加到窗體上以后，在屬性窗口的屬性名稱列表中有一項“自定義”屬性，單擊該屬性旁的瀏覽按鈕“…”可以打開一個“屬性頁”對話框，該對話框集中了設計期可以設置的許多重要屬性，可以在該對話框中方便地進行各種屬性的設置。509.4.1動畫控件（Animation）1.添加(1)工程→部件→MicrosoftWindowsCommonContrls-26.0(2)從工具箱中選擇Animation2.外觀3.作用：顯示無聲的AVI視頻文件，播放無聲動畫Animation514.屬性AutoPlay:在將.avi文件加載到Animation控件時，該屬性決定Animation控件是否開始自動播放.avi文件。True:要自動連續(xù)循環(huán)播放.avi文件。False:在加載了.avi文件后，需要使用Play方法來播放該.avi文件。5.方法1)Open：用于打開一個要播放的.avi文件，格式：<對象名>.Open<文件名>例如，播放當前應用程序路徑之下的文件：Animation1.OpenApp.Path&"\"522)

Play：用于播放已經(jīng)打開的.avi文件，格式：<對象名>.Play[<重復次數(shù)>],[<起始幀>][,<結束幀>]例如：Animation1.Play5,3,15播放當前打開的.avi文件的第3幀到第15幀，共播放5遍。3)

Stop：終止那些用Play方法啟動的動畫。格式：<對象名>.Stop當設置Autoplay屬性為True時不能使用Stop方法終止播放。4)

Close：關閉當前打開的.avi文件。格式：

<對象名>.Close53【例9-12】在窗體上放四個命令按鈕，單擊各按鈕時實現(xiàn)打開特定的.avi文件、播放動畫、停止播放和關閉動畫。界面如下圖：Animation1設計界面:運行界面:54各命令按鈕的Click事件過程如下:PrivateSubCommand1_Click()'“打開”按鈕

Animation1.OpenApp.Path&"\"EndSubPrivateSubCommand2_Click()'“播放”按鈕

Animation1.PlayEndSubPrivateSubCommand3_Click()'“停止”按鈕

Animation1.StopEndSubPrivateSubCommand4_Click()'“關閉”按鈕

Animation1.CloseEndSub559.4.2多媒體控件（MultimediaMCI）1.添加1)工程→部件→MicrosoftMultimediaControl6.02)從工具箱中選擇MMControl2.外觀3.作用：于管理媒體控制接口(MCI)設備,包括常規(guī)的多媒體音頻、視頻設備。也稱MultimediaMCI控件。MMControl564.各按鈕的名稱及作用PrevNextPlayPauseBackStepStopRecordEject通過設置各按鈕的Visible和Enabled屬性可以有選擇地設置可用的按鈕。575.屬性1)DeviceType：指定要打開的MCI設備的類型。簡單設備：不需要數(shù)據(jù)文件即可播放，如打開視頻或音頻CD播放器，即可通過“曲目”進行播放、回繞和快進。復合設備：必需通過數(shù)據(jù)文件才能播放。MultimediaMCI控件支持的部分多媒體設備：見P187表9-5例如，使用MultimediaMCI控件MMControl1播放avi文件，需要首先做以下設置：

MMControl1.DeviceType="AVIVideo"2)：指定Open命令將要打開的或者Save命令將要保存的文件。例如：

MMControl1.="d:\clock.avi"583)Command：指定將要執(zhí)行的MCI命令

例如，打開指定的.avi文件并開始播放：

MMControl1.DeviceType="AVIVideo"MMControl1.="d:\clock.avi"MMControl1.Command="open"MMControl1.Command="play"4)AutoEnable：決定MultimediaMCI控件是否能夠自動啟動或關閉控件中的某個按鈕。僅在Enabled屬性被設置為True的前提下才起作用。5)ButtonEnabled：啟用或禁用控件中的某個按鈕。只有當Enabled屬性為True、AutoEnable屬性為False時起作用。具體使用時應將Button替換成相應的按鈕名稱。例如：MMControl1.EjectEnabled=False596)ButtonVisible：決定指定的按鈕是否在控件中顯示。只有當Visible屬性為True時起作用。例如：MMControl1.RecordVisible=False7)Frames：指定Step或Back命令步進的幀數(shù)。例如：MMControl1.Frames=108)TimeFormat：規(guī)定與位置信息相關的屬性所采用的時間格式（如“毫秒”），這些屬性包括：From、Length、Position、Start、To、TrackLength、TrackPosition。9)From：規(guī)定Play或Record命令的起始點。10)To：規(guī)定Play或Record命令的結束點。11)Length：返回打開的MCI設備上的媒體長度。12)Position：返回打開的MCI設備的當前位置。6013)Start：返回當前媒體的起始位置。14)Tracks：返回當前所使用的設備的音軌數(shù)。對于CD唱片，Tracks屬性指的是一張盤中共有多少個曲目。15)Track：用于指定音軌。16)TrackPosition：返回Track屬性給出的音軌的起始位置。17)TrackLength：返回Track屬性給出的音軌的長度。18)hWndDisplay：對于利用窗口顯示輸出結果的MCIMMMovie或Overlay設備，該屬性用于為其規(guī)定顯示輸出的窗口。61可以為該屬性指定一個是MCI設備輸出窗口的句柄。窗體和控件的句柄可以通過其hWnd屬性獲得。例如，指定輸出窗口為圖片框Picture1：

MMControl1.hWndDisplay=Picture1.hWnd

19)Notify：決定下一條MCI命令是否使用MCI通知服務。如果該屬性被設置為True，那么在下一條MCI命令完成時產(chǎn)生一個回調(diào)事件(Done)。賦給該屬性的值只對下一條MCI命令有效。20)Wait：決定是否要等到下一條MCI命令完成，才能將控制權返回應用程序。賦給該屬性的值只對下一條MCI命令有效。21)UpdateInterval：規(guī)定兩次連續(xù)的StatusUpdate事件之間的毫秒數(shù)。622．事件1)ButtonClick：當用戶單擊MCI控件上的按鈕