VB程序設(shè)計第2版第9章

1、VB程序設(shè)計第2版第9章29.1 控件的公共屬性控件的公共屬性1. Name屬性屬性 Name屬性用于標識窗體、控件、或數(shù)據(jù)訪問對屬性用于標識窗體、控件、或數(shù)據(jù)訪問對象的名稱。在屬性窗口的屬性名為象的名稱。在屬性窗口的屬性名為“(名稱名稱)”注意：1) Name屬性運行時是只讀的2) 新建立的控件有其缺省名稱，如Text1、Text23) 以字母開始, 最長40個字符，可包括字母、數(shù)字和下劃線，不能包括標點符號或空格(允許漢字)4) 控件數(shù)組的名稱: Name(Index) 例如：Text1(0)、Text1(1) Command1(0)、Command1(1)32. Caption屬性屬性

2、Caption屬性用于設(shè)置或返回對象的標題或在對屬性用于設(shè)置或返回對象的標題或在對象上顯示的文字。象上顯示的文字。注意：1) 當創(chuàng)建一個新的對象時，其缺省Caption屬性值與其缺省的Name屬性值相同。2) 使用&符號可以為某些控件創(chuàng)建訪問鍵，如果需要在標題中加入一個“&”符號而不是創(chuàng)建訪問鍵，需在標題中加入連續(xù)的兩個“&”符號。3) Label控件標題大小沒有限制。其他有標題的控件，標題大小限制為255個字符。3) 注意與Name屬性、Text屬性的區(qū)別。43. Enabled屬性屬性 決定控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出響應。決定控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出響

3、應。4. Visible屬性屬性 用來確定一個窗體或控件是否可見。用來確定一個窗體或控件是否可見。 注意注意: : 如果在屬性窗口中將控件的如果在屬性窗口中將控件的Visible屬性設(shè)屬性設(shè)置為置為False，則控件在設(shè)計窗體上仍是可見的，僅在則控件在設(shè)計窗體上仍是可見的，僅在運行時才不可見。運行時才不可見。5. Left、Top、Height、Width屬性屬性HeightLeftTopWidth對于窗體，這些屬性總是以緹為單位表示；對于控件，它們的度量單位取決于其容器的坐標系統(tǒng)。56. BackColor、ForeColor屬性 BackColor屬性用來設(shè)置或返回控件的背景顏色。Fore

4、Color屬性用來設(shè)置或返回在控件里顯示的圖形或文本的顏色（前景顏色）。注意：1) 在Label和Shape控件中，如果BackStyle屬性的設(shè)置值為0(透明)，則忽略BackColor屬性。2) 如果在Form對象或PictureBox控件中設(shè)置BackColor屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。3) 設(shè)置ForeColor屬性值不會影響已經(jīng)打印的文本或繪制的圖形。67. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline屬性屬性 分別對應于：分別對應于： 字體、字號、粗體、斜體、

5、刪除線、下劃線字體、字號、粗體、斜體、刪除線、下劃線8. Font對象屬性對象屬性在設(shè)計時在屬性窗口需要進一步打開對話框進行在設(shè)計時在屬性窗口需要進一步打開對話框進行設(shè)置。設(shè)置。 在代碼中的使用格式在代碼中的使用格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough 例例: Form1.Font.Size = 14 Command1.Font.Italic = True 【例例9-1】自學】自學 P170 例例9-179MousePointer、MouseIcon屬性屬性MousePointer屬性：返回或設(shè)置一個值，指示在屬性：

6、返回或設(shè)置一個值，指示在運行時當鼠標移動到對象上時要顯示的鼠標指針運行時當鼠標移動到對象上時要顯示的鼠標指針的類型。的類型。 015：使用系統(tǒng)定義的鼠標指針類型：使用系統(tǒng)定義的鼠標指針類型 99 :使用自定義的鼠標指針類型使用自定義的鼠標指針類型，鼠標指針為通鼠標指針為通過過MouseIcon屬性所指定的圖標。屬性所指定的圖標。MouseIcon屬性：設(shè)置在運行時當鼠標移動到對屬性：設(shè)置在運行時當鼠標移動到對象上時要顯示的圖標，在象上時要顯示的圖標，在MousePointer屬性設(shè)置屬性設(shè)置為為99時使用。時使用。89.2 鼠標和鍵盤事件鼠標和鍵盤事件 Visual Basic應用程序可以響應

