第九講VB常用內(nèi)部控件

1、第九講第九講 VB常用內(nèi)部控件常用內(nèi)部控件 2復(fù)習(xí)：復(fù)習(xí)：l Dim x(9) 所定義的數(shù)組元素的個數(shù)所定義的數(shù)組元素的個數(shù)_。l 要從要從DoLoop循環(huán)中退出循環(huán)，應(yīng)使用那個語句？循環(huán)中退出循環(huán)，應(yīng)使用那個語句？ A) Exit B) Exit Do C) Exit loop D) Continue l 參數(shù)按值傳遞和按地址傳遞的區(qū)別在哪參數(shù)按值傳遞和按地址傳遞的區(qū)別在哪？ 3本本 講講 主主 要要 內(nèi)內(nèi) 容容l 控件的公共屬性控件的公共屬性l 框架框架(Frame) 圖片框圖片框(PictureBox)圖像框圖像框(Image)l 選項按鈕選項按鈕(OptionButton)、復(fù)選框復(fù)選

2、框(CheckBox)l 列表框列表框(ListBox)、組合框組合框(ComboBox) l 計時器計時器(Timer)、滾動條滾動條(HScrollBar、 VScrollBar) 41. 1. 控件的公共屬性控件的公共屬性l Name屬性屬性(標(biāo)識窗體、控件等對象的名稱標(biāo)識窗體、控件等對象的名稱)u 用于標(biāo)識窗體、控件或數(shù)據(jù)訪問對象的名稱用于標(biāo)識窗體、控件或數(shù)據(jù)訪問對象的名稱u 運行時是只讀的運行時是只讀的u 建立新控件時自動建立一個缺省名稱（控件類建立新控件時自動建立一個缺省名稱（控件類+整整數(shù)）數(shù)）u 以字母開始，最長以字母開始，最長40個字符，可包括字母、數(shù)字和個字符，可包括字母、

3、數(shù)字和下劃線，不能包括標(biāo)點符號或空格下劃線，不能包括標(biāo)點符號或空格(允許漢字允許漢字)u 控件數(shù)組的名稱控件數(shù)組的名稱: Name(Index) 5控件的公共屬性控件的公共屬性l Caption屬性屬性u可為控件指定一個訪問鍵可為控件指定一個訪問鍵: &字母字母uLabel控件標(biāo)題大小沒有限制。其他有標(biāo)題的控件，標(biāo)題控件標(biāo)題大小沒有限制。其他有標(biāo)題的控件，標(biāo)題大小限制為大小限制為255個字符。個字符。u注意與注意與Name屬性、屬性、Text屬性的區(qū)別屬性的區(qū)別l Left、Top、Height、Width屬性屬性u用于設(shè)置或返回控件的位置或尺寸用于設(shè)置或返回控件的位置或尺寸u 窗體窗

4、體: 屬性總是以緹為單位表示；屬性總是以緹為單位表示；u 控件控件: 度量單位取決于其容器的坐標(biāo)系統(tǒng)度量單位取決于其容器的坐標(biāo)系統(tǒng) 6控件的公共屬性控件的公共屬性l Enabled屬性屬性u 用于確定一個窗體或控件是否能夠?qū)κ录鞒鲰憫?yīng)用于確定一個窗體或控件是否能夠?qū)κ录鞒鲰憫?yīng)u True時，控件有效，允許對事件作出響應(yīng)時，控件有效，允許對事件作出響應(yīng) u False時，無效時，無效暗灰色暗灰色，阻止對事件作出響應(yīng)，阻止對事件作出響應(yīng) l Visible屬性屬性u 用來決定窗體用來決定窗體/控件是否可見控件是否可見u 設(shè)置為設(shè)置為True時，控件可見，時，控件可見， False時則不可見時則

