版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
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
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024年公司掛靠業(yè)務(wù)合作合同一
- 2024房地產(chǎn)承包合同范本
- 2024年度美團(tuán)外賣商家合作協(xié)議模板一
- 2024年度商業(yè)聯(lián)盟合作協(xié)議一
- 2024年房產(chǎn)買賣協(xié)議經(jīng)典格式一
- 2024年度幼兒看護(hù)協(xié)議范本版
- 2024年水利項目專項咨詢服務(wù)標(biāo)準(zhǔn)化協(xié)議模板
- 玩具熊市場環(huán)境與對策分析
- 牽引動物用皮索項目可行性實(shí)施報告
- 2024修訂版國際貿(mào)易合作合同一
- 生豬屠宰獸醫(yī)衛(wèi)生檢驗(yàn)人員理論考試題庫及答案
- 20以內(nèi)進(jìn)位加法100題(精心整理6套-可打印A4)
- -勤儉節(jié)約 傳承美德 主題班會課件(共18張ppt)
- 750正V安裝調(diào)試說明書
- 感覺功能的評定ppt課件
- 公司共管賬戶協(xié)議
- 供熱企業(yè)安全生產(chǎn)檢查全套記錄
- 南京UPFC工程電網(wǎng)交流保護(hù)與UPFC保護(hù)分析
- 污水處理廠常見問題
- 語文實(shí)踐活動評價量規(guī)表
- 《踏雪尋梅》合唱譜
評論
0/150
提交評論