7、多種鼠標與鍵應用程序可以響應多種鼠標與鍵盤事件。例如，鼠標事件有單擊、雙擊、按下、盤事件。例如，鼠標事件有單擊、雙擊、按下、抬起、移動、拖動等，鍵盤事件有按鍵的按下、抬起、移動、拖動等，鍵盤事件有按鍵的按下、抬起等。利用這些事件可以編寫響應各種事件的抬起等。利用這些事件可以編寫響應各種事件的應用程序。應用程序。99.2.1 鼠標事件鼠標事件1. MouseDown、MouseUp事件事件 MouseDown事件：在按下鼠標按鈕時發(fā)生；事件：在按下鼠標按鈕時發(fā)生； MouseUp事件：在釋放鼠標按鈕時發(fā)生。事件：在釋放鼠標按鈕時發(fā)生。 例如，某按鈕的例如，某按鈕的MouseDown事件過程如下：

8、事件過程如下： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End SubButton ：根據(jù)所按下或抬起的是鼠標的左按鈕、：根據(jù)所按下或抬起的是鼠標的左按鈕、右按鈕還是中間按鈕返回一個整數(shù)。見右按鈕還是中間按鈕返回一個整數(shù)。見P171Shift： 根據(jù)在按下或釋放鼠標按鈕時是否同時根據(jù)在按下或釋放鼠標按鈕時是否同時按下按下Shift、Ctrl或或Alt鍵返回一個整數(shù)。見鍵返回一個整數(shù)。見P172X、Y：返回鼠標指針在對象上的當前位置。默返回鼠標指針在

9、對象上的當前位置。默認單位為緹。認單位為緹。102MouseMove事件事件 當鼠標指針在對象上移動時發(fā)生該事件。當鼠標指針在對象上移動時發(fā)生該事件。 例如，窗體的例如，窗體的MouseMove事件過程如下：事件過程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub （Button 、Shift、X和和Y參數(shù)的作用同前）參數(shù)的作用同前）注意：當鼠標指針在對象上移動時，并不是經(jīng)過每個像素都會產(chǎn)生MouseMove事件，而是按每秒一定的次數(shù)生成Mo

10、useMove事件。由于應用程序能在短時間內(nèi)識別大量的MouseMove事件，因此，不應在MouseMove事件過程中編寫需要大量計算時間的程序。11【例【例9-29-2】在窗體上移動鼠標時，將當前的鼠標】在窗體上移動鼠標時，將當前的鼠標位置顯示在文本框中。如下圖：位置顯示在文本框中。如下圖：窗體的窗體的MouseMove事件過程如下：事件過程如下：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X : Text2.Text = YEnd

11、 SubText1Text2129.2.2 鍵盤事件鍵盤事件1KeyPress事件事件 當用戶按下并釋放鍵盤上一個會產(chǎn)生當用戶按下并釋放鍵盤上一個會產(chǎn)生ASCII碼的碼的按鍵時產(chǎn)生按鍵時產(chǎn)生KeyPress事件。如按下數(shù)字鍵、字母鍵、事件。如按下數(shù)字鍵、字母鍵、Tab、Enter、BackSpace、Esc等都會產(chǎn)生等都會產(chǎn)生KeyPress事件。事件。例如，某文本框例如，某文本框Text1的的KeyPress事件過程如下：事件過程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub KeyAscii參數(shù)：與按鍵對應的ASCII

12、碼值。13注意：注意：對于同一個字母的按鍵，其大、小寫形式返回對于同一個字母的按鍵，其大、小寫形式返回不同的不同的KeyAscii值。值。只有當對象具有焦點時才可以接收只有當對象具有焦點時才可以接收KeyPress事事件。件。一個窗體僅在它沒有可視和有效的控件或一個窗體僅在它沒有可視和有效的控件或KeyPreview屬性被設(shè)置為屬性被設(shè)置為True時才能接收該事時才能接收該事件。件。使用文本框的使用文本框的KeyPress事件可以及時對輸入的事件可以及時對輸入的內(nèi)容進行檢查，以保證輸入內(nèi)容的有效性。內(nèi)容進行檢查，以保證輸入內(nèi)容的有效性。14【例例9-3】對從文本框?qū)奈谋究騎ext1輸入的成績

13、進行有效性輸入的成績進行有效性驗證，如果輸入的字符不是阿拉伯數(shù)字，則響鈴，驗證，如果輸入的字符不是阿拉伯數(shù)字，則響鈴，并消除該字符。并消除該字符。分析：分析：可以在可以在Text1的的KeyPress事件過程中對參數(shù)事件過程中對參數(shù)KeyAscii的值進行判斷。已知的值進行判斷。已知09的的ASCII碼為碼為4857，所以當，所以當KeyAscii的值不在的值不在4857的范圍內(nèi)的范圍內(nèi)時，需要響鈴（用時，需要響鈴（用Beep語句），并消除該字符語句），并消除該字符（將（將KeyAscii設(shè)置為設(shè)置為0）。）。代碼如下：代碼如下：Private Sub Text1_KeyPress(KeyAs

14、cii As Integer) If KeyAscii 57 Then Beep 響鈴響鈴 KeyAscii = 0 消除該字符消除該字符 End IfEnd Sub152KeyDown、KeyUp事件事件KeyDown事件事件: 在對象有焦點時按下按鍵時發(fā)生；在對象有焦點時按下按鍵時發(fā)生；KeyUp事件事件: 在對象具有焦點時松開按鍵時發(fā)生。在對象具有焦點時松開按鍵時發(fā)生。例如，某文本框例如，某文本框Text1的的KeyDown事件過程如下：事件過程如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End

