1、16 八月 2022安徽工業大學計算機學院1第一章VB程序設計概論一、引例(漢諾塔游戲)二、概述三、安裝與啟動四、VB集成開發環境簡介五、VB編程的基本概念六、程序調試第1頁，共35頁。16 八月 2022安徽工業大學計算機學院2二、概述發展：版本：學習版、專業版、企業版特點：面向對象的可視化設計工具;事件驅動的編程機制;提供了易學易用的應用程序集成開發環境;支持多種數據庫系統的訪問;第2頁，共35頁。16 八月 2022安徽工業大學計算機學院3三、安裝與啟動VB運行環境VB安裝與卸載VB的啟動與退出第3頁，共35頁。16 八月 2022安徽工業大學計算機學院4四、VB集成開發環境簡介第4頁，

2、共35頁。16 八月 2022安徽工業大學計算機學院5四、VB集成開發環境簡介1. 主窗口 應用程序窗口，由標題欄、菜單欄和工具欄組成。2. 窗體(form)窗口 設計VB程序的界面。3. 代碼(code)窗口 編輯窗體、標準模塊中的代碼。4. 屬性(properties)窗口 所有窗體或控件的屬性設置。5. 工程資源管理器(project expror)窗口 保存一個應用程序所有的文件。6. 工具箱(toolbox)窗口 顯示各種控件的制作工具，供用戶在窗體上設計。作業:熟悉VB集成開發環境,試在窗體中顯示”歡迎使用Visual Basic!”第5頁，共35頁。16 八月 2022安徽工業大

3、學計算機學院6五、VB編程的基本概念(1)使用窗體程序實例單擊窗體，顯示一段文字VB對象的屬性、事件與方法對象、屬性、事件、方法第6頁，共35頁。16 八月 2022安徽工業大學計算機學院7五、VB編程的基本概念(2)1. 類 類是創建對象實例的模板, 包含了創建對象的屬性描述和行為(方法)特征的定義。2. 對象 是類的一個實例，繼承了類的屬性、方法。 VB中常用的對象有：窗體、控件等。3. 對象的建立和命名第7頁，共35頁。16 八月 2022安徽工業大學計算機學院8五、VB編程的基本概念(3)4. 對象的三要素 （1）屬性 對象的性質，即用來描述和反映對象特征的參數。 （2）方法 對象的行

4、為，即將一些通用的過程編寫好并封裝起來，作為方法供用戶直接調用。 （3）事件 響應對象的動作稱為事件，它發生在用戶與應用程序交互時。如單擊控件、鼠標移動、鍵盤按下等。第8頁，共35頁。16 八月 2022安徽工業大學計算機學院9五、VB編程的基本概念(4)使用控件程序實例用戶界面包括三個命令按鈕和一個文本框，單擊第一個按鈕時，文本框中顯示內容，單擊第二個按鈕時，清除文本框中內容，單擊第三個按鈕時，結束程序的運行第9頁，共35頁。16 八月 2022安徽工業大學計算機學院10相關對象屬性第10頁，共35頁。16 八月 2022安徽工業大學計算機學院11添加按鈕事件代碼方法一：直接雙擊相關按鈕對象

5、，進入代碼窗口，編寫代碼方法二：在代碼窗口選擇相應對象，再選擇該對象的相應事件，然后編寫代碼第11頁，共35頁。16 八月 2022安徽工業大學計算機學院12基本控件和窗體一、常用屬性 1. Name名稱屬性 創建的對象名稱，有默認的名。在程序中，控件名是作為對象的標識而引用，不會顯示在窗體上。 2. Caption標題屬性該屬性決定了控件上顯示的內容。 3. Height、width、top和left屬性第12頁，共35頁。16 八月 2022安徽工業大學計算機學院134. Enabled屬性 控件是否可操作。當設置為false時，呈暗淡色，禁止用戶進行操作。5. Visible屬性 控件是

6、否可見。當設置為false時，用戶看不到，但控件本身存在。6. Font屬性 Fontname：字體；Fontsize：字體大小；Fontbold：是否是粗體； Fontitalic：是否斜體；Fontstrikethru：是否加一刪除線。 Fontunderline：是否帶下劃線。 例 在窗體是建立兩個命令按鈕 Command1和Command2， Command2 的Font通過屬性窗口設置， 其余屬性 通過代碼實現。第13頁，共35頁。16 八月 2022安徽工業大學計算機學院147. Forecolor前景顏色屬性 設置控件的前景顏色（即正文顏色).。其值是一個十六進制常數，用戶可以在

