1、第二章 VB基本控件及簡單程序設(shè)計,1.了解程序設(shè)計方法的發(fā)展； 2.理解面向?qū)ο蟪绦蛟O(shè)計概念； 3.理解對象、屬性、事件、和方法等基本概念； 4.掌握建立簡單的應(yīng)用程序的方法和步驟； 5.熟悉一些基本控件和屬性的設(shè)置； 6. 掌握工程的管理及環(huán)境的設(shè)置；,本章要求：,2.1 程序設(shè)計方法概述,1.初期的程序設(shè)計（五十年代） 高運行效率、少占用內(nèi)存為目標(biāo) 2.結(jié)構(gòu)化程序設(shè)計（七十年代） 程序的可讀性、可維護(hù)性為目標(biāo) 程序=算法+數(shù)據(jù)結(jié)構(gòu)+編程語言+面向過程的程序設(shè)計方法 程序的結(jié)構(gòu)規(guī)定為順序、選擇和循環(huán)三種基本結(jié)構(gòu)，采取自頂向下、逐步求精的分析和設(shè)計方法，即功能分析方法。 3.面向?qū)ο蟮某绦蛟O(shè)

2、計（八十年代開始） 降低程序的復(fù)雜性、提高軟件的開法效率和改善工作界面為目標(biāo) 程序=對象+消息+面向?qū)ο蟮某绦蛟O(shè)計,面向?qū)ο蟮某绦蛟O(shè)計的優(yōu)點： 1符合人們習(xí)慣的思維方法，便于分解大型的復(fù)雜多變的問題。由于對象對應(yīng)于現(xiàn)實世界中的實體，因而可以很自然地按照現(xiàn)實世界中處理實體的方法來處理對象，軟件開發(fā)者可以很方便地與問題提出者進(jìn)行溝通和交流。 2易于軟件的維護(hù)和功能的增減。對象的封裝性及對象之間的松散組合，都給軟件的修改和維護(hù)帶來了方便。 3可重用性好。重復(fù)使用一個類（類是對象的定義，對象是類的實例化），可以比較方便地構(gòu)造出軟件系統(tǒng)，加上繼承的方式，極大地提高了軟件開發(fā)的效率。 4與可視化技術(shù)相結(jié)合

3、，改善了工作界面。隨著基于圖形界面操作系統(tǒng)的流行，面向?qū)ο蟮某绦蛟O(shè)計方法也將深入人心。它與可視化技術(shù)相結(jié)合，使人機界面進(jìn)入GUI時代。,2.2 VB中的基本概念,一、對象與類 1. 對象 對象是基本的運行時的實體，如窗體、各種控件等，它既包括作用于對象的操作（方法）和對象的響應(yīng)（事件）。 將數(shù)據(jù)和處理這些數(shù)據(jù)的過程封裝在一起。 2. 類 類是一個抽象的整體概念 ，對象是類的實例化。 類與對象是面向?qū)ο蟪绦蛟O(shè)計語言的基礎(chǔ)。 以“學(xué)生”為例，說明類與對象的關(guān)系。 學(xué)生是一個籠統(tǒng)的名稱，是整體概念，我們把學(xué)生看成 一個“類”，一個個具體的學(xué)生（比如你自己）就是這個類的實例，也就是這個類的一個個對象。

4、,工具箱的各種控件并不是對象，而是代表了各個不同的類。通過類的實例化，可以得到真正的對象。當(dāng)在窗體上畫一個控件時，就將類轉(zhuǎn)換為對象，即創(chuàng)建了一個控件對象，也簡稱為控件。,（3）對象的命名 每一個對象都有有自己的名字。每個窗體、控件對象在建立時VB系統(tǒng)給出了一個默認(rèn)名。 用戶可通過屬性窗口設(shè)置（名稱）來給對象命名。 命名的原則： 1）必須由字母或漢字開頭、隨后可以是字母、漢字、 數(shù)字、下劃線（最好不用）串組成。 2）長度=255個字符。,二、屬 性（Property） 對象中的數(shù)據(jù)，所有對象都有自的屬性。它們是用來描述和反映對象特征的參數(shù)。例如：控件名稱（Name)、標(biāo)題（Caption)、顏色

