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

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