第2章 VB簡單程序設(shè)計

1、第第2 2章章 VBVB簡單程序簡單程序設(shè)計設(shè)計2.1 2.1 面向?qū)ο蟪绦蛟O(shè)計的基本概念面向?qū)ο蟪绦蛟O(shè)計的基本概念一、對象與類是系統(tǒng)中的基本運(yùn)行實體,是代碼和數(shù)據(jù)的集合.對象：類：類是同種對象的集合與抽象。 一個對象就是類的一個實例二、屬性描述對象特征的數(shù)據(jù)稱為屬性。對象常見的屬性：標(biāo)題(Caption)名稱(Name)顏色(Color)字體(Font)是否可見(Visible)通過修改對象的屬性，可以改變對象的外觀與功能。 在屬性窗口上設(shè)置 在程序代碼中用賦值語句設(shè)置屬性設(shè)置格式：.=例如:給一個對象名為“Command1”的命令按鈕的 “Caption”屬性賦值為“確定”，在程序代碼中實

2、現(xiàn)的語 句是：Command1. Caption=“確定” 三、事件與事件過程事件：是指對象上發(fā)生的事情。是指對象上發(fā)生的事情。 在VB中，系統(tǒng)為每一對象預(yù)先定義好一系列的事件，如： 單擊(Click) 雙擊(DblClick) 裝入事件(Load) 改變事件(Change) 鼠標(biāo)移動事件(MouseMove) 失去焦點(diǎn)事件(LosttFocus)事件過程的一般格式:Private Sub _() （事件過程代碼）End Sub例:命令按鈕Command1的單擊Click事件，將窗體Form1的背景色設(shè)置為藍(lán)色的事件過程為： Private Sub Command1_Click() Form1

3、.BackColor = vbBlueEnd Sub四、方法是指對象要執(zhí)行的動作。是指對象要執(zhí)行的動作。 例:窗體Form1上的文本框Text1獲得焦點(diǎn)： Text1.SetFocus方法調(diào)用格式: . 2.2 2.2 窗體窗體一、窗體創(chuàng)建“工程”菜單中選擇“添加窗體” 用鼠標(biāo)指向工程資源管理器中的工程，單擊右鍵，從彈出的快捷菜單中選擇“添加”菜單中的“添加窗體” 用鼠標(biāo)單擊常用工具欄中“添加窗體”按鈕。窗體(Form)就是窗口,是VB中最常見的對象,也是可視化程序設(shè)計的基礎(chǔ)各種控件對象必須建立在窗體上.一個窗體對應(yīng)一個窗體模塊窗體結(jié)構(gòu)邊框關(guān)閉最大化/還原最小化標(biāo)題欄控制菜單 具有控制菜單、標(biāo)

4、題欄、最大化/還原按鈕、最小化按鈕、關(guān)閉按鈕及邊框。 運(yùn)行時通過移動窗體、改變窗體大小。二、窗體的屬性屬性決定窗體的外觀和操作。屬性決定窗體的外觀和操作。常用的窗體屬性有：常用的窗體屬性有：Name(名稱名稱): 窗體名稱窗體名稱,文件名擴(kuò)展名為文件名擴(kuò)展名為. frmBackColor 窗體的背景顏色窗體的背景顏色: BorderStyle 窗體邊框樣式窗體邊框樣式Caption 標(biāo)題欄顯示的內(nèi)容標(biāo)題欄顯示的內(nèi)容ControlBox 決定窗體是否具有控制菜單決定窗體是否具有控制菜單Font 輸出字符的字體、大小、顏色等輸出字符的字體、大小、顏色等Icon 決定窗體運(yùn)行時處于最小化時所顯示的圖

5、決定窗體運(yùn)行時處于最小化時所顯示的圖標(biāo)標(biāo)MaxButton 決定窗體標(biāo)題欄中是否具有最大化按鈕決定窗體標(biāo)題欄中是否具有最大化按鈕Moveable 決定窗體是否能移動決定窗體是否能移動Picture 設(shè)置在窗體上顯示的圖片設(shè)置在窗體上顯示的圖片Height 窗體高度 包括邊框與標(biāo)題 單位為TwipWidth 窗體的寬度 包括邊框與標(biāo)題 單位為TwipLeft 窗體的最左端與包含它的容器的最左端之間的距離Top 窗體的最上端與包含它的容器的最上端之間的距離ScaleHeight 窗體數(shù)據(jù)區(qū)的高度，不包括邊框、標(biāo)題、菜單欄等ScaleWidth 窗體數(shù)據(jù)區(qū)的寬度，不包括邊框、標(biāo)題、菜單欄等Start

