第2章簡單的VisualBasic程序設(shè)計2.1程序設(shè)計的概念機器語言(MachineLanguages)由0/1組成的機器指令的集合，它可以被直接接收執(zhí)行。匯編語言(AssemblyLanguages)用助記符、符號地址、標(biāo)號等符號編寫的程序。高級語言(High-levelProceduralLanguages)編譯：

將高級語言源程序翻譯成目標(biāo)程序的過程。(Compiler)高級語言源程序機器語言目標(biāo)程序可執(zhí)行程序編譯程序連接程序編譯連接語言處理程序匯編：

將匯編語言源程序翻譯成目標(biāo)程序的過程。解釋：將高級語言源程序翻譯和執(zhí)行的過程。

(Interpreter)高級語言源程序結(jié)果解釋程序解釋并執(zhí)行語言處理程序2.2VB中的對象對象：具有特殊屬性(數(shù)據(jù))和行為方式(方法)的實體，它由屬性、事件和方法構(gòu)成。對象的分類：預(yù)定義對象/自定義對象常用的預(yù)定義對象：窗體、控件（工具箱窗口中）自定義對象：VB高級應(yīng)用對象的三要素屬性(property)對象的性質(zhì)，即用來描述和反映對象特征的參數(shù)。方法(method)對象的行為，用來描述對象的動作的術(shù)語，實質(zhì)上是VB提供的完成一定操作或功能的子程序或函數(shù)。事件(event)系統(tǒng)事先設(shè)定的能被對象識別和響應(yīng)的動作。鼠標(biāo)事件：單擊控件（Click）鼠標(biāo)移動等鍵盤事件：鍵盤按下（Keypress）等VB編程要點（學(xué)習(xí)的重點）：對象屬性、事件、方法的設(shè)置及其使用2.2.2對象的名稱每一個對象都有自己的名字。每個窗體、控件對象在建立時VB系統(tǒng)給出了一個默認(rèn)名。用戶可通過屬性窗口設(shè)置（name）來給對象命名。使用對象名稱的方式是：

對象名2.2.3對象的屬性對象屬性設(shè)置的方法：方法一：

在設(shè)計模式下，通過屬性窗口直接設(shè)置對象的屬性。方法二：在程序的代碼中通過賦值實現(xiàn)，其格式為：對象名.屬性名稱=新設(shè)置屬性值例如：Weltxt.Text=“Hello,歡迎進入VisualBasic世界！”2.2.4對象的事件事件：是由VisualBasic預(yù)先設(shè)置好的、能夠被對象識別的動作。事件過程：是指附在該對象上的程序代碼，是事件觸發(fā)后處理的程序。事件過程的形式如下：PrivateSub對象名稱_事件名稱（）…..事件響應(yīng)程序代碼EndSub補充：常用事件Click（單擊）事件：單擊鼠標(biāo)左鍵時觸發(fā)DbClick（雙擊）事件：雙擊鼠標(biāo)時觸發(fā)Load（裝入）事件：窗體被裝入工作區(qū)時觸發(fā)設(shè)置事件及事件過程的方法在代碼窗口選中對象后，選中相應(yīng)事件，再編寫事件響應(yīng)程序代碼直接雙擊對象后，編寫事件響應(yīng)程序代碼添加事件關(guān)鍵：選對“事件對象”和“事件類型”2.2.4對象的方法方法是對象能執(zhí)行的動作或功能，如移動、繪圖、打開等。使用對象的方法的格式如下：對象名.方法名[參數(shù)列表]例如：Command1.Move200,300補充：常用方法Print方法(適用于窗體及圖片框)（見教材P72頁）Show/Hide(適用于窗體)（見教材P204頁）Cls方法(適用于窗體)（見教材P75頁）Move方法(適用于各種控件)2.3.1VB應(yīng)用程序的組成窗體模塊(*.frm) 窗體文件中含有兩方面的信息：一是窗體及控件的屬性；二是窗體中編寫的代碼。標(biāo)準(zhǔn)模塊(*.bas)類模塊(*.cls)簡單程序只有窗體模塊2.3.2VB應(yīng)用程序的工作方式VB應(yīng)用程序采用的是以事件驅(qū)動應(yīng)用程序的工作方式。典型的VB應(yīng)用程序的執(zhí)行步驟：1.啟動應(yīng)用程序，加載和顯示窗體；2.窗體或窗體上的控件等待接收事件；3.如果相應(yīng)的事件過程中存在代碼，則執(zhí)行該代碼；4.等待下次事件。2.4VB開發(fā)應(yīng)用程序一般步驟1.繪制界面插入對象，在窗體設(shè)計窗口利用工具箱窗口完成2.設(shè)置屬性設(shè)置對象屬性，在屬性窗口完成3.編寫代碼填寫代碼，在代碼窗口完成知識點一：控件的使用教材P31頁