15、Sub KeyCode: 返回所操作鍵的代碼。在鍵盤上只要按的是同一個鍵，則返回的KeyCode值相同。例如，對于同一個字母按鍵，不管是大寫還是小寫形式，所返回的KeyCode值是相同的。VB為KeyCode值定義了符號常量，如vbKeyF1(F1鍵) 或 vbKeyHome(Home鍵)。 Shift: 根據(jù)在按鍵時是否按下Shift、Ctrl或Alt鍵返回一個整數(shù)。見P171表9-2。16【例【例9-3】在窗體上用】在窗體上用Shape控件畫一個圓形，用控件畫一個圓形，用鍵盤上的鍵盤上的“”、“”、“”、“”方向鍵方向鍵移動該圖形。移動該圖形。分析：鍵盤上的方向鍵“”、“”、“”、“”的K

16、eyCode值分別為37、38、39、40，也可以分別用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符號常量來代替。在窗體的KeyDown事件過程中根據(jù)所返回的KeyCode值實現(xiàn)對圖形的移動。Shape117代碼如下：代碼如下：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Shape1.Top = Shape1.Top - 100 Case vbKeyDown Shape1.Top = Shape1.Top + 10

17、0 Case vbKeyLeft Shape1.Left = Shape1.Left - 100 Case vbKeyRight Shape1.Left = Shape1.Left + 100 End SelectEnd Sub189.3 常用內(nèi)部控件常用內(nèi)部控件框架（框架（FrameFrame）圖片框（圖片框（PictureBoxPictureBox）圖像框（圖像框（ImageImage）選項按鈕（選項按鈕（OptionButtonOptionButton）復選框（復選框（CheckBoxCheckBox）列表框（列表框（ListBoxListBox）組合框（組合框（Combobox)Com

18、bobox)定時器定時器( (Timer)Timer)滾動條滾動條( (ScrollBar)ScrollBar)199.3.1 框架框架(Frame)1. 作用作用: 作為容器，對控件進行分組；修飾界面。作為容器，對控件進行分組；修飾界面。2. 如何將控件放在容器中如何將控件放在容器中n選中容器，在容器中直接畫選中容器，在容器中直接畫n選中容器，粘貼控件選中容器，粘貼控件3. 如何檢查控件是否在容器中如何檢查控件是否在容器中n拖動容器，控件隨容器移動；拖動容器，控件隨容器移動；n拖動控件只能在容器中移動拖動控件只能在容器中移動4. 選中框架中的多個控件選中框架中的多個控件: Ctrl+拖動；拖