6、UpPosition 窗體首次出現(xiàn)在窗體上的位置Visible 窗體是否可見在程序中設(shè)計顏色的三種方法：1.直接使用顏色值或VB顏色常量: vbRed &HBBGGRR:&H0000FF2.RGB函數(shù) 格式：RGB(red,green,blue) 02553.QBColor函數(shù)格式：QBColor(colorvalue) 015顏色顏色數(shù)值數(shù)值顏色顏色數(shù)值數(shù)值黑色黑色0灰色灰色8藍(lán)色藍(lán)色1淡藍(lán)色淡藍(lán)色9綠色綠色2淡綠色淡綠色10青色青色3淡青色淡青色11紅色紅色4淡紅色淡紅色12紫色紫色5淡紫紅淡紫紅13黃色黃色6淡黃色淡黃色14白色白色7亮白色亮白色15事件常用事件有： Cl

7、ick(單擊)事件 單擊窗體的空白區(qū),響應(yīng)該事件 DblClick(雙擊)事件 雙擊窗體的空白區(qū),響應(yīng)該事件 Load(裝入)事件 當(dāng)窗體被裝入工作區(qū)時，響應(yīng)該事件 Activate(活動)事件 當(dāng)窗體變?yōu)榛顒哟翱跁r，響應(yīng)該事件Unload(卸載）事件 當(dāng)從內(nèi)存中卸載窗體時，響應(yīng)該事件QueryUnload 事件 當(dāng)從內(nèi)存中卸載窗體之前時，響應(yīng)該事件Resize事件 當(dāng)窗體首次顯示在屏幕上或窗體大小改變KeyPress KeyDown KeyUp三、 事件和方法四、方法Load 裝載窗體到內(nèi)存，會引發(fā)窗體的Load事件，但不顯示窗體 語法格式為： 窗體名.LoadShow 顯示窗體 語法格式為

8、： 窗體名.Show Style,ownerformHide 隱藏窗體 語法格式為： 窗體名.HidePrintCls 清除窗體上用Print方法顯示的信息和用繪圖方法生成的圖形 語法格式為： 窗體名.Cls例：設(shè)計一窗體，窗體圖標(biāo)為face.ico，標(biāo)題為“窗體實驗”，并在窗體中裝入圖形。當(dāng)用戶單擊窗體的關(guān)閉按鈕時，彈出詢問對話框，詢問用戶是否要退出，若用戶回答“是”，則退出系統(tǒng)，否則不退出，運(yùn)行界面如圖所示。 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要退出嗎？, v

9、bYesNo + vbQuestion, 確認(rèn)) = vbYes Then Unload Me Else Cancel = True End IfEnd Sub2.3 2.3 最基本控件最基本控件一、命令按鈕（CommandButton） VB中最常用的控件之一. 常用來接受用戶的操作信息, 激發(fā)相應(yīng)的事件過程, 是用戶與程序交互的最簡便的方法命令按鈕主要屬性NameCaptionFontCancel和和DefaultEnabledStylePictureDownPicture和和DisabledPictureValue Command1.Value=True 自動觸發(fā)按鈕的自動觸發(fā)按鈕的Cl

10、ick事件事件VisibleEnabled=falseStyle屬性為0Style屬性為1 事件命令按鈕可以接受許多事件, 如： 鼠標(biāo)單擊(Click) 鼠標(biāo)按下(MouseDown) 鼠標(biāo)抬起(MouseUp) 鍵盤按下或松開事件(KeyPress、KeyUp)其中鼠標(biāo)單擊事件最常用.方法可以用SetFocus方法將焦點(diǎn)定位在指定的命令按鈕上.如 Command1.SetFocus表示將焦點(diǎn)定位在名稱為Command1的命令按鈕上.二、標(biāo)簽（Label） VB提供的標(biāo)簽控件只能顯示文本，而不能對文本進(jìn)行編輯。標(biāo)簽通常用于標(biāo)注本身具有Caption屬性的控件。例如，可以使用標(biāo)簽為文本框附加描述