控件的繪制：方法一：單擊工具箱控件對象 在窗體上按住左鍵拖曳到所需要的大小后釋放。方法二：雙擊工具箱控件對象 則立即在窗體出一個默認(rèn)大小的對象框。知識點一：關(guān)于控件教材P31頁控件的選擇：

單個對象：單擊鼠標(biāo)左鍵

多個對象：Shift或者鼠標(biāo)選擇復(fù)制:Ctrl+C,Ctrl+V注意：一般不要生成屬性組。刪除:Del

知識點一：關(guān)于控件教材P31頁縮放和移動

鼠標(biāo)拖曳修改屬性值（Width，Height，Top，Left）對齊與調(diào)整

“格式”|”對齊“

2.4VB開發(fā)應(yīng)用程序一般步驟1.繪制界面插入對象，在窗體設(shè)計窗口利用工具箱窗口完成2.設(shè)置屬性設(shè)置對象屬性，在屬性窗口完成3.編寫代碼填寫代碼，在代碼窗口完成知識點二:關(guān)于屬性方法一：

在設(shè)計模式下，通過屬性窗口直接設(shè)置對象的屬性。方法二：在程序的代碼中通過賦值實現(xiàn)，其格式為：對象名.屬性名稱=新設(shè)置屬性值例如：TxtWel.Text=“Hello,歡迎進入VisualBasic世界！”對象屬性設(shè)置的方法：對象的基本屬性1.Name名稱屬性（任何對象都具有的）創(chuàng)建的對象名稱,有默認(rèn)的名稱。在程序中，對象名是作為對象的標(biāo)識而引用，不會顯示在窗體上。2.Caption標(biāo)題屬性

設(shè)置控件標(biāo)題欄上顯示的內(nèi)容。顯示在對象上對象的命名

（設(shè)置控件的Name屬性）命名約定：

1）必須由字母或漢字開頭、隨后可以是字母、漢字、數(shù)字、下劃線（最好不用）組成。2）長度<=255個字符。對象命名的慣例：匈牙利命名法教材P35頁前綴（表示控件的類型）+單詞（控件代表的意義）)例：cmdSayHellotxtOklblOk幾種常用對象的前綴按鈕CommandButtoncmd標(biāo)簽Labellbl文本框TextBoxtxt圖片框PictureBoxpic圖象框Imageimg2.4VB開發(fā)應(yīng)用程序一般步驟1.繪制界面插入對象，在窗體設(shè)計窗口利用工具箱窗口完成2.設(shè)置屬性設(shè)置對象屬性，在屬性窗口完成3.編寫代碼填寫代碼，在代碼窗口完成知識點三：關(guān)于代碼編寫進入程序代碼窗口的四種方法：

雙擊窗體或已建立好的控件。執(zhí)行“視圖”菜單中的“代碼窗口”命令。單擊工程資源管理器窗口中的“查看代碼”按鈕?？旖萱IF7教材P30頁知識點三：關(guān)于代碼編寫編寫代碼技巧：先分析事件（用戶動作，譯成VB語言）添加事件過程（應(yīng)用程序的相應(yīng)反映，對象屬性變化等）先用自己的語言描述，再通過代碼實現(xiàn)對象名.Show、Hide方法（見教材P204頁）熟悉編寫VB程序的一般步驟False：呈暗淡色，禁止用戶進行操作。文本框(TextBox)的屬性(Interpreter)ico)，只有當(dāng)Style屬性值為1時有效窗體（Form）的方法保存工程教材P36頁Visible屬性：決定控件是否可見FontUnderLine屬性：正文是否帶下劃線。FontUnderLine屬性：正文是否帶下劃線。方法二：雙擊工具箱控件對象設(shè)置對象屬性，在屬性窗口完成注意識別“事件對象”和“事件類型”BackStyle背景樣式知識點四：關(guān)于保存程序