5、不可見 u 注意注意: 在設(shè)計窗體上仍是可見的在設(shè)計窗體上仍是可見的, 僅在運行時才不可見僅在運行時才不可見 7【例】【例】VisibleVisible屬性和屬性和EnabledEnabled屬性的比較屬性的比較 8控件的公共屬性控件的公共屬性l BackColor、ForeColor屬性屬性u BackColor用于設(shè)置或返回控件的背景顏色用于設(shè)置或返回控件的背景顏色u ForeColor用于設(shè)置或返回在控件里顯示圖片和文本時的用于設(shè)置或返回在控件里顯示圖片和文本時的前景顏色前景顏色u 在在Label和和Shape控件中，如果控件中，如果BackStyle屬性的設(shè)置值為屬性的設(shè)置值為0(透明

6、透明)，則忽略，則忽略BackColor屬性。屬性。u 如果在如果在Form對象或?qū)ο蠡騊ictureBox控件中設(shè)置控件中設(shè)置BackColor屬屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。將被擦除掉。u 設(shè)置設(shè)置ForeColor屬性值不會影響已經(jīng)打印的文本或繪制的屬性值不會影響已經(jīng)打印的文本或繪制的圖形。圖形。 9控件的公共屬性控件的公共屬性l Font對象屬性對象屬性u FontName、FontSize、FontBold、FontItalic、 FontStrikethru、FontUnderline屬性屬性u Fon

7、t對象屬性對象屬性u 在代碼中引用格式在代碼中引用格式: .Font.& : Name、Size、Bold、Italic、 Underline、Strikethrough 10Private Sub Form_Click() Form1.Font.Name = 隸書隸書 Print 隸書隸書: Print Form1.Font.Size = 14 Print 隸書隸書14號字號字: Print Form1.Font.Bold = True Print 隸書隸書14號字號字,粗體粗體: Print Form1.Font.Italic = True Print 隸書隸書14號字號字,粗體粗

8、體,斜體斜體: Print Form1.Font.Underline = True Print 隸書隸書14號字號字,粗體粗體,斜體斜體,下劃線下劃線: Print Form1.Font.Underline = False Form1.Font.Strikethrough = True Print 隸書隸書14號字號字,粗體粗體,斜體斜體,刪除線刪除線: PrintEnd Sub應(yīng)用舉例應(yīng)用舉例 112.2.框架框架(Frame) 圖片框圖片框(PictureBox)圖像框圖像框(Image)l 框架框架(Frame)u作用作用: 作為控件的容器，對控件進(jìn)行分組作為控件的容器，對控件進(jìn)行分組u

9、如何將控件放在容器中如何將控件放在容器中 選中容器，在容器中直接畫選中容器，在容器中直接畫 選中容器，粘貼控件選中容器，粘貼控件u如何檢查控件是否在容器中如何檢查控件是否在容器中 拖動容器，控件隨容器移動拖動容器，控件隨容器移動 選中框架中的多個控件選中框架中的多個控件: Ctrl+拖動拖動 u刪除容器時，其中的控件隨之被刪除刪除容器時，其中的控件隨之被刪除 u框架的常用屬性框架的常用屬性 Caption, Font, ForeColor, Backcolor Enabled 為為False時框架中的控件無效時框架中的控件無效。 12l 圖片框圖片框(PictureBox)l 圖片框圖片框(P

10、ictureBox)u 作用作用 : 作為容器，對控件進(jìn)行分組；作為容器，對控件進(jìn)行分組； 顯示圖像顯示圖像(不同格式不同格式的圖象的圖象)u 如何顯示圖像如何顯示圖像: 設(shè)置設(shè)置Picture屬性屬性 在屬性窗口中設(shè)置在屬性窗口中設(shè)置 對象名對象名.Picture=LoadPicture(圖形文件名圖形文件名)u 如何清除圖像如何清除圖像 在屬性窗口中刪除在屬性窗口中刪除Picture屬性內(nèi)容屬性內(nèi)容 對象名對象名.Picture=LoadPicture()/ (“”) (也清除文字也清除文字)u 打印與清除文字打印與清除文字 打印打印: 對象名對象名.Print 清除清除: 對象名對象名.