19、動；Shift+單擊單擊5. 刪除容器時，其中的控件隨之被刪除刪除容器時，其中的控件隨之被刪除6. 框架的常用屬性框架的常用屬性Caption:Font:Enabled:設(shè)置為設(shè)置為False時框架中的控件無效。時框架中的控件無效。209.3.2 圖片框圖片框(PictureBox)1.作用作用 n作為控件的容器；顯示文字或圖形。作為控件的容器；顯示文字或圖形。n顯示圖像顯示圖像2.如何顯示圖像如何顯示圖像: : 設(shè)置設(shè)置PicturePicture屬性屬性n在屬性窗口中設(shè)置在屬性窗口中設(shè)置n對象名對象名. .Picture=LoadPicture(Picture=LoadPicture(圖形

20、文件名圖形文件名)3.如何清除圖像如何清除圖像n在屬性窗口中刪除在屬性窗口中刪除PicturePicture屬性內(nèi)容屬性內(nèi)容n對象名對象名. .Picture=LoadPicture() (Picture=LoadPicture() (也清除文字也清除文字) )4.打印與清除文字打印與清除文字n打印打印: :對象名對象名. .Print Print n清除清除: :對象名對象名. .ClsCls5.特點特點：自動調(diào)整控件大小以適應圖像：自動調(diào)整控件大小以適應圖像: : AutoSize=True AutoSize=True 不能延伸圖形以適應控件的大小。不能延伸圖形以適應控件的大小。219.3

21、.3 圖像框圖像框(Image)1. 作用作用:顯示圖像顯示圖像2. 如何顯示圖像如何顯示圖像: 設(shè)置設(shè)置Picture屬性屬性n在屬性窗口中設(shè)置在屬性窗口中設(shè)置n對象名對象名.Picture=LoadPicture(圖形文件名圖形文件名)3. 如何清除圖像如何清除圖像n在屬性窗口中刪除在屬性窗口中刪除Picture屬性內(nèi)容屬性內(nèi)容n對象名對象名.Picture=LoadPicture()4. 特點特點 可以自動調(diào)整控件大小以適應圖像可以自動調(diào)整控件大小以適應圖像: 設(shè)設(shè) Stretch=False 可以延伸圖形以適應控件的大小可以延伸圖形以適應控件的大小: 設(shè)設(shè) Stretch=True22

22、9.3.4 選項按鈕選項按鈕(OptionButton) 1. 作用作用: 多選一多選一(放在窗體上、或放在其他容器中放在窗體上、或放在其他容器中)2. 屬性屬性1) Value True選中選中 False未選中未選中2) Alignment屬性屬性: 決定文本的對齊方式?jīng)Q定文本的對齊方式 0:文本左對齊文本左對齊 1:文本右對齊文本右對齊3) Style控制外觀控制外觀 0: 呈現(xiàn)為旁邊帶有文本的圓形按鈕。呈現(xiàn)為旁邊帶有文本的圓形按鈕。 1:顯示為方形按鈕，有按下和抬起兩種狀態(tài)。顯示為方形按鈕，有按下和抬起兩種狀態(tài)。3. 事件事件 Click事件事件使選項按鈕從未選擇變成選擇狀態(tài)時使選項按

23、鈕從未選擇變成選擇狀態(tài)時 (單擊鼠標改變、代碼改變單擊鼠標改變、代碼改變 )23【例9-5】設(shè)計如下圖所示的界面，用選項按鈕設(shè)置文本框的文字顏色和背景顏色。Option1Option2Value為True的兩種顯示方式Style為1Style為0Option3Option4Option5Option6Text124Private Sub Option1_Click() Text1.ForeColor = vbBlackEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbYellowEnd SubPrivate Sub Option3_C

24、lick() Text1.ForeColor = vbRedEnd SubPrivate Sub Option4_Click() Text1.BackColor = vbWhiteEnd SubPrivate Sub Option5_Click() Text1.BackColor = vbGreenEnd SubPrivate Sub Option6_Click() Text1.BackColor = vbBlueEnd Sub259.3.5 復選框復選框(CheckBox)1. 作用作用 多選一或多選多多選一或多選多(放在窗體上或其他容器中放在窗體上或其他容器中)2. 屬性屬性 1) Val

25、ue 0未選中未選中 1選中選中 2灰度狀態(tài)灰度狀態(tài)(常用于表示不確定或常用于表示不確定或部分選中部分選中) 2) Alignment屬性屬性: 決定文本的對齊方式?jīng)Q定文本的對齊方式 3) Style: 控制外觀控制外觀 0: 呈現(xiàn)為旁邊帶有小方框的默認狀態(tài)。呈現(xiàn)為旁邊帶有小方框的默認狀態(tài)。 1:顯示為方形按鈕，有按下和抬起兩種狀態(tài)。顯示為方形按鈕，有按下和抬起兩種狀態(tài)。3. 事件事件 Click事件事件26【例9-6】設(shè)計界面如下圖所示，用復選框設(shè)置文本框的文字樣式與效果。Check1 Check2Check3Check427Private Sub Check1_Click() Text1.

26、FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click() Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Check3_Click() Text1.FontStrikethru = Check3.ValueEnd SubPrivate Sub Check4_Click() Text1.FontUnderline = Check4.ValueEnd Sub289.3.6 列表框列表框(ListBox)1. 作用作用:提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條2

27、. 屬性屬性1) List列表內(nèi)容。列表內(nèi)容。 設(shè)計時設(shè)計時: 用用Ctrl+ 換行換行; 運行時運行時: List(i)表示第表示第i項項2) Style外形外形(常規(guī)形式、復選框形式常規(guī)形式、復選框形式)3) Columns列表形式列表形式 0:垂直單列、垂直單列、1:水平單列、水平單列、1:水平多列水平多列4) Text只讀、運行期用，獲取當前選擇項目的值只讀、運行期用，獲取當前選擇項目的值5) ListIndex運行期用，當前選定項目的索引運行期用，當前選定項目的索引(0) 如果未選定項目，則如果未選定項目，則 ListIndex 值為值為 -16) ListCount列表部分項目的總