保存工程

教材P36頁“文件”|“保存工程”工具欄中的“保存”按鈕“文件|Form1另存為”

“文件|工程另存為”

按鈕CommandButtoncmd創(chuàng)建的對象名稱,有默認(rèn)的名稱。(2)AutoSize屬性:是否自動改變大小以顯示內(nèi)容True：標(biāo)簽在垂直方向上隨文本變化。常見控件:文本框(TextBox), 標(biāo)簽(Label),Picture:按鈕可顯示圖片文件(.命令按鈕(CommandBotton)的屬性,常見事件和方法PrivateSub對象名稱_事件名稱（）ControlBox屬性：設(shè)置窗口控制框的狀態(tài)PrivateSubForm_Click()FontBold屬性：正文是否是粗體。Top、left屬性：設(shè)置窗體位置作用:用于顯示文本(輸出)信息，不能輸入信息。1:（缺省值）非透明Caption="鼠標(biāo)單擊"匯編語言(AssemblyLanguages)4VB開發(fā)應(yīng)用程序一般步驟保存提示:1.VB應(yīng)用程序至少有兩種文件需要保存：工程文件.vbp（通常1個工程文件對應(yīng)1個應(yīng)用程序）窗體文件.frm（通常1個工程文件包含至少1個窗體文件）

保存這兩個文件時,一定要先保存窗體文件(.frm),再保存工程文件(.vbp).否則下次打開工程會出錯.保存提示:2.每一個程序都要單獨建一個工程，并放在單獨的文件夾中3.下次編輯打開這個程序，雙擊.vbp文件知識點五：運行應(yīng)用程序運行調(diào)試工程

教材P37頁

（1）選擇“運行”菜單中的“啟動”。 （2）單擊工具欄中的“啟動”按鈕。 （3）按[F5]鍵。

知識點六：

生成EXE文件生成EXE文件

教材P37頁

“文件”|”生成工程.exe”

exe是交給最終用戶的，編程者不需要它知識點七:VB三種狀態(tài)教材P259頁設(shè)計狀態(tài)(design)進行程序的界面設(shè)計、屬性設(shè)置、代碼編寫等。運行狀態(tài)(run)執(zhí)行“運行/啟動”命令，查看程序運行效果,也可以查看程序代碼，但不能修改。中斷狀態(tài)(break)當(dāng)在運行模式，按了“中斷”命令或當(dāng)程序出現(xiàn)運行時錯誤時進入中斷模式。可以查看代碼、修改代碼、檢查數(shù)據(jù)。補充：窗體與控件控件與窗體是VB程序中兩種常用對象。窗體(Form)的屬性,方法和事件常見控件:文本框(TextBox),

標(biāo)簽(Label),命令按鈕(CommandBotton)的屬性,常見事件和方法窗體屬性決定了窗體的外觀與操作。一、窗體（Form）教材P198頁窗體（Form）的屬性Name屬性：名稱用于標(biāo)識窗體對象的名字,默認(rèn)名Form1。例如：frmMainfrmInputWindow[窗體]Name屬性窗體設(shè)計窗口窗體名窗體文件名Caption屬性：窗體標(biāo)題決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容，也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本。窗體（Form）的屬性Height、width屬性：設(shè)置窗體大小Top、left屬性：設(shè)置窗體位置窗體（Form）的屬性Left:窗體左邊與桌面左邊的距離。Top:窗體頂部和桌面頂邊的距離。提示：高寬左右的單位為twip（緹）Height:窗體的高度Width:窗體的寬度包括邊框和標(biāo)題欄

FontName屬性：正文的字體（缺省為宋體）。

FontSize屬性：正文的字體大小。

FontBold屬性：正文是否是粗體。

FontItalic屬性：正文是否是斜體。

FontStrikeThru屬性：正文是否加一刪除線。

FontUnderLine屬性：正文是否帶下劃線。窗體（Form）的屬性Font屬性組：設(shè)置窗體上顯示字體Enabled屬性（邏輯值）：決定控件是否可操作。

True：允許用戶進行操作，并對操作出響應(yīng)（缺省值）。

False：呈暗淡色，禁止用戶進行操作。Visible屬性：決定控件是否可見

True：運行時控件可見（缺省值）。

False：運行時控件隱藏，用戶看不到，但控件本身是存在的。窗體（Form）的屬性BackColor屬性：設(shè)置窗體的背景顏色ForeColor屬性：定義在窗體里顯示圖片和文本的前景顏色例如，窗體Form1的背景色設(shè)為紅色：

Form1.BackColor=RGB(255,0,0)Form1.BackColor=vbRed窗體（Form）的屬性MaxButton和MinButton屬性：

True：有最大或最小化按鈕

False：則無。ControlBox屬性：設(shè)置窗口控制框的狀態(tài)

True：窗體左上角有控件菜單

False：無控件菜單，同時窗體也無最大化按鈕和最小化按鈕。窗體（Form）的屬性Picture屬性：設(shè)置窗體中要顯示的圖片。窗體（Form）的屬性Form1.Picture=LoadPicture(App.Path+"\tu.jpg")Form1.Picture=LoadPicture("D:\引例2-1\tu.jpg")在窗體中設(shè)置顯示圖片的方法:在屬性窗口中設(shè)置Form的Picture屬性在代碼中利用LoadPicture函數(shù)提示:表示裝入的圖片文件與應(yīng)用程序在同一文件夾文本框(TextBox)的屬性按鈕CommandButtoncmdForm1.MaxButton和MinButton屬性：窗體（Form）的屬性填寫代碼，在代碼窗口完成PrivateSubForm_Click()設(shè)置對象屬性，在屬性窗口完成Enabled屬性（邏輯值）：決定控件是否可操作。Default：確認(rèn)屬性（邏輯值），設(shè)置為True時，按Enter鍵相當(dāng)于用鼠標(biāo)器單擊了該按鈕。前綴（表示控件的類型）+單詞（控件代表的意義）)Print"結(jié)束使用VB"Form1.0：Normal：正常窗口狀態(tài)，有窗口邊界；1：最小化狀態(tài)，以圖標(biāo)方式運行；2：最大化狀態(tài)，無邊框，充滿整個屏幕。 窗體（Form）的屬性

