VB程序設(shè)計(jì)電子教案第2章：窗體程序設(shè)計(jì).ppt

1、第2章 窗體程序設(shè)計(jì),窗體相關(guān)概念 單窗體程序設(shè)計(jì) 多窗體程序設(shè)計(jì),本章學(xué)習(xí)目標(biāo),掌握窗體的基本屬性、事件和方法的使用 掌握多窗體程序設(shè)計(jì)的基本方法，尤其是啟動(dòng)窗體的設(shè)置，以及通過(guò)程序來(lái)控制窗體的加載、顯示、隱藏、關(guān)閉等,窗體相關(guān)概念,窗體的屬性,基本外觀屬性,其它基本屬性,Backcolor BorderStyl Enabled Font ForeColor Top、Left Height、Width Moveable Picture Visible WindowState,窗體的事件,Load/UnLoad Activate/Deactivate Initialize Click/DblC

2、lick Resize,窗體的方法,Cls ； Show； Hide； Move ； Refresh 與畫圖、文本有關(guān)的方法：Circle、Line、Point、TextHeight、TextWidth等,單窗體程序設(shè)計(jì)基本方法,建立編輯工程； 在窗體上放置所需控件； 設(shè)置窗體的相關(guān)屬性以及各控件的相關(guān)屬性； 編寫相關(guān)控件對(duì)象的事件代碼； 保存工程并運(yùn)行。,窗體事件的發(fā)生順序,首先發(fā)生Initialize事件，可用該事件初始化窗體所需的數(shù)據(jù)； 然后窗體被裝載，觸發(fā)Load事件； 當(dāng)窗體獲得焦點(diǎn)成為活動(dòng)對(duì)象時(shí)，Activate在GotFocus之前發(fā)生； 運(yùn)行期間如果窗體的大小發(fā)生改變則觸發(fā)Re

3、size事件，隨后發(fā)生Paint事件； 窗體失去焦點(diǎn)時(shí)，LostFocus事件在Deactivate事件之前發(fā)生，如果窗體從內(nèi)存中刪除，則觸發(fā)Unload事件； 窗體的其它一些事件，如鼠標(biāo)事件、鍵盤事件根據(jù)用戶觸發(fā)而發(fā)生，與上述事件沒(méi)有必然聯(lián)系。,單窗體程序設(shè)計(jì)實(shí)例,【實(shí)例2-1】程序運(yùn)行開(kāi)始時(shí)，窗體為整個(gè)屏幕的80%，且居屏幕中央，內(nèi)含有一背景圖；以后每單擊窗體一次，窗體便便開(kāi)始縮小直到窗體的高或?qū)捫∮?00Twip時(shí)便再增大到原樣大小。,主要參考代碼,Private Sub Form_Load() Form1.Width = Screen.Width * 0.8 Form1.Height

4、= Screen.Height * 0.8 Form1.Left = Screen.Width * 0.1 Form1.Top = Screen.Height * 0.1 End Sub,Private Sub Form_Click() Form1.Width = Form1.Width - 100 Form1.Height = Form1.Height - 100 If Form1.Width 500 Or Form1.Height 500 Then Form1.Width = Screen.Width * 0.8: Form1.Height = Screen.Height * 0.8 En

5、d If End Sub,【思考題2-1】請(qǐng)讀者考慮如何實(shí)現(xiàn)窗體在屏幕上的移動(dòng)，且移到一定位置后便不再移動(dòng)。 窗體在屏幕上的移動(dòng)可通過(guò)兩種方法實(shí)現(xiàn)：每次有規(guī)律地改變窗體的Left和Top屬性，或者直接調(diào)用窗體的Move方法。,多窗體程序設(shè)計(jì),與多窗體有關(guān)的操作 添加窗體； 切換窗體； 刪除窗體； 設(shè)置啟動(dòng)窗體；,與多窗體有關(guān)的語(yǔ)句和方法,Load語(yǔ)句 Show方法 Unload語(yǔ)句 Hide方法,多窗體程序設(shè)計(jì)實(shí)例,【實(shí)例2-2】編寫一含有三個(gè)窗體（窗體名分別為form1,form2,form3）的應(yīng)用程序，剛運(yùn)行時(shí)，form3為默認(rèn)啟動(dòng)窗體，且最大化，form2為最小化狀態(tài)，form1為隱藏狀態(tài)，單擊form3中的命令按鈕“顯示form1”后即可顯示窗體Form1，并關(guān)閉其余二個(gè)窗體。,參考代碼,Private Sub Command1_Click() Form1.Show顯示Form1 Unload Form2關(guān)閉Form2，即從內(nèi)存中清除Form2 Unload Form3關(guān)閉Form3，即從內(nèi)存中清除Form3 End Sub Private Sub Form_Load() Form1.Visible = False運(yùn)行初始窗體Form1不可見(jiàn) Form2.W