簡單VB程序設(shè)計(jì)課件

第3章

簡單VB程序設(shè)計(jì)

3.1窗體3.2標(biāo)簽3.3文本框3.4命令按鈕3.5數(shù)據(jù)輸入輸出3.6注釋語句、結(jié)束語句4/3/20231【目的要求】1、掌握窗體、標(biāo)簽、文本框、命令按鈕的常用屬性、事件和方法；2、掌握設(shè)計(jì)簡單的VB應(yīng)用程序的方法；3、掌握在VB中進(jìn)行數(shù)據(jù)的輸入與輸出的方法；4、理解面向?qū)ο缶幊痰闹惺录暮x；5、了解VB編程中的一些書寫習(xí)慣?！局攸c(diǎn)】掌握窗體、標(biāo)簽、文本框、命令按鈕的常用屬性、事件；理解事件的含義4/3/20232清華大學(xué)出版社第3章簡單VB程序設(shè)計(jì)3.1窗體

作為與用戶交互的界面，各種控件對(duì)象必須建立在窗體上。在VB6中，每當(dāng)創(chuàng)建一個(gè)新的工程時(shí)，都會(huì)得到一個(gè)默認(rèn)名為Form1的窗體。

3.1.1屬性

（1）（名稱）屬性即Name屬性，用來指定窗體的名稱，在程序代碼中用這個(gè)名稱引用該窗體。（2）AutoRedraw屬性該屬性控制窗體圖像的重畫。只有屬性值為True時(shí)，在其他窗體覆蓋然后移出此窗體后，VB才能重畫此窗體內(nèi)的所有圖形，即重畫Print、Cls、Circle等方法的輸出。4/3/20233清華大學(xué)出版社（8）Height屬性和Width屬性

設(shè)置窗體的高度和寬度。其單位為Twip。1Twip=1/20點(diǎn)=1/1440英寸=1/567厘米。（9）Left屬性和Top屬性Left：設(shè)置窗體左邊框距屏幕左邊界的距離。Top：設(shè)置窗體頂邊距屏幕頂端的距離。（10）MaxButton屬性和MinButton屬性用來設(shè)置窗體的右上角的“最大化”按鈕和“最小化”按鈕。屬性值為True，按鈕可用；為False時(shí)，按鈕不可用。（11）Picture屬性設(shè)置在窗體中顯示的圖片。可以選擇位圖（*.BMP）、GIF圖像、JPEG圖像和ICONS等圖像格式文件作為窗體的背景圖片。若在程序中設(shè)置該屬性的值，需要使用LoadPicture函數(shù)。Form1.Picture=LoadPicture（"c：\Changcheng.wmf"）4/3/20235清華大學(xué)出版社（12）StartUpPosition屬性指定窗體首次出現(xiàn)時(shí)的位置。該屬性有四個(gè)設(shè)置值。0-手動(dòng)：窗體出現(xiàn)的位置由屬性Left和Top決定。1–所有者中心：UserForm所屬的項(xiàng)目中央。2–屏幕中心：窗體出現(xiàn)在顯示器屏幕的中央。3–窗口默認(rèn)：按照默認(rèn)設(shè)置，窗體出現(xiàn)在屏幕的左上角。（13）Visible屬性設(shè)置窗體是否顯示。屬性值為True或False。True：使窗體可見。此值為默認(rèn)值。False：在運(yùn)行時(shí)，窗體及其上面的對(duì)象都將被隱藏。（14）WindowState屬性設(shè)置窗體運(yùn)行時(shí)的大小狀態(tài)。它有三個(gè)可選值：0-Normal：窗體大小由Height和Width屬性決定，此值為默認(rèn)值。1-Minimized：窗體最小化成圖標(biāo)。2-Maximized：窗體最大化，充滿整個(gè)屏幕。4/3/20236清華大學(xué)出版社3.1.2事件