WindowsState屬性：啟動時窗口狀態(tài)

BorderStyle屬性：邊框風(fēng)格窗體（Form）的常用事件 Click（單擊）事件：單擊鼠標(biāo)左鍵時觸發(fā)DbClick（雙擊）事件：雙擊窗體時觸發(fā)Load（裝入）事件：窗體被裝入工作區(qū)時觸發(fā)上述屬性、Click、DblClick和Load事件演示。注意識別“事件對象”和“事件類型”PrivateSubForm_Load()Caption="裝入窗體"Picture=LoadPicture(App.Path+"\window.jpg")FontSize=48FontName="隸書"Print"裝入窗體"EndSubPrivateSubForm_Click()Caption="鼠標(biāo)單擊"Print"歡迎使用VB"EndSubPrivateSubForm_DblClick()Caption="鼠標(biāo)雙擊"Picture=LoadPicture("")Print"結(jié)束使用VB"EndSubPrint方法Move方法Cls方法（見教材P186頁）Show、Hide方法（見教材P204頁）

窗體（Form）的方法Print方法：打印作用:在窗體對象上輸出信息（文字）

形式:[對象.]Print參數(shù)窗體（Form）的方法Print“輸出信息XXXX“

輸出字符串PrintX

輸出變量值Cls方法：清除作用:清除運行時在窗體顯示的文本或圖形。形式:[對象名.]Cls窗體（Form）的方法例如:Move方法：移動作用:移動窗體或控件，并可改變其大小。形式:[對象名.]Move參數(shù)窗體（Form）的方法2000image1.left+100例如:在窗體上的Command1和Command2的單擊事件中寫入如下代碼：PrivateSubCommand1_Click()Print“歡迎進入Vb世界"Print"a=";a,"b=";bPrint‘空一行Print"a=";a,"b=";bEndSubPrivateSubCommand2_Click()EndSubShow方法：顯示作用：用于在屏幕上窗體。Hide方法：隱藏Hide方法用于使指定的窗體不顯示，但不從內(nèi)存中刪除窗體。窗體（Form）的方法例：實現(xiàn)將指定的窗體在屏幕上進行顯示或隱藏的切換。在窗體Form1的單擊事件中寫入如下代碼：PrivateSubForm_Click()Form1.Hide'隱藏窗體MsgBox"單擊按鈕，使窗體重現(xiàn)屏幕"'顯示信息Forml.Show'重現(xiàn)窗體EndSub二、文本框(TextBox)功能:文本編輯區(qū)域，在該區(qū)域輸入，編輯和顯示文本。