28、個數(shù)列表部分項目的總個數(shù)7) Sorted元素是否自動按字母順序排序元素是否自動按字母順序排序8) Selected運行期用，用于選擇某項運行期用，用于選擇某項 如如List1.Selected(3)=True 選擇第選擇第4項項298) MultiSelect: 0缺省值，不允許復選。 1鼠標單擊、按空格鍵在列表中選擇或取消選擇 2 按下 Shift并單擊鼠標或按下 Shift 以及一個箭頭鍵將在以前選中項的基礎(chǔ)上擴展選擇到當前選中項。按下 Ctrl 并單擊鼠標在列表中選中或取消選中項。 3. 方法1) AddItem向列表框中添加新的項目 .AddItem , 2) RemoveItem從

29、列表框中移除項目 .RemoveItem 3) Clear清除所有列表的 .Clear30【例【例9-7】設(shè)計如下圖所示的界面，左列表框列出了設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列某數(shù)據(jù)表格的各列(字段字段)名稱。名稱。將左列表框中選擇的列移動到右列表框中將右列表框中選擇的列移動到左列表框中將左列表框中的所有列移動到右列表框中將右列表框中的所有列移動到左列表框中List1List2311) 將左列表框中選擇的列移動到右列表框中 Private Sub Command1_Click() If List1.ListCount = 0 Then MsgBox 列表中已沒有可選的列, ,

30、 注意 Exit Sub End If If List1.ListIndex = 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 請先在列表中選擇某列, , 注意 End IfEnd Sub322) 將右列表框中選擇的列移動到左列表框中。 Private Sub Command2_Click() If List2.ListCount = 0 Then MsgBox 列表中已沒有可選的列, , 注意 Exit Sub End If If List2.ListIndex = 0 Then Li

31、st1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox 請先在列表中選擇某列, , 注意 End IfEnd Sub333) 將左側(cè)列表框中的所有列移動到右側(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 Sub4) 將右側(cè)列表框中的所有列移動到左側(cè)列表框中 Private S

32、ub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub349.3.7 組合框組合框(ComboBox)1. 作用作用: 提供列表提供列表(可折疊可折疊)、文本輸入、文本輸入2. 屬性屬性1) List列表內(nèi)容列表內(nèi)容(Ctrl+Enter換行換行)2) Style外形外形 0下拉組合框下拉組合框(折疊折疊) 1簡單組合框簡單組合框(不折疊不折疊) 2下拉列表框下拉列表框(不能修改

33、不能修改Text屬性屬性)3) Text文本框內(nèi)容文本框內(nèi)容4) ListIndex運行期用，當前選定項目的索引運行期用，當前選定項目的索引 索引從索引從0開始開始5) ListCount列表部分項目的總個數(shù)列表部分項目的總個數(shù)6) Sorted元素是否自動按順序排序元素是否自動按順序排序353. 事件事件 組合框的事件與組合框的事件與Style屬性有關(guān)。屬性有關(guān)。 Style為為0時時: 響應響應Click、Change、DropDown事件事件 Style為為1時時: 響應響應Click、DblClick、Change事件事件 Style為為2時時: 響應響應Click、DropDown事

34、件事件4. 方法方法1) AddItem: 向組合框中添加新的項目向組合框中添加新的項目 .AddItem , 2) RemoveItem: 從組合框中移除項目從組合框中移除項目 .RemoveItem 3) Clear: 清除組合框中的所有項目清除組合框中的所有項目 .Clear 36【例例9-8】在窗體上放在窗體上放4個組合框，用于選擇微機配個組合框，用于選擇微機配置，包括選擇品牌、置，包括選擇品牌、CPU、硬盤、內(nèi)存。運行時，、硬盤、內(nèi)存。運行時，在選擇了各項內(nèi)容之后，單擊在選擇了各項內(nèi)容之后，單擊“確定確定”按鈕顯示按鈕顯示所選擇的機器配置。所選擇的機器配置。Style=1 Style

35、=2 Style=2 Style=0 37設(shè)置各組合框控件的屬性如設(shè)置各組合框控件的屬性如下表：下表： 控件屬性Combo1（品牌）Combo2（CPU）Combo3（硬盤）Combo4（內(nèi)存）List同方聯(lián)想方正HPAcerIBMDELLAMD Athlon64 X2 3800+ AM2Intel 奔騰D 820 2.8GHzIntel 奔騰D 915AMD Athlon64 X2 3600+ AM2AMD Athlon64 3000+ AM2Intel 奔騰4 630 3.0GHzAMD Athlon64 3200+AM2Intel 奔騰4 631 3.0GHz40GB80GB120GB1