窗體最常用的有如下事件：（1）Click事件：程序運(yùn)行后，單擊窗體的空白區(qū)域或一個(gè)無效控件時(shí)發(fā)生。（2）DblClick事件：程序運(yùn)行后，雙擊窗體的空白區(qū)域或一個(gè)無效控件時(shí)發(fā)生。（3）Load事件：窗體被裝入內(nèi)存工作區(qū)時(shí)觸發(fā)該事件。Load事件過程通常用來在啟動(dòng)程序時(shí)對(duì)屬性和變量進(jìn)行初始化。（4）MouseDown事件：當(dāng)用戶在對(duì)象上按下鼠標(biāo)鍵時(shí)觸發(fā)該事件。（5）MouseUp事件：當(dāng)用戶在對(duì)象上釋放鼠標(biāo)鍵時(shí)觸發(fā)該事件（6）MouseMove事件：當(dāng)用戶在對(duì)象上移動(dòng)鼠標(biāo)時(shí)觸發(fā)該事件。注意:在VB中，雖然不同的對(duì)象有不同的屬性集合，但有一些屬性，如Name、Enabled、Height、Width、Left、Top、Visible等，其他控件也具有，且具有相似的作用。4/3/20237清華大學(xué)出版社[對(duì)象.]Move左邊距離[，上邊距離[，寬度[，高度]]]其中：對(duì)象：可以是窗體以及除菜單以外的所有可視控件，若省略對(duì)象則默認(rèn)為當(dāng)前窗體。左邊距離、上邊距離、寬度、高度：均為數(shù)值，以twip為單位。如果對(duì)象是窗體，則“左邊距離”和“上邊距離”以屏幕左邊界和上邊界為準(zhǔn)，否則以窗體等容器內(nèi)部的左邊界和上邊界為準(zhǔn)。“寬度”和“高度”指定對(duì)象的新寬度和新高度。調(diào)用Move方法后將自動(dòng)改變對(duì)象的Left、Top、Width和Height四個(gè)屬性。4/3/20239清華大學(xué)出版社【例3.1】設(shè)計(jì)程序，用窗體模擬黑板，鼠標(biāo)單擊時(shí)窗體上輸出提問，雙擊時(shí)顯示回答。

【例3.2】在程序運(yùn)行時(shí)，用鼠標(biāo)單擊窗體使窗體移動(dòng)。

4/3/202310清華大學(xué)出版社3.2標(biāo)簽

標(biāo)簽（Label）主要用于顯示不需要用戶修改的文本。標(biāo)簽不能作為輸入信息的界面，其內(nèi)容只能用Caption屬性來設(shè)置或修改。標(biāo)簽常用作標(biāo)題、欄目名或輸入輸出區(qū)域的標(biāo)識(shí)。3.2.1屬性（1）Caption屬性（2）BorderStyle屬性：設(shè)置標(biāo)簽有無邊框。默認(rèn)值為0，標(biāo)簽無邊框；設(shè)置為1時(shí)，標(biāo)簽有立體邊框。（3）Autosize屬性：該屬性用于設(shè)置標(biāo)簽是否自動(dòng)調(diào)整大小以顯示所有內(nèi)容。它有True和False兩種設(shè)置。True：標(biāo)簽控件寬度隨文本改變而改變，不能換行。False：標(biāo)簽保持設(shè)計(jì)時(shí)的大小，如果內(nèi)容太長，則只能顯示一部分。此為默認(rèn)值。（4）Alignment屬性：確定標(biāo)簽中內(nèi)容的對(duì)齊方式。4/3/202311清華大學(xué)出版社3.3文本框

文本框（TextBox）是一個(gè)文本編輯區(qū)域。用戶可以在文本框內(nèi)輸入、編輯和顯示文本。3.3.1屬性（1）Text屬性：設(shè)置文本框中顯示的內(nèi)容。程序執(zhí)行時(shí)，在框內(nèi)輸入的內(nèi)容，會(huì)自動(dòng)保存在Text屬性中。（2）Locked屬性：設(shè)置文本框中的內(nèi)容是否可編輯。默認(rèn)值為False，表示可編輯。設(shè)置為True時(shí)，不可編輯；但此時(shí)可對(duì)框內(nèi)文字選擇復(fù)制，而Enabled屬性設(shè)為False時(shí)，連選擇復(fù)制也不允許。（3）Maxlength屬性：設(shè)置文本框中允許輸入的最大字符數(shù)。輸入的字符數(shù)超過Maxlength設(shè)定的數(shù)目后，文本框?qū)⒉唤邮艹霾糠值淖址?。該屬性默認(rèn)值為0，表示無限制。（4）MultiLine屬性：設(shè)置文本框是否允許接收多行文本。若設(shè)置為True，則可接收多行文本，當(dāng)輸入的文本超出文本框的邊界或按回車鍵時(shí)，會(huì)進(jìn)行換行。默認(rèn)值為False，文本框中只能輸入一行文本。4/3/202313清華大學(xué)出版社3.3.2事件文本框支持Click、DblClick事件，但更常用的是Change和LostFocus事件。（1）Change事件當(dāng)改變文本框的Text屬性的值時(shí)觸發(fā)該事件。當(dāng)用戶鍵入一個(gè)字符時(shí)，就會(huì)引發(fā)一次Change事件。（5）PassWordChar屬性設(shè)置是否在文本框中顯示用戶鍵入的字符。該屬性主要用于輸入密碼。（6）ScrollBars屬性設(shè)置文本框是否有滾動(dòng)條。只有當(dāng)MultiLine屬性為True時(shí)，文本框才能加滾動(dòng)條。