5、（Color)、字體（FontName)等屬性決定了對象展現(xiàn)給用戶的界面具有什么樣的外觀及功能。 對象屬性設(shè)置的方法： 方法一： 在設(shè)計模式下，通過屬性窗口直接設(shè)置對象的屬性。 方法二： 在程序的代碼中通過賦值實現(xiàn)，其格式為： 對象.屬性=屬性值 例如：cmdDisp.Caption=“顯示”,三、事件（Event）及事件過程（Event Procedure） 事件: 可被對象識別的動作。 事件過程: 是指附在該 對象上的程序代碼，是事件觸發(fā)后處理的程序。事件過程的形式如下： Sub 對象名_事件過程名（參數(shù)列表） . (事件過程代碼） End Sub 例如： Sub cmdOk_Click(

6、) cmdOk.FontSize=20 設(shè)置命令按鈕的字體大小為20 End Sub,四、方 法（Method） 在對象上可操作的過程，是VB系統(tǒng)提供的一種特殊的過程和函數(shù)方法。 方法是面向?qū)ο蟮模詫ο蟮姆椒ㄕ{(diào)用一般要指明對象。 對象方法 調(diào)用形式： 對象.方法 參數(shù)列表 如省略對象，表示在當(dāng)對象，一般指窗體。 例如： Form1.print 歡迎您使用Visual Basic 6.0 ,五、VB應(yīng)用程序的工作方式,VB應(yīng)用程序采用的是以事件驅(qū)動應(yīng)用程序的工作方式。,下面是事件驅(qū)動應(yīng)用程序中的典型工作方式： 1、啟動應(yīng)用程序，裝載和顯示窗體。 2、窗體（或窗體上的控件）接收事件。事件可由用

7、戶引發(fā)（例如通過鍵盤或鼠標(biāo)操作），可由系統(tǒng)引發(fā)（例如定時器事件），也可由代碼間接引發(fā)（例如當(dāng)代碼裝載窗體時的Load事件）。 3、如果在相應(yīng)的事件過程中已編寫了相應(yīng)的程序代碼，就執(zhí)行該代碼。 4、應(yīng)用程序等待下一次事件。,2.3 窗體的常用屬性、方法和事件,窗體屬性決定了窗體的外觀與操作。 窗體外觀 如下圖,一. 屬性 （一）基本屬性 1. Name名稱屬性（任何對象都具有的） 創(chuàng)建的對象名稱,有默認(rèn)的名。在程序中，控件名是作為對象的標(biāo)識而引用，不會顯示在窗體上。 2. Height、width、top和left屬性 單位為twip：1 twip=1/20點=1/1440英寸=1/567cm,

8、注意：這四個屬性決定窗體（或控件）的大小，在容器中的位置。如右圖。,3Caption 標(biāo)題屬性： 決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容，也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本。,4 字體Font屬性組,FontName屬性是字符型，決定對象上正文的字體（缺省為宋體）。 FontSize屬性是整型，決定對象上正文的字體大小。 FontBold屬性是邏輯型，決定對象上正文是否是粗體。 FontItalic屬性是邏輯型，決定對象上正文是否是斜體。 FontStrikeThru屬性是邏輯型，決定對象上正文是否加一刪除線。 FontUnderLine屬性是邏輯型，決定對象上正文是否帶下劃線。,5. E

9、nabled屬性（邏輯值） 決定控件是否可操作。 True ：允許用戶進(jìn)行操作，并對操作出響應(yīng)（缺省值） 。 False：呈暗淡色，禁止用戶進(jìn)行操作。 6. Visible屬性（邏輯值） 決定控件是否可見 True ：運行時控件可見（缺省值） 。 False：運行時控件隱藏，用戶看不到，但控件本身是存在的。,7BackColor屬性和ForeColor屬性 BackColor屬性用于返回或設(shè)置對象的背景顏色， ForeColor屬性用于返回或設(shè)置在對象里顯示圖片和文本的前景顏色。它們是十六進(jìn)制長整型數(shù)據(jù) 在程序代碼中可用Windows 運行環(huán)境的紅-綠-藍(lán) (RGB) 顏色方案，使用調(diào)色板或在

10、代碼中使用 RGB 或 QBColor 函數(shù)指定標(biāo)準(zhǔn)RGB顏色。,例如，將窗體Form1的背景色設(shè)置為紅色，則可使用下面三種情況： Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = a, b=; b Print a=; a, b=; b Print a=; a, b=; b Print 空一行 Print ; a=; a, b=; b Print a=; a, Tab(18); b=; b Print a=; a, Spc(18); b=; b Print Print a=; a, b=; b Print Tab(18); a=; a, b=

11、; b 從第18列開始打印輸出 Print Spc(18); a=; a, b=; b End Sub,2. Cls方法 形式 : 對象.Cls 作用 : 清除運行時在窗體或圖形框中顯示的文本或圖形。 注意 : 不清除在設(shè)計時的文本和圖形。 清屏后坐標(biāo)當(dāng)前回到原點-對象的左上角0，0 。 3. Move方法 形式 : 對象.Move 左邊距離，上邊距離，寬度，高度 作用 : 移動窗體或控件，并可改變其大小。 對象：可以是窗體及除時鐘、菜單外的所有控件，省略代表窗體。 左邊距離，上邊距離，寬度，高度：數(shù)值表達(dá)式，單位twip。 如果是窗體對象，則“左邊距”和“上邊距”是以屏幕左邊界和上邊界為準(zhǔn)。

12、其它則是以窗體的左邊和上邊界為準(zhǔn)。,例使用Move方法移動一個窗體。雙擊窗體，窗體移動并定位在屏幕的左上角，同時窗體的長寬也縮小一倍。 為了實現(xiàn)這一功能，可以在窗體Forml的“代碼”窗口中輸入下列代碼： Private Sub Form_DblClick() Form1.Move 0,0,Form1.Width/2,Form1.Height/2 End Sub,4Show(顯示)方法 Show方法用于在屏幕上顯示一個窗體，調(diào)用 Show 方法與設(shè)置窗體 Visible 屬性為 True 具有相同的效果。 其調(diào)用格式如下： 窗體名.Show vbModal | vbModeless,說明 （1

13、）它有兩種可能值：vbModal（缺?。┗騰bModeless，參數(shù)表示從當(dāng)前窗口或?qū)υ捒蚯袚Q到其他窗口或?qū)υ捒蛑坝脩舯仨毑扇〉膭幼?。?dāng)參數(shù)為vbModal時，要求用戶必須對當(dāng)前的窗口或?qū)υ捒蜃龀鲰憫?yīng)，才能切換到其他窗口。 （2）如果要顯示的窗體事先未裝入，該方法會自動裝入該窗體再顯示。 試比較下面兩個程序的結(jié)果。 Form2顯示出來；在其關(guān)閉之前，后面的提示信息不會顯示出來。只有關(guān)閉了form2時才會現(xiàn)實提示信息。 Private Sub Form_DblClick() Form2.Show vbModal MsgBox Test End Sub,5Hide(隱藏)方法 Hide方法用于使