7、調色板中直接選擇所需顏色。8. Backcolor背景顏色屬性9. Backstyle背景風格屬性 0-transparent：透明顯示，即控件背景顏色顯示不出來。10. BorderStyle邊框風格屬性 0-None：控件周圍沒有邊框 。 1-Fixed Single：控件帶有單邊框。11. Alignment屬性 控件上正文水平對齊方式 0：正文左對齊 ；1：右對齊；2：居中。12. AutoSize屬性 控件是否根據正文自動調整大小， False 13. WordWarp屬性 AutoSize True時，WordWarp才有效。 按正文字體大小在垂直方向上改變顯示區域的大小。第14頁

8、，共35頁。16 八月 2022安徽工業大學計算機學院1514.TabIndex屬性 決定了按Tab鍵時，焦點在各個控件移動的順序。各個控件默認TabIndex值就是以控件建立時 的順序，第一個為0。第15頁，共35頁。16 八月 2022安徽工業大學計算機學院16例 控件設置 效果第16頁，共35頁。16 八月 2022安徽工業大學計算機學院17二.窗體1.屬性 Caption標題 MaxButton、MinButton Icon、ControlBox Picture、AutoRedraw BorderStyle （0 1 2 3 4 5 ） WindowsState （0-正常、1-最小化

9、、2-最大化）2.事件 Click、DblClick和Load Load 當裝入窗體時激發，通常用于對屬性和變量初始化3.方法 Print、Cls和Move等 例上述屬性、Click、DblClick和Load 事件演示。第17頁，共35頁。16 八月 2022安徽工業大學計算機學院18三、標簽 Label 用于顯示文本(輸出)信息，不能作為輸入信息的界面。 例 顯示浮雕效果的文字，實現方法：字顏色、標簽位置第18頁，共35頁。16 八月 2022安徽工業大學計算機學院19四、文本框 TextBox 是一個文本編輯區域，可在該區域輸入，編輯和顯示正文內容。 1.其他屬性 Text：正文內容；

10、Maxlength：設置正文的最多字符個數，0任意長度值； MultiLine：是否為多行，默認為一行，False； ScrollBars：MultiLine為True時，該屬性才有效，表示滾動條的形式 0-None、1-Horizontal、2-Vertical、3-Both； Locked：是否可被編輯屬性，False，表示為可編輯。PassWord：口令字符； Text屬性返回輸入的數據，屏幕顯示該字符； SelStart、SelLength、SelText：選中文本的起始、長度、內容。 例 復制選中的文本第19頁，共35頁。16 八月 2022安徽工業大學計算機學院202.常用事件 C

11、hange：當改變文本框的Text屬性時會引發該事件。 KeyPress(KeyAscii As Integer)：同上，并可返回一個KeyAscii參數 KeyAscii 為13，按回車鍵;為0 去除剛輸入的字符。 LostFocus：當控件失去焦點時發生。 GotFocus：當控件獲得焦點時發生。3.常用方法 對象.SetFocus：是把光標移到指定的文本框對象中。4.文本框的應用 數據過濾例 要求輸入合法的數字數據。當輸入結束時（按Tab鍵），對于輸入正確的數據，顯示正確信息；對輸入的非數字數據顯示錯誤信息、清除文本框中的內容，并使焦點重新回到文本框。 Text2_ LostFocus

12、當輸入結束按Tab鍵時，該事件激發。 IsNumeric(Text2)：判斷是否輸入非數字數據。 Text2.SetFocus：使焦點重新回到文本框。 第20頁，共35頁。16 八月 2022安徽工業大學計算機學院21五、命令按鈕CommandButton 接受用戶輸入的命令。輸入命令可以有三種方式： 鼠標單擊、Tab鍵焦點到該按鈕、快捷鍵。 1. 其他屬性Caption：命令按鈕顯示的內容，可設置快捷鍵，例 &Ok，顯示 Ok。Value： 檢查該按鈕是否按下。該屬性在設計時無效。Picture ：按鈕可顯示圖片文件(.bmp和.Ico)，當Style為1時有效。Style：確定顯示的形式，

13、0 只能顯示文字，1 文字、圖形均可 。ToolTipText ：設置工具提示，和Picture結合使用。 2. 事件 Click第21頁，共35頁。16 八月 2022安徽工業大學計算機學院22六、常用方法 方法是面向對象的，故使用的形式為： 對象.方法 1.Print方法 形式： 對象.PrintSpc(n)|Tab(n)表達式列表；|， 作用：在對象上輸出信息對象：窗體、圖形框或打印機(Printer) ，省略對象在窗體上輸出。Spc(n)函數：插入n個空格，允許重復使用。Tab(n)函數：左端開始右移動n列，允許重復使用。；(分號)：光標定位上一個顯示的字符后。，(逗號)：光標定位在下

