學(xué)習(xí)vb語言程序設(shè)計第7章

1、1第7章常用內(nèi)部控件本章要點(diǎn): 框架、圖片框、圖像框 選項按鈕、復(fù)選框 列表框、組合框 計時器、滾動條27.1 控件的公共屬性1. Name屬性(1) 運(yùn)行時是只讀的(2) 缺省名稱(3) 以字母開始，最長40個字符，可包括字母、數(shù)字和下劃線，不能包括標(biāo)點(diǎn)符號或空格(允許漢字)(4) 控件數(shù)組的名稱: Name(Index)2. Caption屬性(1) 加訪問鍵: &字母(2) Label控件標(biāo)題大小沒有限制。其他有標(biāo)題的控件，標(biāo)題大小限制為255個字符。(3) 注意與Name屬性、Text屬性的區(qū)別33. Enabled屬性 決定控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出響應(yīng) 4. Visible屬

2、性 注意: 如果在屬性窗口中將控件的Visible屬性設(shè)置為False，則控件在設(shè)計窗體上仍是可見的，僅在運(yùn)行時才不可見。【例7-1】Visible屬性和Enabled屬性的比較4“顯示圖像”按鈕Command1的Click事件過程如下: Private Sub Command1_Click() Image1.Visible = True Command1.Enabled = False Command2.Enabled = True End Sub“隱藏圖像”按鈕Command2的Click事件過程如下: Private Sub Command2_Click() Image1.Visible

3、 = False Command1.Enabled = True Command2.Enabled = FalseEnd Sub55. Left、Top、Height、Width屬性 對于窗體，這些屬性總是以緹為單位表示；對于控件，它們的度量單位取決于其容器的坐標(biāo)系統(tǒng)6. BackColor、ForeColor屬性(1) 在Label和Shape控件中，如果BackStyle屬性的設(shè)置值為0(透明)，則忽略BackColor屬性。(2) 如果在Form對象或PictureBox控件中設(shè)置BackColor屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。(3) 設(shè)置ForeColo

4、r屬性值不會影響已經(jīng)打印的文本或繪制的圖形。7. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline屬性68. Font對象屬性格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough例: Form1.Font.Size = 14 Command1.Font.Italic = True77.2 框架(Frame)1. 作用: 作為容器，對控件進(jìn)行分組2. 如何將控件放在容器中 選中容器，在容器中直接畫 選中容器，粘貼控件3. 如何檢查控件是否在容器中

5、拖動容器，控件隨容器移動4. 選中框架中的多個控件: Ctrl+拖動5. 刪除容器時，其中的控件隨之被刪除6. 框架的常用屬性 Caption: Font: ForeColor: Backcolor: Enabled:為False時框架中的控件不可用87.3 圖片框(PictureBox)1. 作用 作為容器，對控件進(jìn)行分組 顯示圖像2. 如何顯示圖像: 設(shè)置Picture屬性 在屬性窗口中設(shè)置 對象名.Picture=LoadPicture(圖形文件名)3. 如何清除圖像 在屬性窗口中刪除Picture屬性內(nèi)容 對象名.Picture=LoadPicture() (也清除文字)4. 打印與清

6、除文字 打印:對象名.Print 清除:對象名.Cls5. 特點(diǎn) 自動調(diào)整控件大小以適應(yīng)圖像: AutoSize=True 不能延伸圖形以適應(yīng)控件的大小。97.4 圖像框(Image)1. 作用:顯示圖像2. 如何顯示圖像: 設(shè)置Picture屬性 在屬性窗口中設(shè)置 對象名.Picture=LoadPicture(圖形文件名)3. 如何清除圖片 在屬性窗口中刪除Picture屬性內(nèi)容 對象名.Picture=LoadPicture()4. 特點(diǎn): 可以自動調(diào)整控件大小以適應(yīng)圖像: 設(shè) Stretch=False 可以延伸圖形以適應(yīng)控件的大小: 設(shè) Stretch=True107.5 選項按鈕(

7、OptionButton)1. 作用: 多選一(放在窗體上、或放在其他容器中)2. 屬性 (1) Value: True選中 False未選中 (2) Alignment屬性: 決定文本的對齊方式 (3) Style控制外觀3. 事件 Click事件使選項按鈕從未選擇變成選擇狀態(tài)時 (單擊鼠標(biāo)改變、代碼改變 )11【例7-2】設(shè)計如下圖所示的界面，用選項按鈕設(shè)置文本框的文字顏色和背景顏色。Option1Option2Value為True的兩種顯示方式Style為1Style為0Option3Option4Option5Option612Private Sub Option1_Click() T