(7)SelStart屬性、Sellength屬性和SelText屬性

4/3/202314清華大學(xué)出版社（2）LostFocus事件

當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā)該事件。焦點(diǎn)的丟失是由于按Tab鍵或單擊其他對(duì)象而產(chǎn)生的。比在Change事件中檢查更為合理有效。

（3）GotFocus事件：得到焦點(diǎn)時(shí)觸發(fā)。

（4）keypress事件：當(dāng)用戶按下“鍵”時(shí)框，觸發(fā)該事件。3.3.3方法SetFocus:該方法使之獲得焦點(diǎn)（把光標(biāo)移到指定的文本框中）。語句“Text1.SetFocus”使文本框Text1獲得焦點(diǎn)。【例3.4】設(shè)計(jì)程序，實(shí)現(xiàn)以下功能。要求在文本框Text1中輸入時(shí)，文本框Text2同步顯示相同內(nèi)容。單擊“清除”按鈕，可清除文本框中的信息并使Text1獲得焦點(diǎn)4/3/202315清華大學(xué)出版社0-Standard：標(biāo)準(zhǔn)的，命令按鈕上不能顯示圖形和背景色，此為默認(rèn)值。

1-Graphical：圖形的，可顯示圖形（Picture中設(shè)置）和背景色（BackColor中設(shè)置）。

（4）Picture屬性

設(shè)置命令按鈕中要顯示的圖形。只有將Style屬性設(shè)置為1，圖形才能在按鈕上顯示。3.4.2事件最常用的事件是Click（單擊）事件。【例3.5】對(duì)語文、數(shù)學(xué)文本框的內(nèi)容進(jìn)行驗(yàn)證（只能輸入0—100之間的數(shù)據(jù)）點(diǎn)擊“計(jì)算”按鈕完成計(jì)算功能文本框得到焦點(diǎn)時(shí)，自動(dòng)選中全部文本4/3/202317清華大學(xué)出版社4/3/202318清華大學(xué)出版社3.5數(shù)據(jù)輸入輸出3.5.1賦值語句格式格式1：變量名=表達(dá)式格式2：[對(duì)象名.]屬性名=表達(dá)式（在格式2中，若對(duì)象名省略，則默認(rèn)對(duì)象為當(dāng)前窗體。）功能：把“=”右邊表達(dá)式的值賦給“=”左邊的變量或?qū)ο蟮膶傩??！纠?.6】設(shè)計(jì)程序，窗體如下圖所示。要求從上到下依次單擊按鈕時(shí)，給相應(yīng)變量賦值，并在右側(cè)的標(biāo)簽控件中顯示結(jié)果。4/3/202319清華大學(xué)出版社【例3.7】設(shè)計(jì)程序，用來計(jì)算三角形面積。要求可以接收用戶輸入的三角形三邊長度，并能計(jì)算、輸出三角形面積。

已知三角形三邊a，b，c，的長，求三角形的面積的公式為：

其中p=(a+b+c)/2。注意：輸入的三邊長度，要符合三角形兩邊之和大于第三邊的規(guī)則；文本框內(nèi)不要輸入非數(shù)值形式的的字符串（字母、漢字、空字符串等），否則會(huì)出現(xiàn)類型不匹配的錯(cuò)誤。

4/3/202321清華大學(xué)出版社3.5.2Print方法及與其有關(guān)的函數(shù)

格式：[對(duì)象名.]Print[表達(dá)式列表]

功能：在對(duì)象上輸出表達(dá)式的值。說明：

“對(duì)象名”：可以是Form（窗體）、Debug（立即窗口）、PictureBox（圖片框）、Printer（打印機(jī)）。如果省略“對(duì)象名”，則表示在當(dāng)前窗體上輸出。例如：Print"15*3="；15*3 '在當(dāng)前窗體上輸出15*3=45Printer.Print"Good" '在打印機(jī)上輸出Good當(dāng)輸出多個(gè)表達(dá)式，各表達(dá)式之間用分隔符西文“，”或“；”隔開。“，”分隔各表達(dá)式時(shí)，各項(xiàng)在以14個(gè)字符位置為單位劃分出的區(qū)段中輸出?！?；”分隔各表達(dá)式時(shí)，各項(xiàng)按緊湊格式輸出，即各項(xiàng)之間無間隔地連續(xù)輸出。4/3/202322清華大學(xué)出版社如果在語句行末尾有“；”，則下一個(gè)Print輸出的內(nèi)容，將緊跟在當(dāng)前Print輸出內(nèi)容后面；如果在語句行末尾有“，”，則下一個(gè)Print輸出的內(nèi)容，將在當(dāng)前Print輸出內(nèi)容的下一區(qū)段輸出；如果在語句行末尾無分隔符，則輸出完本語句內(nèi)容后換行，即在新的一行輸出下一個(gè)Print的內(nèi)容。（4）用Tab函數(shù)定位輸出