36、60GB200GB250GB128MB256MB512MB1GB2GBStyle122038Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0)End SubPrivate Sub Command1_Click() Picture1.Cls Picture1.Print 您選擇的配置是您選擇的配置是: Picture1.Print 品牌品牌:; Combo1.Text P

37、icture1.Print CPU:; Combo2.Text Picture1.Print 硬盤硬盤:; Combo3.Text Picture1.Print 內(nèi)存內(nèi)存:; Combo4.TextEnd Sub399.3.8 定時器定時器(Timer)1. 作用作用:周期性地執(zhí)行某功能、運行時不可見。周期性地執(zhí)行某功能、運行時不可見。2. 屬性屬性1) Enabled: 將將Enabled設(shè)置為設(shè)置為False時將停止定時時將停止定時器的計時操作。器的計時操作。2) Interval: 計時事件執(zhí)行的時間間隔計時事件執(zhí)行的時間間隔(毫秒毫秒)。3. 事件事件 Timer事件事件: 每當計時時

38、間到時產(chǎn)生每當計時時間到時產(chǎn)生Timer事件事件注: 一個計時器的最大計時時間為65535毫秒 , 等于 1 分鐘多一些。如果最大計時時間大于該值，可以使用多個計時器。40【例【例9-9】在窗體上放置一個紅色圓?！吭诖绑w上放置一個紅色圓。 單擊單擊“增大增大”按鈕每隔按鈕每隔1秒直徑自動增大秒直徑自動增大200Twips； 單擊單擊“縮小縮小”按鈕每隔按鈕每隔1秒直徑自動縮小秒直徑自動縮小200Twips； 單擊單擊“停止停止”按鈕停止增大或縮小。按鈕停止增大或縮小。Timer1屬性: EnabledFalse Interval1000Cmd1Cmd2Cmd3Timer1Shape141Dim

39、 Flag As IntegerPrivate Sub Cmd1_Click() Timer1.Enabled = True Flag = 1End SubPrivate Sub Cmd2_Click() Timer1.Enabled = True Flag = 0End SubPrivate Sub Cmd3_Click() Timer1.Enabled = False End Sub42Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox 不能再縮小不能再

40、縮小, , 注意注意 Timer1.Enabled = False Exit Sub 結(jié)束本事件過程結(jié)束本事件過程 End If Shape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Height = Shape1.Height + 200 End IfEnd Sub439.3.9 滾動條滾動條(HScrollBar、VScrollBar)1. 作用作用2. 滾動條結(jié)構(gòu)滾動條結(jié)構(gòu)滾動箭頭滾動塊滾動箭頭3. 屬性 1)

41、Value: 滾動條當前位置值,介于Min,Max之間2) Max:滾動條的 Value 屬性最大值3) Min:滾動條的 Value 屬性最小值4) LargeChange:單擊滾動塊和滾動箭頭之間的區(qū)域時，滾動條 Value 值的改變量。5) SmallChange:單擊滾動箭頭時，滾動條的Value 值的改變量。 4. 事件 Change(單擊時、Value改變時); Scroll (拖動時) 44【例【例9-10】設(shè)計一水平滾動條，表示范圍為】設(shè)計一水平滾動條，表示范圍為1100，要求要求: 1) 單擊某按鈕生成單擊某按鈕生成1，100之間的隨機整數(shù)，在滾之間的隨機整數(shù)，在滾動條上反映

42、此隨機數(shù)，同時在標簽上顯示該值。動條上反映此隨機數(shù)，同時在標簽上顯示該值。2) 滾動條滾動時，標簽內(nèi)容能夠及時反映滾動條的滾動條滾動時，標簽內(nèi)容能夠及時反映滾動條的當前值。當前值。HScroll1Label3Command1設(shè)計界面：45代碼如下：代碼如下：Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 + 1) HScroll1.Value = X Label3.Caption = XEnd SubPrivate Sub HScroll1_Change() Label3.Caption = HScroll1.ValueEnd

43、SubPrivate Sub HScroll1_Scroll() Label3.Caption = HScroll1.ValueEnd Sub46【例【例9-11】在圖片框在圖片框Picture1上放置一個圓，在上放置一個圓，在窗體上放一個水平滾動條窗體上放一個水平滾動條HScroll1和一個垂直滾和一個垂直滾動條動條VScroll1，如下圖。運行時，拖動滾動條可如下圖。運行時，拖動滾動條可以使圓在圖片框上隨滾動條左右或上下移動。以使圓在圖片框上隨滾動條左右或上下移動。移動范圍限制在圖片框內(nèi)部。移動范圍限制在圖片框內(nèi)部。Picture1Shape1HScroll1VScroll147Priva