注意:文本框沒有Caption屬性常用屬性:

Text文本屬性:設(shè)置文本框中顯示的內(nèi)容。name屬性：設(shè)置文本框名稱Height、Width屬性:設(shè)置文本框大小Top、Left屬性:設(shè)置文本框位置BackColor屬性：設(shè)置文本框的背景顏色ForeColor屬性：設(shè)置在文本框中顯示文本的前景顏色文本框(TextBox)的屬性

FontName屬性：正文的字體（缺省為宋體）。

FontSize屬性：正文的字體大小。

FontBold屬性：正文是否是粗體。

FontItalic屬性：正文是否是斜體。

FontStrikeThru屬性：正文是否加刪除線。

FontUnderLine屬性：正文是否帶下劃線。文本框(TextBox)的屬性

Font屬性組：設(shè)置在文本框中顯示內(nèi)容的字體Enabled屬性（邏輯值）：決定控件是否可操作。

True：允許用戶進行操作。

False：呈暗淡色，禁止用戶進行操作。Visible屬性：決定控件是否可見

True：運行時控件可見（缺省值）。

False：運行時控件隱藏，用戶看不到，但控件本身是存在的。文本框(TextBox)的屬性BackColor屬性：設(shè)置文本框的背景顏色ForeColor屬性：定義在文本框中顯示文本的前景顏色例如，文本框Text1的背景色設(shè)為紅色：

Text1.BackColor=RGB(255,0,0)Text1.BackColor=vbRed文本框(TextBox)的屬性MultiLine：設(shè)置文本顯示內(nèi)容是否為多行,默認(rèn)一行.

True:文本顯示內(nèi)容為多行

False:文本顯示內(nèi)容為一行PasswordChar:

掩蓋文本框中輸入的字符。該屬性的設(shè)置只有在MultiLine設(shè)為

False才有效文本框(TextBox)的屬性文本框(TextBox)常用事件文本框支持Click，DblClick等鼠標(biāo)事件，同時還支持Change，KeyPress，LostFocus，GetFocus等事件三、標(biāo)簽（Label）作用:用于顯示文本(輸出)信息，不能輸入信息?；緦傩訬ame、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等。

常用屬性（1）Caption屬性Caption屬性用來設(shè)置Label控件中顯示的文本。(2)AutoSize屬性:是否自動改變大小以顯示內(nèi)容

True:自動改變控件大小以顯示全部內(nèi)容。

False:（缺省值）保持控件大小不變。超出控件區(qū)域的內(nèi)容被裁剪掉。標(biāo)簽（Label）的屬性（3）Alignment屬性：設(shè)置文本對齊方式

0：左對齊。

1：右對齊

2：居中（4）WordWrap屬性：標(biāo)簽大小隨文字多少的擴展方式

True：標(biāo)簽在垂直方向上隨文本變化。

False：標(biāo)簽在水平方向上隨文本變化。注意:AutoSize為True時才有效標(biāo)簽（Label）的屬性

（5）

BackStyle屬性：對象的背景是否透明

0:透明－在控件后的背景色和任何圖片都是可見的。

1:（缺省值）非透明標(biāo)簽（Label）的屬性（6）BorderStyle屬性：設(shè)置對象的邊框樣式屬性值：

0:(缺省值)無。

1:固定單邊框。標(biāo)簽（Label）的屬性（7）MousePointer屬性：設(shè)置鼠標(biāo)指針

（8）MouseIcon屬性：設(shè)置鼠標(biāo)圖標(biāo)作用：自定義的鼠標(biāo)圖標(biāo),必須在MousePointer=99時使用在窗體上放置5個標(biāo)簽,其名稱使用默認(rèn)值Label1－Label5,它們的高度與寬度相同,按下表設(shè)置它們的屬性。效果四、命令按鈕(CommandButton)作用:命令按鈕用于接受用戶輸入的命令默認(rèn)名稱：Command1、2…常用屬性：Name、Height