在Print方法中，可以使用Tab函數(shù)對(duì)輸出項(xiàng)進(jìn)行定位。Tab函數(shù)的格式為：Tab（n）其中n為數(shù)值表達(dá)式，其值為整數(shù)。Tab函數(shù)把顯示或打印移動(dòng)到由參數(shù)n指定的列數(shù)，從此列開始輸出數(shù)據(jù)。例如：PrintTab(10);"姓名";Tab(25);"年齡"則“姓名”和“年齡”分別從當(dāng)前行的第10列和第25列開始輸出。輸出結(jié)果如下：姓名年齡4/3/202323清華大學(xué)出版社3.5.3MsgBox函數(shù)和MsgBox語句1.MsgBox函數(shù)可生成為用戶提供信息和選擇的交互式對(duì)話框。格式：MsgBox（提示，[，按鈕數(shù)值][，標(biāo)題]）功能：MsgBox函數(shù)在對(duì)話框中顯示信息，在用戶單擊對(duì)話框上按鈕時(shí)，可返回一個(gè)整數(shù)以標(biāo)明用戶單擊的是哪個(gè)按鈕。說明：執(zhí)行下面的語句后，在屏幕上會(huì)彈出如下圖所示的消息框。inta=MsgBox（"第一項(xiàng)為提示"，65，"第三項(xiàng)為標(biāo)題"）4/3/202325清華大學(xué)出版社計(jì)算“出鈕數(shù)值”的方法：“按鈕數(shù)值”是三個(gè)數(shù)值之和，這三個(gè)數(shù)值分別代表按鈕的數(shù)目和類型，使用的圖標(biāo)樣式，及默認(rèn)按鈕是什么。注意：每個(gè)表只能取一個(gè)數(shù)。例如“按鈕數(shù)值”是65，系統(tǒng)會(huì)自動(dòng)把它分解成分別屬于上面三個(gè)表中的三個(gè)值1（顯示確定和取消按鈕）、64（顯示“i”圖標(biāo)）、0（第一個(gè)按鈕為默認(rèn)按鈕）。65=1+64+0，這種分解是惟一的。在程序中，可以把“按鈕數(shù)值”寫成符號(hào)常數(shù)相加的形式，如把65寫成vbOKCancel+vbInformation+vbDefaultButton1。

2、MsgBox語句：MsgBox也可以寫成語句形式，例如："密碼錯(cuò)！",,"錯(cuò)誤提示"執(zhí)行此語句也產(chǎn)生一個(gè)消息框，如下圖所示。MsgBox語句沒有返回值，因此常用于比較簡單的信息提示。4/3/202326清華大學(xué)出版社注意：各項(xiàng)參數(shù)次序必須一一對(duì)應(yīng)，除了“提示”不能省略外，其余各項(xiàng)均可省略，但省略部分有時(shí)要加入相應(yīng)的逗號(hào)占位符。用戶可在文本框中輸入數(shù)據(jù)，按“確定”按鈕，函數(shù)返回值是用戶在文本框中輸入數(shù)據(jù)，其類型為字符型；如果按“取消”按鈕，則函數(shù)返回值是一個(gè)零長度的字符串（空字符串）?！皔坐標(biāo)位置”：整數(shù)表達(dá)式，指定輸入框的上邊與屏幕上邊的水平距離，單位為Twip。如果省略此項(xiàng)，則對(duì)話框被放置在屏幕垂直方向距下邊大約三分之一的位置?！纠?.10】通過InputBox函數(shù)輸入兩個(gè)數(shù)字存入變量a、b，然后將其互換。4/3/202329清華大學(xué)出版社3.6注釋語句、結(jié)束語句3.6.1注釋語句格式：’|Rem<注釋內(nèi)容>功能：可以實(shí)現(xiàn)在代碼中加入用來解釋說明的附加文本。說明：如果在其他語句行后使用“Rem”關(guān)鍵字，則必須使用西文冒號(hào)“:”與語句隔開。可以用一個(gè)撇號(hào)“‘”來代替“Rem”關(guān)鍵字。若使用撇號(hào)，則在其他語句行使用時(shí)不必加冒號(hào)。3.6.2結(jié)束語句格式：End功能：用來結(jié)束程序的執(zhí)行，并關(guān)閉已打開的文件。說明：End語句提供了一種關(guān)閉程序的方法。執(zhí)行此語句，會(huì)卸載程序中的所有