44、te Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth _ Shape1.Width HScroll1.LargeChange = (Picture1.ScaleWidth _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight Shape1.Height VScroll1.LargeCha

45、nge = (Picture1.ScaleHeight _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0End Sub48Private Sub HScroll1_Change() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VS

46、croll1_Change() Shape1.Top = VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll() Shape1.Top = VScroll1.ValueEnd Sub499.4 動畫控件和多媒體控件動畫控件和多媒體控件 除了工具箱中提供的常用內(nèi)部控件外，還可以使用ActiveX控件來增強Visual Basic應用程序的界面效果及其功能。ActiveX控件文件的擴展名為.ocx。 可以使用Visual Basic提供的ActiveX控件，也可以使用從第三方開發(fā)商獲得的附加控件。 使用ActiveX控件之前，需要先將其添加到工具箱中，

47、添加步驟如下： 打開“工程”菜單單擊“部件” 顯示“部件”對話框選定控件單擊“確定”按鈕50 完成添加ActiveX控件后就可以像使用內(nèi)部控件一樣使用添加到工具箱中的ActiveX控件了。 將ActiveX添加到窗體上以后，在屬性窗口的屬性名稱列表中有一項“自定義”屬性，單擊該屬性旁的瀏覽按鈕“”可以打開一個“屬性頁”對話框，該對話框集中了設(shè)計期可以設(shè)置的許多重要屬性，可以在該對話框中方便地進行各種屬性的設(shè)置。519.4.1 動畫控件（動畫控件（Animation）1. 添加添加(1) 工程工程部件部件Microsoft Windows Common Contrls -2 6.0(2) 從工具

48、箱中選擇從工具箱中選擇Animation2. 外觀外觀3. 作用：顯示無聲的AVI視頻文件，播放無聲動畫Animation524. 屬性屬性AutoPlay: 在將在將.avi文件加載到文件加載到Animation控件時，控件時，該屬性決定該屬性決定Animation控件是否開始自動播放控件是否開始自動播放.avi文文件。件。 True: 要自動連續(xù)循環(huán)播放要自動連續(xù)循環(huán)播放.avi文件。文件。False : 在加載了在加載了.avi文件后，需要使用文件后，需要使用Play方法來方法來播放該播放該.avi文件。文件。5.方法方法1) Open：用于打開一個要播放的：用于打開一個要播放的.avi

49、文件，格式：文件，格式： .Open 例如，播放當前應用程序路徑之下的文件例如，播放當前應用程序路徑之下的文件filedel.avi： Animation1.Open App.Path & filedel.avi532) Play：用于播放已經(jīng)打開的：用于播放已經(jīng)打開的.avi文件，格式：文件，格式： .Play , 例如：例如：Animation1.Play 5, 3, 15 播放當前打開的播放當前打開的.avi文件的第文件的第3幀到第幀到第15幀，共幀，共播放播放5遍。遍。3) Stop：終止那些用：終止那些用Play方法啟動的動畫。格式：方法啟動的動畫。格式： .Stop 當設(shè)置

50、當設(shè)置Autoplay屬性為屬性為True時不能使用時不能使用Stop方方法終止播放。法終止播放。4) Close：關(guān)閉當前打開的：關(guān)閉當前打開的.avi文件。格式：文件。格式： .Close54【例【例9-12】在窗體上放四個命令按鈕，單擊各按鈕在窗體上放四個命令按鈕，單擊各按鈕時實現(xiàn)打開特定的時實現(xiàn)打開特定的.avi文件、播放動畫、停止播放文件、播放動畫、停止播放和關(guān)閉動畫。界面如下圖：和關(guān)閉動畫。界面如下圖： Animation1設(shè)計界面:運行界面:55各命令按鈕的各命令按鈕的ClickClick事件過程如下事件過程如下: :Private Sub Command1_Click() “打

51、開打開”按鈕按鈕 Animation1.Open App.Path & filedel.aviEnd SubPrivate Sub Command2_Click() “播放播放”按鈕按鈕 Animation1.PlayEnd SubPrivate Sub Command3_Click() “停止停止”按鈕按鈕 Animation1.StopEnd SubPrivate Sub Command4_Click() “關(guān)閉關(guān)閉”按鈕按鈕 Animation1.CloseEnd Sub569.4.2 多媒體控件（多媒體控件（Multimedia MCI）1. 添加添加1) 工程工程部件部件Mi

52、crosoft Multimedia Control 6.02) 從工具箱中選擇從工具箱中選擇MMControl2. 外觀外觀3. 作用：于管理媒體控制接口(MCI)設(shè)備,包括常規(guī)的多媒體音頻、視頻設(shè)備。 也稱Multimedia MCI控件。MMControl574. 各按鈕的名稱及作用各按鈕的名稱及作用Prev Next Play Pause Back Step Stop RecordEject 通過設(shè)置各按鈕的Visible和Enabled屬性可以有選擇地設(shè)置可用的按鈕。585. 屬性屬性1) DeviceType：指定要打開的：指定要打開的MCI設(shè)備的類型。設(shè)備的類型。簡單設(shè)備：不需要