14、指定的窗體不顯示，但不從內(nèi)存中刪除窗體。其調(diào)用格式為： 窗體名.Hide,Form2顯示出來后，后面的提示信息馬上就顯示出來了。 Private Sub Form_DblClick() Form2.Show vbModeless MsgBox Test End Sub,例 實現(xiàn)將指定的窗體在屏幕上進(jìn)行顯示或隱藏的切換。 為了實現(xiàn)這一功能，可以在窗體Forml的“代碼”窗口中輸入下列代碼： Private Sub Form_Click() Form1.Hide 隱藏窗體 MsgBox 單擊按鈕，使窗體重現(xiàn)屏幕 顯示信息 Forml.Show 重現(xiàn)窗體 End Sub,說明： 當(dāng)一個窗體從屏幕上隱

15、去時，其Visible屬性被設(shè)置成False，并且該窗體上的控件也變得不可訪問，但對運行程序間的數(shù)據(jù)引用無影響。若要隱去的窗體沒有裝入，則Hide方法會裝入該窗體但不顯示。,一.命令按鈕CommandButton 接受用戶輸入的命令.輸入命令可以有三種方式: （1）鼠標(biāo)單擊； （2）按Tab鍵焦點跳轉(zhuǎn)到該按鈕, 再按回車鍵； （3） 快捷鍵（Alt+有下劃線的字母） （一）屬性 1基本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font等與窗體的使用相同。 2常用屬性 （1）Caption: 標(biāo)題屬性命令按鈕顯示的內(nèi)容，可在某字母前加 “&“設(shè)置

16、快捷鍵。例如： &Ok ,顯示 Ok,2.4 命令按鈕、標(biāo)簽、文本框,（2） Default：確認(rèn)屬性（邏輯值），設(shè)置為True時，按Enter鍵相當(dāng)于用鼠標(biāo)器單擊了該按鈕。 注意：在一個窗體只能的一個按鈕的Default設(shè)置為Ture （3）Cancel:取消功能屬性（邏輯值），當(dāng)設(shè)置為Ture時，程序運行時按Esc鍵與單擊此命令按鈕的效果相同。 注意：在一個窗體只能的一個按鈕的Cancel設(shè)置為Ture （4）Value: 檢查該按鈕是否按下. 該屬性在設(shè)計時無效. （5）Style : 確定顯示的形式. 0 只能顯示文字, 1 文字、圖形均可 。 （6）Picture : 按鈕可顯示圖片

17、文件(.bmp和.Ico)，只有當(dāng)Style屬性值為1時有效 （7）ToolTipText ：設(shè)置工具提示，和Picture結(jié)合使用。 （二）方法、事件 Move、Setfocus方法； 單擊事件Click,二. 標(biāo)簽 Label 用于顯示文本(輸出)信息，不能作為輸入信息的界面。 1基本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等與窗體的使用相同。 2常用屬性 （1）Caption屬性 Caption屬性用來改變Label控件中顯示的文本。Caption屬性允許文本的長度最多為1024字節(jié)。缺省