11、信息。標(biāo)簽也常用于輸出。1屬性 Caption屬性：字符型。標(biāo)簽的標(biāo)題。 Alignment屬性：數(shù)值型。確定標(biāo)簽中標(biāo)題的對齊方式，有以下設(shè)置值： 0-LeftJustify 缺省值，標(biāo)題從標(biāo)簽的左邊開始顯示。 1-RightJustif 標(biāo)題靠右顯示。 2-Center 標(biāo)題居中顯示。 AutoSize屬性：布爾型。設(shè)置為True時，可根據(jù)標(biāo)題自動調(diào)整標(biāo)簽的大??；設(shè)置為False(缺省值)時，標(biāo)簽保持設(shè)計時定義的大小，太長的標(biāo)題內(nèi)容將不能顯示出來。 BackStyle屬性：數(shù)值型。缺省值為1，標(biāo)簽不透明；設(shè)置為0時，標(biāo)簽透明。標(biāo)簽控件可以支持Click、DblClick等事件。例:設(shè)窗體上有

12、一個標(biāo)簽控件Labell，其AutoSize屬性值為True，雙擊該標(biāo)簽控件，則標(biāo)簽的標(biāo)題字體增加10磅，可以通過如下代碼實現(xiàn)：2事件Private Sub Label1_DblClick( ) LabellFontSize = LabellFontSize + 10 End Sub標(biāo)簽控件支持Move方法，用于實現(xiàn)控件的移動。Move方法的格式： Move ，： 指示對象左邊的水平坐標(biāo)(x-軸)。： 指示對象頂邊的垂直坐標(biāo)(y-軸)。： 指示對象新的寬度。 、：指示對象新的高度。例如，設(shè)窗體上有一個標(biāo)簽控件Labell，單擊該標(biāo)簽控件，使該標(biāo)簽控件向右移動50緹，可以通過如下代碼實現(xiàn)：3方法

13、Private Sub Label1_C1ick() LabellMove LabellLeft + 50End Sub1) Text屬性： 字符串類型。返回或設(shè)置文本框中顯示的內(nèi)容。 例如：Text1.Text = “歡迎使用 Visual Basic”2) MultiLine屬性： 布爾型。當(dāng)MultiLine屬性為True時，文本框可以輸入或顯示多行文本，且會在輸入的內(nèi)容超出文本框時自動換行。默認(rèn)值為False。 在設(shè)計階段，在屬性窗口設(shè)置Text屬性值時，通過按下Ctrl+Enter組合鍵實現(xiàn)文本的換行。 在運(yùn)行階段，如果窗體上沒有缺省按鈕，則在多行文本框(TextBox)控件中按下回

14、車鍵可以把光標(biāo)移動到下一行；如果有缺省按鈕存在，則必須按下Ctrl+Enter組合鍵才能移動到下一行。 三、文本框(TextBox) 文本框控件在工具箱中的名稱為TextBox，在VB中，可以使用文本框控件作為輸入控件，在運(yùn)行時接收用戶輸入的數(shù)據(jù)。1屬性3) PasswordChar屬性： 字符串類型。當(dāng)MuitiLine屬性值為False時，該屬性可以用于口令輸入。在缺省狀態(tài)下，該屬性被設(shè)置為空串，用戶從鍵盤輸入時，每個字符都可以在文本框中顯示出來。如果把PasswordChar屬性設(shè)置為一個字符，如星號(*)，則在文本框中鍵人字符時，只顯示星號，不顯示鍵人的字符。Text屬性接收的仍是用戶