53、數(shù)據(jù)文件即可播放，如打開簡單設(shè)備：不需要數(shù)據(jù)文件即可播放，如打開視頻或音頻視頻或音頻CD播放器，即可通過播放器，即可通過“曲目曲目”進行進行播放、回繞和快進。播放、回繞和快進。復合設(shè)備：必需通過數(shù)據(jù)文件才能播放。復合設(shè)備：必需通過數(shù)據(jù)文件才能播放。Multimedia MCI控件支持的部分多媒體設(shè)備：控件支持的部分多媒體設(shè)備：見見P187表表9-5例如，使用例如，使用Multimedia MCI控件控件MMControl1播放播放avi文件，需要首先做以下設(shè)置：文件，需要首先做以下設(shè)置： MMControl1.DeviceType = AVIVideo2) FileName：指定：指定Open

54、命令將要打開的或者命令將要打開的或者Save命令將要保存的文件。例如：命令將要保存的文件。例如： MMControl1.FileName = d:clock.avi593) Command：指定將要執(zhí)行的：指定將要執(zhí)行的MCI命令命令 例如，打開指定的例如，打開指定的.avi文件并開始播放：文件并開始播放： MMControl1.DeviceType = AVIVideo MMControl1.FileName = d:clock.avi MMControl1.Command = open MMControl1.Command = play4) AutoEnable：決定：決定Multimed

55、ia MCI控件是否能控件是否能夠自動啟動或關(guān)閉控件中的某個按鈕。僅在夠自動啟動或關(guān)閉控件中的某個按鈕。僅在Enabled屬性被設(shè)置為屬性被設(shè)置為True的前提下才起作用。的前提下才起作用。5) ButtonEnabled：啟用或禁用控件中的某個按鈕。：啟用或禁用控件中的某個按鈕。只有當只有當Enabled屬性為屬性為True、AutoEnable屬性屬性為為False時起作用。具體使用時應將時起作用。具體使用時應將Button替換替換成相應的按鈕名稱。成相應的按鈕名稱。 例如：例如：MMControl1.EjectEnabled = False606) ButtonVisible：決定指定的

56、按鈕是否在控件中顯：決定指定的按鈕是否在控件中顯示。只有當示。只有當Visible屬性為屬性為True時起作用。時起作用。 例如：例如：MMControl1.RecordVisible = False7) Frames：指定：指定Step或或Back命令步進的幀數(shù)。命令步進的幀數(shù)。 例如：例如：MMControl1.Frames = 108) TimeFormat：規(guī)定與位置信息相關(guān)的屬性所采：規(guī)定與位置信息相關(guān)的屬性所采用的時間格式（如用的時間格式（如“毫秒毫秒”），這些屬性包括：），這些屬性包括：From、Length、Position、Start、To、TrackLength、Track

57、Position。9) From：規(guī)定：規(guī)定Play或或Record命令的起始點。命令的起始點。10) To：規(guī)定：規(guī)定Play或或Record命令的結(jié)束點。命令的結(jié)束點。11) Length：返回打開的：返回打開的MCI設(shè)備上的媒體長度。設(shè)備上的媒體長度。12) Position：返回打開的：返回打開的MCI設(shè)備的當前位置。設(shè)備的當前位置。6113) Start：返回當前媒體的起始位置。：返回當前媒體的起始位置。14) Tracks：返回當前所使用的設(shè)備的音軌數(shù)。對：返回當前所使用的設(shè)備的音軌數(shù)。對于于CD唱片，唱片，Tracks屬性指的是一張盤中共有屬性指的是一張盤中共有多少個曲目。多少個曲目。15) Track：用于指定音軌。：用于指定音軌。16) TrackPosition：返回：返回Track屬性給出的音軌的屬性給出的音軌的起始位置。起始位置。17) TrackLength：返回：返回Track屬性給出的音軌的長屬性給出的音軌的長度。度。18) hWndDisplay：對于利用窗口顯示輸出結(jié)果的：對于利用窗口顯示輸出結(jié)果的MCI MMMovie或或Overlay設(shè)備，該屬性用于設(shè)備，該屬性用于為其規(guī)定顯示輸出的窗口。為其規(guī)定顯示輸出的窗口。62 可以為該屬性指定一個是可以為該屬性指定一個是MCI設(shè)備輸出窗口的設(shè)備輸出窗口的句柄。窗體和控件的句柄可以通過其句柄。窗體和控件