11、Clsu 特點特點 不能延伸圖形以適應(yīng)控件的大小不能延伸圖形以適應(yīng)控件的大小 自動調(diào)整控件大小以適應(yīng)圖像自動調(diào)整控件大小以適應(yīng)圖像: AutoSize = True 13l 圖像框圖像框( (ImageImage) )l 圖像框圖像框( (ImageImage) )u 作用作用: 顯示圖像顯示圖像(不同格式的圖象不同格式的圖象)u 如何顯示圖像如何顯示圖像: 設(shè)置設(shè)置Picture屬性屬性在屬性窗口中設(shè)置在屬性窗口中設(shè)置對象名對象名.Picture=LoadPicture(圖形文件名圖形文件名)u 如何清除圖片如何清除圖片在屬性窗口中刪除在屬性窗口中刪除Picture屬性內(nèi)容屬性內(nèi)容對象名對象

12、名.Picture=LoadPicture()u 特點特點: 可自動調(diào)整控件大小以適應(yīng)圖像可自動調(diào)整控件大小以適應(yīng)圖像: Stretch=False可以延伸圖象以適應(yīng)控件的大小可以延伸圖象以適應(yīng)控件的大小: Stretch=True 14應(yīng)用舉例應(yīng)用舉例例：操練例：操練PictureBox控件的控件的 AutoSize 屬性和屬性和ImageImage控件的控件的Stretch屬性。屬性。 153. 選項按鈕選項按鈕(OptionButton)、復(fù)選框復(fù)選框(CheckBox)l 選項按鈕選項按鈕(OptionButton)u 作用作用: 多選一多選一(放在窗體上、或放在其他容器中放在窗體上、

13、或放在其他容器中)u 屬性屬性 Value: True選中選中 False未選中未選中 Alignment屬性屬性: 決定文本的對齊方式?jīng)Q定文本的對齊方式 Style控制外觀（控制外觀（0或或1）u 事件事件 Click事件事件: 選項按鈕從未選擇變成選擇狀態(tài)時產(chǎn)生選項按鈕從未選擇變成選擇狀態(tài)時產(chǎn)生 (單擊鼠標(biāo)改變、代碼改變單擊鼠標(biāo)改變、代碼改變 ) 16【例】設(shè)計如下圖所示的界面，用選項按鈕設(shè)置文本框的文【例】設(shè)計如下圖所示的界面，用選項按鈕設(shè)置文本框的文字顏色和背景顏色。字顏色和背景顏色。Option1Option2ValueValue為為TrueTrue的兩種顯示方式的兩種顯示方式Sty

14、le為為1Style為為0Option3Option4Option5Option6應(yīng)用舉例應(yīng)用舉例Private Sub Option1_Click() Text1.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

15、Option5_Click() Text1.BackColor = vbGreenEnd SubPrivate Sub Option6_Click() Text1.BackColor = vbBlueEnd Sub設(shè)置前景設(shè)置前景背景設(shè)置背景設(shè)置 18 復(fù)選框復(fù)選框( (CheckBox) )l 復(fù)選框復(fù)選框( (CheckBox) ) u 作用作用: : 多選一或多選多多選一或多選多( (放在窗體上或其他容器中放在窗體上或其他容器中) )u 屬性屬性 Value : 0未選中未選中 1選中選中 2灰度狀態(tài)灰度狀態(tài)( (常用于表示不確定或常用于表示不確定或部分選中部分選中) ) Alignme

16、nt屬性屬性: 決定文本的對齊方式?jīng)Q定文本的對齊方式 Style: 控制外觀控制外觀 0標(biāo)準(zhǔn)形式標(biāo)準(zhǔn)形式 1 1按鈕形式按鈕形式u 事件：事件： Click事件事件 19【例】設(shè)計界面如下圖所示，用復(fù)選框設(shè)置文本框的文字樣【例】設(shè)計界面如下圖所示，用復(fù)選框設(shè)置文本框的文字樣式與效果。式與效果。Check1Check2Check3Check4應(yīng)用舉例應(yīng)用舉例Private Sub Check1_Click() Text1.FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click() Text1.FontItalic = Check2.Value