8、ext1.ForeColor = vbBlackEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbYellowEnd SubPrivate Sub Option3_Click() Text1.ForeColor = vbRedEnd SubPrivate Sub Option4_Click() Text1.BackColor = vbWhiteEnd SubPrivate Sub Option5_Click() Text1.BackColor = vbGreenEnd SubPrivate Sub Option6_Click() Te

9、xt1.BackColor = vbBlueEnd Sub137.6 復(fù)選框(CheckBox)1. 作用 多選一或多選多(放在窗體上或其他容器中)2. 屬性 (1) Value 0未選中 1選中 2灰度狀態(tài)(常用于表示不確定或部分選中) (2) Alignment屬性: 決定文本的對齊方式 (3) Style: 控制外觀3. 事件 Click事件14【例7-3】設(shè)計界面如下圖所示，用復(fù)選框設(shè)置文本框的文字樣式與效果。Check1Check2Check3Check415Private Sub Check1_Click() Text1.FontBold = Check1.ValueEnd Sub

10、Private Sub Check2_Click() Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Check3_Click() Text1.FontStrikethru = Check3.ValueEnd SubPrivate Sub Check4_Click() Text1.FontUnderline = Check4.ValueEnd Sub167.7 列表框(ListBox)1. 作用:提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條2. 屬性 Style外形(常規(guī)形式、復(fù)選框形式) List列表內(nèi)容。 設(shè)計時: 用Ctrl+換行; 運(yùn)行時:

11、List(i)表示第i項i從0開始 Columns列表形式 0:垂直單列、1:水平單列、1:水平多列 Text只讀、運(yùn)行期用，獲取當(dāng)前選擇項目的值 ListIndex運(yùn)行期用，當(dāng)前選定項目的索引(0) 如果未選定項目，則 ListIndex 值為 -1 ListCount列表部分項目的個數(shù) Sorted元素是否自動按字母順序排序 Selected運(yùn)行期用，用于選擇某項 如List1.Selected(3)=True 選擇第4項17MultiSelect: 0缺省值，不允許復(fù)選。 1鼠標(biāo)單擊、按空格鍵在列表中選擇或取消選擇 2 按下 Shift并單擊鼠標(biāo)或按下 Shift 以及一個箭頭鍵將在以前

12、選中項的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項。按下 Ctrl 并單擊鼠標(biāo)在列表中選擇或取消選擇項。 3. 方法 AddItem向列表框中添加新的項目 .AddItem , RemoveItem從列表框中移除項目 .RemoveItem Clear清除所有列表的 .Clear18【例7-4】設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列(字段)名稱。將左列表框中選擇的書名移動到右列表框中將右列表框中選擇的書名移動到左列表框中將左列表框中的所有書名移動到右列表框中將右列表框中的所有書名移動到左列表框中List1List219(1) 將左列表框中選擇的字段移動到右列表框中 Private Sub Com

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

14、Box 列表中已沒有可選的字段, , 注意 Exit Sub End If If List2.ListIndex = 0 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox 請先在列表中選擇某字段, , 注意 End If End Sub21(3) 將左列表框中的所有字段移動到右列表框中 Private Sub Command3_Click() For i = 0 To List1.ListCount - 1 List1.Selected(0) = True List2.AddItem List1

15、.Text List1.RemoveItem 0 Next i End Sub(4) 將右列表框中的所有字段移動到左列表框中 Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub227.8 組合框(ComboBox)1. 作用: 提供列表(可折疊)、文本輸入2. 屬性 List列表內(nèi)容(Ctrl+Enter換行) Style外形 0下拉組合框(折疊) 1簡單組

16、合框(不折疊) 2下拉列表框(不能修改Text屬性) Text文本框內(nèi)容 ListIndex運(yùn)行期用，當(dāng)前選定項目的索引 索引從0開始 ListCount列表部分項目的個數(shù) Sorted元素是否自動按順序排序233. 事件 組合框的事件與Style屬性有關(guān)。 Style為0時: 響應(yīng)Click、Change、DropDown事件 Style為1時: 響應(yīng)Click、DblClick、Change事件 Style為2時: 響應(yīng)Click、DropDown事件4. 方法 AddItem: 向組合框中添加新的項目 .AddItem , RemoveItem: 從組合框中移除項目 .RemoveIte