15、輸入的文本。4) ScrollBars屬性： 數(shù)值型。該屬性用于確定文本框是否帶滾動條。有以下4種選擇： 0-None 沒有滾動條 1-Horizontal 只有水平滾動條 2-Vertical 只有垂直滾動條 3Both 同時具有水平和垂直滾動條 只有當(dāng)MultiLine屬性值為True時，文本框才顯示滾動條。5) SelLength屬性： 數(shù)值型。在程序運(yùn)行期間返回或設(shè)置選擇的字符數(shù)。 例如： Text1.Sellength = Len(Text1.Text) 表示選中文本框Text1中所有字符。 6) SelStart屬性： 數(shù)值型。在程序運(yùn)行期間返回或設(shè)置當(dāng)前選擇文本的起始位置。 例如

16、：Textl.SelStart = 0 表示選擇文本的起始位置從第一個字符開始。 7) Locked屬性： 布爾型。指定運(yùn)行時文本框內(nèi)容是否可以編輯。默認(rèn)值為False，表示可以編輯。 1)Change事件： 當(dāng)用戶向文本框輸人新的內(nèi)容，或在程序代碼中對文本框的Text屬性進(jìn)行賦值從而改變了文本框的Text屬性時，將觸發(fā)Change事件。 2事件和方法 文本框除了支持鼠標(biāo)的Click、DblClick事件外，還支持Change、GotFocus、LostFocus、KeyPress等事件和SetFocus方法。例：建立三個文本框和兩個命令按鈕。運(yùn)行時，用戶在文本框Text1中輸入內(nèi)容的同時，文

17、本框Text2和Text3顯示相同的內(nèi)容，但顯示的字體不同。單擊“清除”，按鈕清空三個文本框中的內(nèi)容，單擊“退出”按鈕結(jié)束程序的運(yùn)行設(shè)計界面運(yùn)行界面程序代碼2) GotFOCUS事件： 當(dāng)運(yùn)行時用Tab鍵或用鼠標(biāo)選擇對象，或用SetFOCUS方法使光標(biāo)落在對象上時，觸發(fā)該事件，稱之為“獲得焦點(diǎn)”。該事件適用于窗體和大部分可接受鍵盤輸入的控件。Text1獲得焦點(diǎn)Text2獲得焦點(diǎn)3) LostFOCUS事件： 當(dāng)按下Tab鍵使光標(biāo)離開當(dāng)前文本框，或者用鼠標(biāo)選擇窗體的其他對象時觸發(fā)該事件，稱之為“失去焦點(diǎn)”。4) KeyPress事件： 當(dāng)在鍵盤上按下某個鍵時觸發(fā)該事件。KeyPress事件返回一

18、個參數(shù)KeyAscii，該參數(shù)值為整數(shù)，表示所按下鍵的ASC碼。 5) SetFocus方法： SetFocus方法是文本框常用的方法，該方法是把光標(biāo)移到指定的文本框中，使該文本框獲得焦點(diǎn)。 當(dāng)在窗體上建立了多個文本框后，可以使用該方法把光標(biāo)置于所需要的文本框上。使用格式如下： .SetFocus 例如，將焦點(diǎn)定位在文本框Textl中，使用語句：Textl.SetFocus2.4 2.4 應(yīng)用程序設(shè)計過程實例應(yīng)用程序設(shè)計過程實例 本節(jié)以一具體實例說明創(chuàng)建Visual Basic應(yīng)用程序過程。例：求兩個數(shù)的和，運(yùn)行界面如圖所示。第一步 創(chuàng)建工程 途徑有兩種： 啟動VB后，在系統(tǒng)顯示的“新建工程”對話框的“新建”選項卡中選擇“標(biāo)準(zhǔn)EXE”，然后單擊“打開”按鈕。 在“文件”菜單中選擇“新建工程”命令，然后在“新建工程”對話框中選擇“標(biāo)準(zhǔn)EXE”，然后單擊“打開”按鈕。第二步 設(shè)計應(yīng)用程序界面 在窗體上放三個標(biāo)簽、三個文本框和一個命令按鈕窗體標(biāo)簽命令按鈕文本框第三步 設(shè)置對象屬性 彈出如右側(cè)圖所示的屬性窗口，設(shè)置對象屬性第四步 編寫代碼 三種方式：在窗體上雙擊命令按鈕在工程管理器窗口單擊“查看代碼”按鈕在視圖菜單中選擇“代碼窗口”命令，或單擊“工具欄”上的“代碼窗口”按鈕第五步 保存、調(diào)試與運(yùn)行