17、End SubPrivate Sub Check3_Click() Text1.FontStrikethru = Check3.ValueEnd SubPrivate Sub Check4_Click() Text1.FontUnderline = Check4.ValueEnd Sub 214. 列表框列表框(ListBox)、組合框組合框(ComboBox)l 列表框列表框( (ListBoxListBox) )u 作用作用: :提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條u 屬性屬性 Style Style外形外形( (常規(guī)形式、復(fù)選框形式常規(guī)形式、復(fù)選框形式

18、) ) List List列表內(nèi)容。列表內(nèi)容。 設(shè)計時設(shè)計時: : 用用Ctrl+Ctrl+ 換行換行; ; 運行時運行時: : List(i)List(i)表示第表示第i i項項 ColumnsColumns列表形式列表形式 0: 0:垂直單列、垂直單列、1:1:水平單列、水平單列、1:1:水平多列水平多列 TextText只讀、運行期用，獲取當(dāng)前選擇項目的值只讀、運行期用，獲取當(dāng)前選擇項目的值 ListIndexListIndex運行期用，當(dāng)前選定項目的索引運行期用，當(dāng)前選定項目的索引(0(0) ) 如果未選定項目，則如果未選定項目，則 ListIndexListIndex 值為值為 -1

19、 -1 ListCountListCount列表部分項目的個數(shù)列表部分項目的個數(shù) SortedSorted元素是否自動按字母順序排序元素是否自動按字母順序排序 SelectedSelected運行期用，用于選擇某項運行期用，用于選擇某項 如如List1.Selected(3)=True List1.Selected(3)=True 選擇第選擇第4 4項項MultiSelectMultiSelect: 0: 0缺省值，不允許復(fù)選；缺省值，不允許復(fù)選； 1 1鼠標(biāo)單擊、鼠標(biāo)單擊、按空格鍵在列表中選擇或取消選擇；按空格鍵在列表中選擇或取消選擇； 2 2 按下按下 ShiftShift并并單擊鼠標(biāo)或按

20、下單擊鼠標(biāo)或按下 Shift Shift 以及一個箭頭鍵將在以前選中項的以及一個箭頭鍵將在以前選中項的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項。按下基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項。按下 Ctrl Ctrl 并單擊鼠標(biāo)在并單擊鼠標(biāo)在列表中選中或取消選中項。列表中選中或取消選中項。 u方法方法 AddItemAddItem向列表框中添加新的項目向列表框中添加新的項目 .AddItemAddItem , RemoveItemRemoveItem從列表框中移除項目從列表框中移除項目 .RemoveItemRemoveItem ClearClear清除列表框中的所有項目清除列表框中的所有項目 .ClearClear 23

21、 【例】例】 設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列的各列(字段字段)名稱。名稱。將左列表框中選擇的書名移動到右列表框中將左列表框中選擇的書名移動到右列表框中將右列表框中選擇的書名移動到左列表框中將右列表框中選擇的書名移動到左列表框中將左列表框中的所有書名移動到右列表框中將左列表框中的所有書名移動到右列表框中將右列表框中的所有書名移動到左列表框中將右列表框中的所有書名移動到左列表框中List1List2應(yīng)用舉例應(yīng)用舉例 24組合框組合框(ComboBox)l 組合框組合框( (ComboBoxComboBox) )u 作用作用: :