14、一個打印區的開始位置處。無 ；，時換行。 開始打印的位置是由對象的CurrentX和CurrentY屬性決定， 缺省為打印對象的左上角0，0。 注意：Print方法在Form _Load事件過程中起作用，必須設置窗體的AutoRedraw為True。第22頁，共35頁。16 八月 2022安徽工業大學計算機學院23例 顯示圖形 Private Sub Form_Click() For i = 1 To 5 Print Tab(i); String(6 - I, ); Spc(6); String(I, ) Next i End Sub注意：String(number, character)返回

15、指定長度重復字符的字符串?？紤]：若把Spc(6)換成Tab(6)，效果如何？第23頁，共35頁。16 八月 2022安徽工業大學計算機學院242. Cls方法 形式：對象.Cls 作用：清除運行時在窗體或圖形框中顯示的文本或圖形。 注意：不清除在設計時的文本和圖形。3. Move方法 形式：對象.Move 左邊距離，上邊距離，寬度，高度 作用：移動窗體或控件，并可改變其大小。 對象：可以是窗體及除時鐘、菜單外的所有控件 例 圖形移到窗體的中心。 第24頁，共35頁。16 八月 2022安徽工業大學計算機學院25七、應用舉例 例 編一計算月支付貸款的程序?，F要求根據房產商提供的信息，買房者選擇房

16、型、面積、單價、按揭期等信息，計算每月支付代款的程序。窗體1：列表框選擇數據、標簽顯示數據、文本框輸入數據；窗體2：圖形框顯示房屋的平面圖。Pmt函數計算月支付貸款。第25頁，共35頁。16 八月 2022安徽工業大學計算機學院26工程的管理及環境的設置一、工程的組成 工程文件包含了一個應用程序的所有文件:窗體文件(.frm)：控件及屬性、事件過程和自定義過程;窗體的二進制數據文件(.frx)，自動產生同名.frx文件;標準模塊文件(.bas);類模塊的文件(.cls);資源文件(.res);ActiveX控件的文件(.ocx).二、創建、打開和保存工程第26頁，共35頁。16 八月 2022

17、安徽工業大學計算機學院27三、添加、刪除和保存文件1. 窗體名和窗體文件名概念 窗體名：窗體的Name屬性，在代碼中用來引用該窗體，同一工程不能有相同的窗體名； 窗體文件名：窗體存放在磁盤上的文件名，該文件包含了該窗體的所有控件屬性和代碼，同一文件夾不能有相同的文件名。2. 在工程中添加現存的窗體時，只是對該窗體文件的引用納入工程。因此，如果更改窗體并保存它，會影響包含此窗體文件的任何工程。窗體文件名窗體名第27頁，共35頁。16 八月 2022安徽工業大學計算機學院283. 在工程中刪除窗體時，僅將此窗體從工程里刪除掉，但是窗體文件仍存在于磁盤上。但是，如果在VB之外刪除一個窗體文件，VB不

18、能更新此工程文件，當打開此工程時，將顯示一個文件丟失的錯誤信息。4. 對窗體文件改名方法1) 打開工程 “另存為Form”實現文件的復制保存工程文件。 2) 利用編輯程序打開工程文件，修改FORM=XXX的文件名。第28頁，共35頁。16 八月 2022安徽工業大學計算機學院29生成可執行文件和制作安裝盤1. 生成可執行文件 文件/生成exe文件，然后關閉Visual Basic6.0。2. 制作安裝盤在向導的指導下運行V B6.0中文版工具“Package & Deployment”；“打包”：把工程中用到的各種類型的文件進行打包壓縮后，存放到特定的目錄下?！罢归_”：再把這些打包的文件展開到

19、用戶可以攜帶的安裝介質軟盤、光盤等。3. 檢測安裝程序 在沒有VB 6.0系統的環境下，執行安裝盤中的Setup.exe文件，將發行盤進行安裝。第29頁，共35頁。16 八月 2022安徽工業大學計算機學院30程 序 調 試一、錯誤類型（1）編輯錯誤在編輯代碼時，VB會對鍵入的代碼直接進行語法檢查。當發現代碼存在打字錯誤，遺漏關鍵字或標點符等語法錯誤，VB 在Form窗口中彈出一個子窗口，提示出錯信息，出錯的那一行變成紅色。這時，用戶必須單擊“確定”按鈕，關閉出錯提示窗，然后對出錯行進行修改。第30頁，共35頁。16 八月 2022安徽工業大學計算機學院31（2）編譯錯誤 編譯錯誤指按了“啟動”按鈕，VB開始運行程序前，先編譯執行的程序段時，產生的錯誤。此類錯誤由于用戶未定義變量、遺漏關鍵字等原因產生。這時，Visual Basic也彈出一個子窗口，提示出錯信息，出錯的那一行被高亮度顯示。第31頁，共35頁。16 八月 2022安徽工業大學計算機學院32（3） 運行錯誤運行時錯誤指VB在編譯通過后，運行代碼時發生的錯誤。這類錯誤