vb編程窗體和控件課件

2.2VB窗體和常用控件VB程序設(shè)計(jì)本章大綱窗體對象1標(biāo)簽對象2文本框?qū)ο?命令按鈕對象4常用屬性常用事件常用方法VB程序設(shè)計(jì)預(yù)備知識屬性決定了對象的外觀和操作。屬性可以通過屬性窗口設(shè)置（設(shè)計(jì)階段），也可以在程序代碼中設(shè)置（運(yùn)行階段）。有些屬性只能在設(shè)計(jì)階段設(shè)置，稱為只讀屬性。

VB程序設(shè)計(jì)1、窗體對象窗體是用戶與計(jì)算機(jī)交互的界面，是所有控件的容器。VB程序設(shè)計(jì)找找看，兩個(gè)窗體有什么不同？VB程序設(shè)計(jì)窗體的常用屬性注：下面的屬性大部分也適用于其他對象。屬性說明Name（名稱）所有對象都具有的屬性；VB提供一個(gè)默認(rèn)名稱，用戶可以修改。主要是在代碼中使用。只讀屬性。Caption控件上顯示的內(nèi)容。Height、Width、Top、Left控件的位置屬性。Enabled決定控件是否可用。屬性值有true、falseVisible決定控件是否可見。屬性值有true、falseFont系列設(shè)置字體外觀。有FontName、FontSize、FontBold、FontItalic、FontUnderLine等。VB程序設(shè)計(jì)控件的位置屬性VB程序設(shè)計(jì)屬性說明ForeColor窗體顯示文本的前景色

。BackColor設(shè)置窗體的背景色

。BorderStyle設(shè)置窗體的邊框風(fēng)格。Icon（圖標(biāo)）窗體最小化時(shí)的圖標(biāo)ControBox（控制框）屬性窗體是否有控制菜單

。True/false。只適用于窗體Picture（圖形）屬性設(shè)置窗體的背景圖片

MaxButton、MinButton

控制是否有最大、最小化按鈕VB程序設(shè)計(jì)BorderStyle（邊框類型）屬性設(shè)定值常量定義0None無邊框，無法移動(dòng)及改變大小1FixedSingle單線邊框，可移動(dòng)但不可以改變窗口大小2Sizable雙線邊框，可移動(dòng)并可以改變窗體大小3FixedDouble固定邊框，不可以改變窗體大小4FixedToolWindow有關(guān)閉按鈕，不可以改變窗體大小5SizableToolWindow有關(guān)閉按鈕，可以改變窗體大小VB程序設(shè)計(jì)RGB顏色方案顏色紅色值綠色值藍(lán)色值黑色000藍(lán)色00255綠色02550青色0255255紅色25500洋紅色2550255黃色2552550白色255255255VB程序設(shè)計(jì)窗體的主要事件Click：單擊窗體時(shí)觸發(fā)；（用戶控制）DbClick：雙擊窗體時(shí)觸發(fā)；（用戶控制）Load：窗體裝入工作區(qū)時(shí)觸發(fā)。（自動(dòng)執(zhí)行）Unload：當(dāng)從內(nèi)存中卸載窗體時(shí)發(fā)生。（自動(dòng)執(zhí)行）Activate：當(dāng)窗體成為活動(dòng)窗體時(shí)觸發(fā)的事件