22、提供列表提供列表( (可折疊可折疊) )、文本輸入、文本輸入u 屬性屬性 ListList列表內(nèi)容列表內(nèi)容( (Ctrl+EnterCtrl+Enter換行換行) ) StyleStyle外形外形 0 0下拉組合框下拉組合框( (折疊，能輸入折疊，能輸入) ) 1 1簡單組合框簡單組合框( (不折疊，能輸入不折疊，能輸入) ) 2 2下拉列表框下拉列表框( (不能修改不能修改TextText屬性，即不能輸入屬性，即不能輸入) ) TextText文本框內(nèi)容文本框內(nèi)容 ListIndexListIndex運行期間，選定項目的索引（索引從運行期間，選定項目的索引（索引從0 0開始）開始） List

23、CountListCount列表部分項目的個數(shù)列表部分項目的個數(shù) SortedSorted元素是否自動按順序排序元素是否自動按順序排序 25u 事件事件 組合框的事件與組合框的事件與StyleStyle屬性有關(guān)。屬性有關(guān)。StyleStyle為為0 0時時: : 響應(yīng)響應(yīng)ClickClick、ChangeChange、DropDownDropDown事件事件StyleStyle為為1 1時時: : 響應(yīng)響應(yīng)ClickClick、DblClickDblClick、ChangeChange事件事件StyleStyle為為2 2時時: : 響應(yīng)響應(yīng)ClickClick、DropDownDropDow

24、n事件事件u 方法方法AddItemAddItem: : 向組合框中添加新的項目向組合框中添加新的項目 .AddItemAddItem , RemoveItemRemoveItem: : 從組合框中移除項目從組合框中移除項目 .RemoveItemRemoveItem Clear: Clear: 清除組合框中的所有項目清除組合框中的所有項目 .Clear Clear 組合框組合框(ComboBox) 26應(yīng)用舉例應(yīng)用舉例【例】在窗體上放【例】在窗體上放4 4個組合框，用于選擇微機(jī)配置，包括選擇機(jī)個組合框，用于選擇微機(jī)配置，包括選擇機(jī)型、型、CPUCPU主頻、硬盤、內(nèi)存。運行時，在選擇了各項內(nèi)容

25、之后，主頻、硬盤、內(nèi)存。運行時，在選擇了各項內(nèi)容之后，單擊單擊“確定確定”按鈕顯示所選擇的機(jī)器配置。按鈕顯示所選擇的機(jī)器配置。Style=1 Style=2 Style=2 Style=0 275. 計時器計時器(Timer)、滾動條滾動條l定時器定時器( (Timer)Timer)u 作用作用: :周期性地執(zhí)行某功能、運行時不可見周期性地執(zhí)行某功能、運行時不可見u 屬性屬性 Enabled: Enabled: 將將EnabledEnabled設(shè)置為設(shè)置為FalseFalse時將停止定時器時將停止定時器 的計時操作的計時操作 Interval: Interval: 計時事件執(zhí)行的時間間隔計時事

26、件執(zhí)行的時間間隔( (毫秒毫秒) )u 事件：事件：TimerTimer事件（事件（ 每當(dāng)計時時間到時產(chǎn)生）每當(dāng)計時時間到時產(chǎn)生） & 注意注意: : 一個計時器的最大計時時間為一個計時器的最大計時時間為6553565535毫秒毫秒 , , 等于等于 1 1 分鐘多一些。如果最大計時時間大于該值，可以使用多個計分鐘多一些。如果最大計時時間大于該值，可以使用多個計時器。時器。 28應(yīng)用舉例應(yīng)用舉例【例例1】開發(fā)一個電子時鐘。開發(fā)一個電子時鐘?！纠?】開發(fā)一個蝴蝶飛舞的開發(fā)一個蝴蝶飛舞的動畫動畫。 29滾動條滾動條( (HScrollBarHScrollBar、VScrollBarVScrollBar) )l 滾動條滾動條( (HScrollBarHScrollBar、VScrollBarVScrollBar) )u 作用：用來輔助顯示內(nèi)容較多的信息，或用來對要顯示作用：用來輔助顯示內(nèi)容較多的信息，或用來