VB語(yǔ)言第2章教案(上2).ppt

2019/7/6,2.2 窗體 窗體是Visual Basic應(yīng)用程序運(yùn)行界面的重要組成部分，任何一個(gè)應(yīng)用程序都至少有一個(gè)窗體，窗體本身也是一種對(duì)象。,2019/7/6,2.2 窗體,窗體的常用屬性(一） Name屬性：返回或設(shè)置在程序代碼中用于標(biāo)識(shí)窗體的名字，該屬性在運(yùn)行時(shí)不可見(jiàn)（語(yǔ)法：object.Name =string） 新建工程時(shí)，窗體的名稱缺省為 Form1；添加第二個(gè)窗體，其名稱缺省為 Form2，依次類(lèi)推。 Caption 屬性 設(shè)置窗體的標(biāo)題內(nèi)容。標(biāo)題內(nèi)容用來(lái)概括說(shuō)明該窗體。 object.Caption=string） Appearance屬性：返回或設(shè)置窗體或窗體上的控件的顯示效果（語(yǔ)法：object.Appearance =Value） Appearance屬性的設(shè)置值是： 0 窗體及窗體上的控件顯示為平面效果 1 窗體及窗體上的控件顯示為立體效果，為缺省值。,2019/7/6,窗體的常用屬性（二） BackColor屬性和ForeColor屬性：返回或設(shè)置對(duì)象(窗體）的背景顏色或?qū)ο笾酗@示的圖片和文本的前景顏色 (語(yǔ)法：Form1.BackColor=vbBlack或object.ForeColor=vbRed) 屬性值：,2019/7/6,窗體的常用屬性（三） BorderStyle屬性：返回或設(shè)置對(duì)象的邊框樣式 （語(yǔ)法： object.BorderStyle=value） BorderStyle屬性的設(shè)置值是： 0 無(wú)。沒(méi)有邊框及與邊框相關(guān)的元素 1 固定單邊框 2 可調(diào)整的邊框（缺省值） 3 固定對(duì)話框 4 固定工具窗口 5 可變尺寸工具窗口,2019/7/6,窗體的常用屬性（四） Moveable屬性：返回或設(shè)置窗體的位置是否可以被移動(dòng) （語(yǔ)法：object.Moveable=boolean） Moveable屬性的設(shè)置值是： True或-1 窗體的位置可以被移動(dòng) False或0 窗體的位置不能被移動(dòng) （注意和BorderStyle屬性的區(qū)別） MaxButton、MinButton屬性：返回一個(gè)值，確定窗體的“最大化”或“最小化”按鈕是否有效 （語(yǔ)法：object.MaxButton和object.MinButton） MaxButton或MinButton屬性的設(shè)置值是： True 窗體的“最大化”或“最小化”按鈕有效（缺省值） False 窗體的“最大化”或“最小化”按鈕無(wú)效,2019/7/6,窗體的常用屬性（五） Enabled屬性：返回或設(shè)置窗體是否能夠?qū)︽I盤(pán)或鼠標(biāo)產(chǎn)生的事件做出反應(yīng)（語(yǔ)法： object.Enabled=boolean） Enabled屬性的設(shè)置值是： True 設(shè)置object對(duì)事件做出反應(yīng)（缺省值） False 設(shè)置object對(duì)事件不做反應(yīng) Font屬性： 設(shè)定在窗體中 顯示的文本所使用的字體 （語(yǔ)法： object.Font）,2019/7/6,窗體的常用屬性（六） 在Height、Width屬性：返回或設(shè)置窗體的高度和寬度 （語(yǔ)法： object.Height=number和object.Width=number） Left和Top屬性：確定窗體的左上角在屏幕上的橫、縱坐標(biāo)（語(yǔ)法： object.Left=value和object.Top=value） scalemode屬性 VB提供了默認(rèn)的坐標(biāo)系統(tǒng)(twip)。窗體左上角為坐標(biāo)原點(diǎn)，上邊框?yàn)樽鴺?biāo)橫軸，左邊框?yàn)樽鴺?biāo)縱軸，坐標(biāo)單位為緹（twip），1 twip =1/20像素點(diǎn)=1/1440英寸=1/567厘米。建議使用scalemode為pixel（像素點(diǎn)）的坐標(biāo)模式。,2019/7/6,窗體的常用屬性（七） StartUpPosition屬性：返回或設(shè)置窗體首次出現(xiàn)時(shí)的顯示位置 （語(yǔ)法：object. =position） StartUpPosition屬性的設(shè)置值是： 0 手動(dòng)指定取值，窗體的初次顯示位置由Left和Top屬性決定 （默認(rèn)值） 1 所隸屬的對(duì)象的中央 2 屏幕中央 3 窗口缺省（屏幕的左上角） Picture屬性：返回或設(shè)置窗體中顯示的圖片 （語(yǔ)法：object.Picture=picture） Picture用于指定圖片文件，設(shè)置如下： ： None 代表沒(méi)有圖片（缺省值） Bitmap、icon、metafile、GIF、JPEG 可以指定一個(gè)圖片 【例】Form1.Picture = LoadPicture(“c:windowsclouds.bmp“),2019/7/6,窗體的常用屬性（八） Visible屬性：返回或設(shè)置窗體是否顯示 （語(yǔ)法：object.Visible=boolean ） Visible屬性的設(shè)置值是： True 設(shè)置窗體是可見(jiàn)的（缺省值） False 設(shè)置窗體是隱藏的 WindowState屬性：用來(lái)指定窗體的可視狀態(tài) （語(yǔ)法：object.WindowState=value) WindowState屬性的設(shè)置值是： 0 窗體以正常方式顯示，為缺省取值 1 窗體縮到最小，顯示為圖標(biāo)狀態(tài) 2 窗體放大到最大尺寸,2019/7/6,其它窗體屬性,AutoRedraw屬性：返回或設(shè)置對(duì)象的自動(dòng)重繪是否有效（語(yǔ)法： object.AutoRedraw=boolean） AutoRedraw屬性的設(shè)置值是： True 使對(duì)象的自動(dòng)重繪有效。此時(shí)對(duì)象顯示到屏幕上 False 缺省值，使對(duì)象的自動(dòng)重繪無(wú)效 Icon屬性：返回或設(shè)置程序運(yùn)行時(shí)窗體處于最小化狀態(tài)或在窗體的左上角看到窗體的圖標(biāo)。 （語(yǔ)法： object.Icon=LoadPicture(iconpath)）,2019/7/6,2.2 窗體的屬性,窗體外觀設(shè)計(jì)實(shí)例 【例】建立一個(gè)窗體，并對(duì)其進(jìn)行屬性設(shè)置，使該窗體的外觀符合Windows應(yīng)用程序界面風(fēng)格。,2019/7/6,窗體外觀設(shè)計(jì)實(shí)例操作步驟 創(chuàng)建窗體 設(shè)置窗體的Caption（標(biāo)題）屬性為“窗體范例” 設(shè)置窗體首次出現(xiàn)時(shí)的顯示位置：設(shè)置Left（左邊距）屬性和Top（上邊距）屬性分別為150和100 設(shè)置窗體首次出現(xiàn)時(shí)的大小：設(shè)置Height（高度）和Width（寬度）屬性分別為300和200 設(shè)置窗體的Appearance（立體顯示）屬性為1。 設(shè)置窗體的BorderStyle（邊框樣式）屬性的取值為2（即可調(diào)整的邊框） 設(shè)置窗體顯示控制菜單框、“最大化”按鈕和“最小化”按鈕為可見(jiàn)：設(shè)置ControlBox（控制按鈕）屬性的取值為T(mén)rue 設(shè)置窗體的MaxButton（“最大化”按鈕）屬性和MinButton（“最小化”按鈕）屬性均為T(mén)rue 設(shè)置窗體的背景圖案Picture屬性為“C:WINDOWSCLOUDS.BMP” 設(shè)置窗體的字體樣式Font屬性為“宋體”，字號(hào)為“小五”,2019/7/6,2.3 窗體的事件,編寫(xiě)窗體的事件過(guò)程代碼 單擊要編寫(xiě)事件過(guò)程的窗體 在“視圖”菜單中選擇“代碼窗口”選項(xiàng)，或在“工程資源管理器”窗口中單擊左上角的“查看代碼”按鈕，調(diào)出代碼窗口 單擊代碼窗口標(biāo)題條下面的“對(duì)象”下拉列表并選擇相應(yīng)窗體 單擊“過(guò)程”下拉列表并選擇相應(yīng)的事件名稱 編寫(xiě)窗體的事件過(guò)程代碼（按照事件驅(qū)動(dòng)機(jī)制編寫(xiě)程序）,2019/7/6,窗體的常用事件過(guò)程（一） Click事件：當(dāng)用鼠標(biāo)單擊窗體的空白區(qū)域或窗體上的一個(gè)無(wú)效控件被觸發(fā)（語(yǔ)法：Private Sub Form_Click()） DblClick事件：當(dāng)用鼠標(biāo)雙擊窗體的空白區(qū)域或窗體上的一個(gè)無(wú)效控件時(shí)被觸發(fā)（語(yǔ)法：Private Sub Form_DblClick()）,2019/7/6,窗體的常用事件過(guò)程（二） Load事件：當(dāng)窗體被裝載時(shí)被觸發(fā) （語(yǔ)法：Private Sub Form_Load()） QueryUnload事件：當(dāng)窗體將要關(guān)閉時(shí)被觸發(fā) （語(yǔ)法：Private Sub Form_QueryUnload(cancel As Integer,unloadmode As Integer)） Unload事件：當(dāng)窗體從屏幕上刪除時(shí)被觸發(fā) （語(yǔ)法：Private Sub Form_Unload(cancel As Integer)）,2019/7/6,【例】編寫(xiě)一段程序代碼實(shí)現(xiàn)以下功能：程序加載窗體之前出現(xiàn)一個(gè)對(duì)話框，啟動(dòng)之后每次用鼠標(biāo)單擊窗體，該窗體的面積將會(huì)變大。雙擊鼠標(biāo)時(shí)窗體的背景色被改變。關(guān)閉窗體時(shí)也出現(xiàn)一個(gè)對(duì)話框。 Private Sub Form_Load() MsgBox “程序正在啟動(dòng)“ End Sub Private Sub Form_Click() Form1.Height = Form1.Height + 200 Form1.Width = Form1.Width + 250 End Sub Private Sub Form_DblClick() Form1.BackColor = vbRed End Sub Private Sub Form_Unload(Cancel As Integer) MsgBox “該窗體即將被關(guān)閉“ Cancel = 1 等于0和1的區(qū)別 End Sub,2019/7/6,窗體的常用事件過(guò)程（三） MouseMove事件：當(dāng)鼠標(biāo)移動(dòng)時(shí)被觸發(fā) 語(yǔ)法：Private Sub Form_MouseMove（button As Integer,shift As Integer,x As Single,y As Single） MouseDown和MouseUp事件：當(dāng)按下或松開(kāi)鼠標(biāo)按鈕時(shí)被觸發(fā) 語(yǔ)法：Private Sub Form_MouseDown(button As Integer,shift As Integer,x As Single,y As Single) Form_KeyPress 事件 Private Sub Form_KeyPress(KeyAscii As Integer),2019/7/6,2.4 窗體的方法,窗體的常用方法 Print方法 格式：對(duì)象名.Print 表達(dá)式列表 功能：在對(duì)象上輸出表達(dá)式的值。 說(shuō)明： （1）對(duì)象名：可以是Form（窗體）、Debug（立即窗口）、Picture（圖片框）、Printer（打印機(jī)）。省略此項(xiàng)，表示在當(dāng)前窗體上輸出。 2）表達(dá)式列表：是一個(gè)或多個(gè)表達(dá)式，若為多個(gè)表達(dá)式，則各表達(dá)式之間用“，”或“；”隔開(kāi)。省略此項(xiàng)，則輸出一空行。 Cls方法 格式：對(duì)象名.Cls 功能：Cls方法清除Print方法顯示的文本或在圖片框中顯示的圖形，并把輸出位置移到對(duì)象的左上角。,2019/7/6,窗體的其它常用方法 Load語(yǔ)句：將窗體加載到內(nèi)存中（語(yǔ)法：Load object） Show方法：用于窗體的顯示（語(yǔ)法：object.Show） Hide方法：用于隱藏窗體（語(yǔ)法：object.Hide） Unload語(yǔ)句：用于從內(nèi)存中卸載窗體（語(yǔ)法：Unload object） Move方法：用于移動(dòng)窗體 （語(yǔ)法：object.Move left, top, width, height） Refresh方法：用于對(duì)一個(gè)窗體進(jìn)行全部重繪 （語(yǔ)法：object.Refresh） SetFocus方法：用于使窗體獲得焦點(diǎn)（語(yǔ)法：object.SetFocus） PopupMenu方法：在窗體上的指定位置或鼠標(biāo)當(dāng)前位置顯示彈出式菜單（語(yǔ)法：object.PopupMenu menuname ,flags,x,y ,boldcommand ）,2019/7/6,窗體的常用事件方法（四） 【例】編寫(xiě)一段程序代碼實(shí)現(xiàn)以下功能：，當(dāng)鼠標(biāo)在窗體移動(dòng)時(shí)，在窗體顯示鼠標(biāo)的位置 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Cls Print Print “鼠標(biāo)當(dāng)前位置為“; X; “,“; Y 在窗體上顯示鼠標(biāo)位置 End Sub,2019/7/6,窗體的常用事件方法 【例】編寫(xiě)一段程序代碼實(shí)現(xiàn)以下功能：每次用鼠標(biāo)單擊窗體，如果按下的是左鍵則該窗體的位置將會(huì)向左移動(dòng)，如果按下的是右鍵則清屏幕“ Private Sub Form_MouseDown(But