17、m Clear: 清除組合框中的所有項目 .Clear 24【例7-5】在窗體上放4個組合框，用于選擇微機(jī)配置，包括選擇機(jī)型、CPU主頻、硬盤、內(nèi)存。運(yùn)行時，在選擇了各項內(nèi)容之后，單擊“確定”按鈕顯示所選擇的機(jī)器配置。Style=1 Style=2 Style=2 Style=0 25Private 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

18、 Command1_Click() Picture1.Cls Picture1.Print 您選擇的配置是: Picture1.Print 機(jī)型:; Combo1.Text Picture1.Print CPU:; Combo2.Text Picture1.Print 硬盤:; Combo3.Text Picture1.Print 內(nèi)存:; Combo4.TextEnd Sub267.9 定時器(Timer)1. 作用:周期性地執(zhí)行某功能、運(yùn)行時不可見2. 屬性 Enabled: 將Enabled設(shè)置為False時將停止定時器 的計時操作 Interval: 計時事件執(zhí)行的時間間隔(毫秒)3.

19、 事件 Timer事件: 每當(dāng)計時時間到時產(chǎn)生Timer事件注: 一個計時器的最大計時時間為65535毫秒 , 等于 1 分鐘多一些。如果最大計時時間大于該值，可以使用多個計時器。27【例7-6】在窗體上放置一個紅色圓。 單擊“增大”按鈕每隔1秒直徑自動增大200Twips； 單擊“縮小”按鈕每隔1秒直徑自動縮小200Twips； 單擊“停止”按鈕停止增大或縮小。Timer1屬性: EnabledFalse Interval1000Cmd1Cmd2Cmd3Timer1Shape128Dim Flag As IntegerPrivate Sub Cmd1_Click() Timer1.Enabl

20、ed = True Flag = 1End SubPrivate Sub Cmd2_Click() Timer1.Enabled = True Flag = 0End SubPrivate Sub Cmd3_Click() Timer1.Enabled = False End Sub29Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox 不能再縮小, , 注意 Timer1.Enabled = False Exit Sub 結(jié)束本事件過程 End If Sh

21、ape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Height = Shape1.Height + 200 End IfEnd Sub307.10 滾動條(HScrollBar、VScrollBar)1. 作用2. 滾動條結(jié)構(gòu)滾動箭頭滾動塊滾動箭頭3. 屬性 LargeChange單擊滾動塊和滾動箭頭之間的區(qū)域時，滾動條 Value 值的改變量。 SmallChange單擊滾動箭頭時，滾動條的Value 值的改變量。

22、Max滾動條的 Value 屬性最大值。 Min滾動條的 Value 屬性最小值。 Value滾動條當(dāng)前位置值，介于Min ,Max之間。4. 事件 Change(單擊時、Value改變時)、Scroll (拖動時) 31【例7-7】設(shè)計一水平滾動條，表示范圍為1到100，要求: (1) 單擊某按鈕生成1，100之間的隨機(jī)整數(shù)，在滾動條上反映此隨機(jī)數(shù)，同時在標(biāo)簽上顯示該值。(2) 滾動條滾動時，標(biāo)簽內(nèi)容能夠及時反映滾動條的當(dāng)前值。HScroll1Label3Command132Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 +

23、1) HScroll1.Value = X Label3.Caption = XEnd SubPrivate Sub HScroll1_Change() Label3.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Label3.Caption = HScroll1.ValueEnd Sub33【例7-8】在圖片框Picture1上放置一個圓，在窗體上放一個水平滾動條HScroll1和一個垂直滾動條VScroll1，如下圖。運(yùn)行時，拖動滾動條可以使圓在圖片框上隨滾動條左右或上下移動。移動范圍限制在圖片框內(nèi)部。Pictur

24、e1Shape1HScroll1VScroll134Private 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

25、Shape1.Height VScroll1.LargeChange = (Picture1.ScaleHeight _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0End Sub35Private Sub HScroll1_Change() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change() Shape1.Top = VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll() Sha