Deactivate：在另一個(gè)窗體變?yōu)榛顒?dòng)窗口前觸發(fā)VB程序設(shè)計(jì)窗體的常用方法Show：顯示窗體Hide：隱藏窗體，但沒有從內(nèi)存中卸載Refresh：對窗體進(jìn)行刷新Print：在窗體上顯示內(nèi)容Cls：清除窗體上的內(nèi)容Move：窗體移動(dòng)VB程序設(shè)計(jì)例2.2實(shí)例演示[例題]窗體屬性、事件、方法練習(xí)。要求見p29頁例2.2VB程序設(shè)計(jì)本題說明程序中屬性和方法前可省略對象名，默認(rèn)為當(dāng)前窗體當(dāng)前窗體也可用me來代替窗體事件的名稱均為Form_事件名窗體的form_load()里print前必須用show方法或改窗體的屬性autoredrawVB程序設(shè)計(jì)2、標(biāo)簽對象標(biāo)簽主要用來顯示文本信息，不能輸入信息主要屬性Caption：標(biāo)簽上顯示的文本內(nèi)容alignment：標(biāo)簽中文本的對齊方式0：左對齊；1：右對齊；2：居中Autosize：標(biāo)簽是否根據(jù)內(nèi)容自動(dòng)調(diào)整大小Wordwrap：標(biāo)簽中的文本在顯示的時(shí)候是否能夠自動(dòng)換行標(biāo)簽保持設(shè)計(jì)時(shí)的大小，一旦內(nèi)容太長，標(biāo)題會(huì)顯示不全VB程序設(shè)計(jì)2、標(biāo)簽對象主要屬性Backstyle：標(biāo)簽的背景模式0：透明；1：把背景覆蓋掉Borderstyle：設(shè)置標(biāo)簽的邊框樣式0：無邊框；1：單線框Index屬性表明標(biāo)簽在數(shù)組中的下標(biāo)，是一個(gè)非負(fù)整數(shù)Datafield和datasource用于設(shè)置標(biāo)簽和數(shù)據(jù)源的連接。Datasource指定數(shù)據(jù)庫，datafield指定字段。屬性綜合應(yīng)用(例2.exe)VB程序設(shè)計(jì)2、標(biāo)簽對象常用事件（很少用）：ClickDblclick常用方法Move：移動(dòng)標(biāo)簽的位置Refresh：刷新標(biāo)簽的內(nèi)容VB程序設(shè)計(jì)例2.3實(shí)例演示VB程序設(shè)計(jì)3、文本框?qū)ο笪谋究蛑饕脕磔斎搿⑿薷男畔?。主要屬性（沒有caption屬性）Text：存放用戶輸入的內(nèi)容MaxLength：最大內(nèi)容長度0表示任意長度Multiline：是否可以顯示多行文本ScrollBars：是否加滾動(dòng)條Passwordchar：如何在文本框中顯示輸入的字符為空字符串時(shí)，表示顯示用戶輸入的信息Tabindex：控件在容器中的tab順序Passwordchar=*VB程序設(shè)計(jì)3、文本框?qū)ο笾饕獙傩裕篖ocked：文本框是否鎖定True表示框中文本不能被編輯，false表示可以編輯文本SelStart、SelLength、SelText：標(biāo)識用戶選中的文本屬性窗口中沒有這三個(gè)屬性，只能在運(yùn)行期間設(shè)置Selstart：選定正文的開始位置Sellength：選定文本的長度Seltext：選定的正文內(nèi)容 VB程序設(shè)計(jì)例2.4實(shí)例代碼PrivateSubForm_Click()Text2.Text=Text1.SelTextEndSubVB程序設(shè)計(jì)文本框的常用事件主要事件Change：Text發(fā)生改變時(shí)觸發(fā)。KeyPress：用戶按下并且釋放鍵盤上的一個(gè)鍵時(shí)觸發(fā)，該事件會(huì)返回一個(gè)參數(shù)KeyAscii，通過使用“Chr(KeyAscii)”可以將該參數(shù)轉(zhuǎn)換為所按下的字符。LostFocus：當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā)。一般用來對數(shù)據(jù)進(jìn)行檢測。GetFocus：當(dāng)文本框獲得焦點(diǎn)時(shí)觸發(fā)。VB程序設(shè)計(jì)文本框的常用事件常用方法SetFocus：把光標(biāo)移到指定的文本框中。使用格式：對象.setfocusVB程序設(shè)計(jì)4、按鈕對象常用屬性：Caption：按鈕上的文本在某個(gè)字母前加&，這個(gè)字母就是快捷鍵。用戶按下alt+該字母，便可激活該按鈕。Cancel屬性該命令按鈕是否為按esc鍵默認(rèn)的命令按鈕，true/false，若為true，按esc鍵相當(dāng)于單擊了該按鈕。一個(gè)窗體只能有一個(gè)按鈕的cancel屬性為trueVB程序設(shè)計(jì)4、按鈕對象常用屬性：Default：設(shè)置命令按鈕是否是默認(rèn)按鈕True/false。為true時(shí)，按enter鍵相當(dāng)于單擊該按鈕。一個(gè)窗體只能有一個(gè)按鈕的default屬性為trueValue：檢查按鈕是否被按下，運(yùn)行期間設(shè)置Picture：按鈕上顯示圖形，與style屬性聯(lián)合使用（style=1，表示圖形格式）VB程序設(shè)計(jì)實(shí)例2.5設(shè)計(jì)程序。單擊標(biāo)題為“顯示”的命令按鈕，窗體上顯示內(nèi)容為“歡迎使用vb”的標(biāo)簽，同時(shí)命令按鈕的標(biāo)題改為“隱藏”。單擊“隱藏”的命令按鈕，標(biāo)簽隱藏，同時(shí)命令按鈕的標(biāo)題改為“顯示”。單擊“關(guān)閉”按鈕，程序結(jié)束運(yùn)行。VB程序設(shè)計(jì)重要代碼PrivateSubCommand1_Click()IfCommand1.Caption="&X顯示"ThenLabel1.Visible=TrueCommand1.Caption="&Y隱藏"ElseLabel1.Visible=FalseCommand1