18、情況下，當(dāng)文本超過控件寬度時，文本會自動換行，而當(dāng)文本超過控件高度時，超出部分將被裁剪掉。,（2） Alignment屬性 設(shè)置Caption屬性中文本的對齊方式，共有三種可選值： 0 左對齊(Left Justify)； 1 右對齊(Right Justify)； 2 居中對齊(Center Justify)。 （3）BackStyle屬性 該屬性用于確定標(biāo)簽的背景是否透明。有兩種情況可選：值為0時，表示背景透明，標(biāo)簽后的背景和圖形可見；值為1時，表示不透明，標(biāo)簽后的背景和圖形不可見。,（5）WordWrap屬性 True: 文本卷繞；Label 控件垂直展開或縮短，以使其與文本和字體大小相

19、適。水平大小不變。 False:（缺省值）文本不卷繞；Label 水平地展開或縮短以使其與文本的長度相適，并且垂直地展開或縮短以使其與字體的大小和文本的行數(shù)相適應(yīng)。,（4）AutoSize屬性 AutoSize屬性確定標(biāo)簽是否會隨標(biāo)題內(nèi)容的多少自動變化。如果值為True，則隨Caption內(nèi)容的大小自動調(diào)整控件本身的大小，且不換行；如果值為False，表示標(biāo)簽的尺寸不能自動調(diào)整，超出尺寸范圍的內(nèi)容不予顯示。,例 在窗體上，放置5個標(biāo)簽，其名稱使用默認(rèn)值Label1Label5，在屬性窗口，按下表設(shè)置它們的屬性,為了使 Label 保持水平方向尺寸不變并允許增加或減少文本，則應(yīng)將 WordWra

20、p 和 AutoSize 屬性設(shè)置為 True。 如果希望 Label 控件只水平展開，則應(yīng)將 WordWrap 設(shè)置為 False。如果不希望 Label 改變大小，應(yīng)將 AutoSize 設(shè)置為 False。 注意 如果 AutoSize 被設(shè)置為 False，那么文本總是要卷繞，而不管 Label 控件的大小或 WordWrap 屬性的設(shè)置如何。這可能使某些文本被隱藏，因為 Label 在任何方向上都不能展開。 如果 AutoSize 和 WordWrap 都設(shè)置為 True，文本將會自動換行，而不會增加 Label 控件的大小，但有一種情況例外，那就是所輸入的一個單詞的長度要大于 La

21、bel 寬度。此時，AutoSize 屬性有更高的優(yōu)先級，并且 Label 的寬度將增加到適應(yīng)這個長的單字。,設(shè)置后各標(biāo)簽的顯示如圖,3、事件,標(biāo)簽可響應(yīng)單擊（Click)和雙擊（ DblClick）事件，但一般情況不對它進(jìn)行編程,三、 文本框 TextBox 文本框是一個文本編輯區(qū)域，可在該區(qū)域輸入，編輯和顯示正文內(nèi)容。 （一） 屬性 1基本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font，F(xiàn)oreColor、BackColor等與標(biāo)簽控件相同。 2常用屬性 （1）Text文本屬性 在文本框中顯示的正文內(nèi)容存放在Text屬性中。當(dāng)程序運行時

22、，用戶通過鍵盤輸入正文內(nèi)容，保存在Text屬性中。 文本框沒有Caption屬性,（2）Maxlength： 設(shè)置正文的最多字符個數(shù), 0任意長度值。 （3） MultiLine： 是否為多行,默認(rèn)一行. False （4）ScrollBars： 當(dāng)MultiLine為True時,該屬性才有效,滾動條的形式。 0-None：無滾動條 1-Horizontal：水平滾動條 2-Vertical垂直滾動條 3-Both水平和垂直滾動條。 一旦設(shè)置了ScrollBars為非0 ,自動換行就失效 （5）Locked： 是否可被編輯屬性，F(xiàn)alse，表示為可編輯。 （6）PassWordChar屬性 設(shè)置PasswordChar屬性為了掩蓋文本框中輸入的字符。 該屬性的設(shè)置只有在MultiLine設(shè)為 False才有效,（7）SelStart、SelLength和SelText屬性 這三個屬性是文本框中對文本的編輯屬性。 SelStart：確定在文本框選中文本的起始位置。第一字符的位置為0。若沒有選擇文本，則用于返回或設(shè)置文本的插入點位置，如果SelStart的值大于文本的長度，則SelStart取當(dāng)前文本的長度： SelLength：設(shè)置或返回文本框中選定的文本字符串長度（字符個數(shù)）。 S