測量程序設(shè)計建筑工程學(xué)院測繪工程系主講：孔維華

kwh@案例一案例一案例二本課程的性質(zhì)與重點內(nèi)容課程性質(zhì)：

專業(yè)技術(shù)基礎(chǔ)課。必要性：

通過本課程的學(xué)習(xí)，使學(xué)生在程序設(shè)計和應(yīng)用軟件的開發(fā)兩個方面都得到鍛煉，具有用VisualBasic開發(fā)Windows環(huán)境下應(yīng)用程序的能力，具有開發(fā)簡單測量應(yīng)用程序的能力，同時為GIS開發(fā)打下堅實的理論基礎(chǔ)。重點：

1、VB控制結(jié)構(gòu)；2、VB用戶界面設(shè)計難點：

1、數(shù)據(jù)庫應(yīng)用。學(xué)習(xí)方法認真聽課并適當(dāng)作筆記；認真上機和編寫實驗報告；平時應(yīng)多抽課余時間上機調(diào)試程序；培養(yǎng)興趣；相互學(xué)習(xí)學(xué)習(xí)語言建議：貴“恒”，忌“浮”，切不可“這山望著那山高”，其實每種語言只有“語法”不同，其它是相通的第一章：VB概述（4學(xué)時）第二章：VB程序設(shè)計基礎(chǔ)（4學(xué)時）第三章：VB程序設(shè)計（4學(xué)時）第四章：VB常用控件（4學(xué)時）第五章：界面設(shè)計（8學(xué)時）第六章：圖形操作（4學(xué)時）第七章：數(shù)據(jù)庫應(yīng)用（4學(xué)時）

課時安排總學(xué)時32，上課16學(xué)時，上機16學(xué)時第一章VB概述1.1VisualBasic6.0簡介一、VisualBasic的發(fā)展

VisualBasic是Microsoft公司開發(fā)的Windows應(yīng)用程序開發(fā)工具，Visual——“可視化的”（直觀），是一種開發(fā)圖形用戶界面（GUI）的方法。

1991年推出VB1.01992、1993、1995、1997、1998、2002相繼推出：

2.0,3.0,4.0,5.0,6.0,VB.Net(7.0)版本

5.0,6.0包含三種版本（學(xué)習(xí)版、專業(yè)版和企業(yè)版）二、VisualBasic的特點（紅綠燈）

具有基于對象的可視化設(shè)計工具事件驅(qū)動的編程機制

傳統(tǒng)的程序設(shè)計是由一個主程序和若干個過程及函數(shù)組成，程序運行總是從主程序開始，由主程序調(diào)用子過程和函數(shù)。VB是通過“事件”（鍵盤或鼠標操作、系統(tǒng)消息、程序觸發(fā)）來執(zhí)行對象的操作。而不是由事先編好的程序流程所控制。事件的發(fā)生順序是由程序的使用者靈活控制。第一章VB概述二、VisualBasic的特點

交互式的集成開發(fā)環(huán)境

即時捕獲并顯示拼寫或語法錯誤，在輸入時部分地編譯高度的可擴充性

支持第三方軟件商開發(fā)的可視化控件（.Ocx）支持訪問動態(tài)鏈接庫（DLL）支持訪問應(yīng)用程序接口（API）強大的網(wǎng)絡(luò)、數(shù)據(jù)庫、多媒體功能完備的聯(lián)機幫助功能第一章VB概述1.2VisualBasic集成開發(fā)環(huán)境“新建”---用于建立新的工程“現(xiàn)存”--選擇和打開現(xiàn)有工程“最新”--列出最近使用過的工程第一章VB概述1.2VisualBasic集成開發(fā)環(huán)境菜單欄工具欄代碼窗口工具箱窗體窗口立即窗口監(jiān)視窗口工程窗口屬性窗口布局窗口第一章VB概述1.2.1主窗口（標題欄、菜單欄、工具欄）1.標題欄

有窗體控制菜單圖標、當(dāng)前激活的工程名稱、當(dāng)前工作模式以及最小化、最大化/還原、關(guān)閉按鈕。

VB有三種工作模式：設(shè)計模式、運行模式和中斷模式。在設(shè)計模式下，可進行用戶界面的設(shè)計和代碼的編制，從而完成應(yīng)用程序的開發(fā)。應(yīng)用程序運行時VB處于運行模式，此時不能進行設(shè)計界面和代碼的編輯。中斷模式主要用于調(diào)試程序，此時應(yīng)用程序運行暫時中斷，可以進行代碼的編輯。2.菜單欄

主菜單包括13個下拉菜單，包含程序設(shè)計所需各種命令。菜

單作

用文件（File）

用于創(chuàng)建、打開、保存、顯示最近的工程以及生成可執(zhí)行文件，打印和退出系統(tǒng)編輯（Edit）

用于源代碼的編輯、查找，顯示一些常用的信息視圖（View）

用于集成環(huán)境下程序源代碼、控件的查看，及各種窗口、工具箱的關(guān)閉與打開工程（Project）用于控件、模塊和窗體等對象的添加等處理格式（Format）

用于窗體、控件的設(shè)計格式，如對齊、間距、尺寸、鎖定等調(diào)試（Debug）用于程序的調(diào)試、查錯運行（Run）用于程序的啟動、中斷和停止等查詢（Query）

用于設(shè)計SQL查詢圖表（Diagram）用于建立數(shù)據(jù)庫中的表工具（Tools）用于集成開發(fā)環(huán)境的設(shè)置及原有工具的擴展外接程序（Add-Ins）用于為工程增加或刪除外接程序窗口（Windows）

用于屏幕窗口的層疊、平鋪等布局以及列出所有己打開的文檔幫助（Help）幫助用戶系統(tǒng)的學(xué)習(xí)和掌握VB的使用方法及程序設(shè)計方法3.工具欄可以迅速訪問常用的菜單命令。主菜單下面是標準工具欄，其他工具欄可以通過“視圖”菜單中的“工具欄”命令打開。工具欄右邊是數(shù)字顯示區(qū)，包含兩個部分：左數(shù)字區(qū)顯示的是對象的坐標位置，右數(shù)字區(qū)顯示的是對象的大小。圖標名稱與功能添加標準EXE工程——用來添加新的工程到工程組中。單擊其右邊的箭頭將彈出一個下拉菜單，可從中選擇需要添加的工程類型添加窗體——用來添加新的窗體到工程中，單擊其右邊的箭頭，將彈出一個下拉菜單，可從中選擇需要添加的窗體類型菜單編輯器——顯示菜單編輯器對話框打開工程——用于打開已有的工程文件保存文件——用于保存當(dāng)前的工程文件啟動——開始運行當(dāng)前的工程中斷——暫時中斷當(dāng)前工程的運行結(jié)束——結(jié)束當(dāng)前工程的運行工程資源管理器——打開工程資源管理器窗口屬性窗口——打開“屬性窗口”窗體布局窗口——打開“窗口布局窗口”對象瀏覽器——打開“對象瀏覽器”對話框工具箱——打開工具箱數(shù)據(jù)視圖窗口——打開“數(shù)據(jù)視圖窗口”可視化部件管理器——管理系統(tǒng)中的組件1.2.2窗體設(shè)計窗口（對象窗口）對象窗口是應(yīng)用程序的載體，用戶通過與窗體上的控件交互來得到結(jié)果。默認名稱為Form1、Form2……。窗體設(shè)計窗口窗體名窗體文件名在窗體的空白區(qū)域單擊右鍵，將彈出快捷菜單，可切換到“代碼窗口”、“菜單編輯器”、“屬性窗口”，還可以選擇“鎖定控件”和“粘貼”。

1.2.3代碼窗口代碼窗口代碼窗口用于編寫、顯示和修改VB代碼，用戶可同時打開多個代碼窗口。打開代碼窗口的方法很多，雙擊窗體的任何地方和單擊工程窗口中的“查看代碼”按鈕是較為簡便的方法。1.2.4屬性窗口屬性窗口屬性窗口用于列出選定窗體和控件的屬性設(shè)置值，在設(shè)計時也可進行屬性值的設(shè)定。可打開屬性窗口方法：按F4鍵或工具欄中“屬性窗口”按鈕或“視圖”菜單中“屬性窗口”1.2.4.屬性窗口資源管理器1.2.5工程資源管理器窗口VB中用工程資源管理器來管理工程中的窗體和各種模塊。工程文件是管理與該工程有關(guān)的所有文件和對象的清單，這些文件和對象自動鏈接到工程文件上，其擴展名為.VBP

。在工程文件窗口中有“查看代碼”、“查看對象”和“切換文件夾”3個按鈕。1.2.5工程資源管理器窗口該窗口主要包含兩種類型文件：窗體文件（.frm）標準模塊文件（.bas）1.2.7工具箱和控件工具箱和控件1.3創(chuàng)建應(yīng)用程序的過程建立一個應(yīng)用程序的步驟：建立用戶界面對象。對象屬性設(shè)置。對象事件過程及編程。運行和調(diào)試程序。保存程序。舉例：計算面積一、界面設(shè)計需要9個對象：3個標簽（Label）3個文本框（TextBox）3個命令按鈕（CommandButton）。二、屬性設(shè)置需設(shè)置三個屬性：Caption：標題Text：文本Font：字體三、事件過程代碼編寫 需要用代碼實現(xiàn)的功能有三：計算：面積；清空：清空3個文本框；結(jié)束：退出程序。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=Text1.Textb=Text2.TextText3.Text=a*bEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand3_Click()EndEndSub四、運行和調(diào)試運行：工具欄上的“啟動”按鈕或F5。調(diào)試：發(fā)現(xiàn)錯誤并改正。Vb程序會先編譯，自動檢查語法錯誤，提示用戶修改。五、保存和生成可執(zhí)行文件1.保存單擊工具欄上“保存工程”按鈕，彈出“另存為”對話框；選擇保存位置、輸入文件名后點“保存”；

（保存窗體文件.frm）又彈出“另存為”對話框，重復(fù)2。

（保存工程文件.vbp）注：程序運行之前，務(wù)必先保存，以避免意外丟失。記清楚保存的位置和文件名。2.生成可執(zhí)行文件兩種運行模式：編譯運行和解釋運行。編譯運行：生成.exe文件后運行。“文件”—“生成.exe”命令。特點：一次讀入，速度快，可脫離VB。解釋運行：單擊“啟動”按鈕，逐步運行。

特點：逐步解釋，速度慢，便于調(diào)試。1.4窗體

1、caption屬性

2．MaxButton最大化按鈕和MinButton最小化按鈕：當(dāng)值為Ture，有最大或最小化按鈕，F(xiàn)alse則無。

3．Picture圖片屬性：設(shè)置窗體中要顯示的圖片。加載圖片操作同Icon控制圖標屬性。4、WindowsState

運行時窗體的顯示狀態(tài)

0---normal1–minimized3---maximized一.屬性

5.BorderStyle：邊框風(fēng)格,通過改變

BorderStyle屬性，可以控制窗體如何調(diào)整大小。

0-None：無邊框；

1-FixedSingle：單線邊框，不可以改變窗口大小；

2-Sizable：雙線邊框，可以改變窗口大?。?/p>

3-FixedDouble：雙線框架，不可以改變窗口大小。

4-FixedToolWindow:窗體外觀與工具條相似。有關(guān)閉按鈕，不可以改變窗口大小。

5-SizableToolWindow：窗體外觀與工具條相似。有關(guān)閉按鈕，可以改變窗口大小。二、窗體事件最常用的事件

1Click/DblClick：單擊/雙擊窗體觸發(fā)。

2Load：窗體被裝入時觸發(fā)的事件。該事件通常用來在啟動應(yīng)用程序時對屬性和變量進行初始化。

3、Unload事件

卸載窗體時觸發(fā)該事件。

4、Resize事件

無論是因為用戶交互，還是通過代碼調(diào)整窗體的大小，都會觸發(fā)一個Resize事件。PrivateSubForm_Click()Print"歡迎學(xué)習(xí)VB"EndSubPrivateSubForm_Resize()Form1.Width=120*16Form1.Height=140*16+200EndSub窗體事件例子三、常用方法窗體常用的方法有：打印輸出Print、移動Move、清除Cls、顯示Show、隱藏Hide等方法。使用的形式:[對象.]方法

1.Print方法形式:[對象.]Print[{Spc(n)|Tab(n)}][表達式列表][；|，]

作用:在對象上輸出信息對象：窗體、圖形框或打印機(Pinter),省略對象在窗體上輸出。Spc(n)函數(shù)：插入n個空格，允許重復(fù)使用。Tab(n)函數(shù)：左端開始右移動n列，允許重復(fù)使用。；(分號)：緊湊。，(逗號)：隔一個打印區(qū)（14列）開始打印的位置是由對象的CurrentX和Currenty屬性決定，缺省為打印對象的左上角0，0。PrivateSubForm_Click()a=10:b=3.14:c=100Print"a=";a;"b=";bPrint"a=";a,"b=";bPrintTab(18);"a=";a,"b=";bPrintSpc(18);"a=";a,"b=";bEndSub例2.1在窗體Form1的單擊事件中寫入如下代碼：2.Cls方法形式:[對象.]Cls

作用:清除運行時在窗體或圖形框中顯示的文本或圖形。

注意:不清除在設(shè)計時的文本和圖形。3.Move方法形式:[對象.]Move左邊距離[，上邊距離[，寬度[，高度]]]

作用:移動窗體或控件，并可改變其大小。

4．Show(顯示)方法

Show方法用于在屏幕上顯示一個窗體，調(diào)用

Show方法與設(shè)置窗體

Visible屬性為

True具有相同的效果。其調(diào)用格式如下：

窗體名.Show5．Hide(隱藏)方法Hide方法用于使指定的窗體不顯示，但不從內(nèi)存中刪除窗體。其調(diào)用格式為：

窗體名.Hide1.5基本控件一、標簽Label二、文本框TextBox三、命令按鈕（CommandButton）1.5.1標簽Label

用于顯示文本(輸出)信息，不能作為輸入信息的界面。（1）

Alignment屬性設(shè)置Caption屬性中文本的對齊方式，共有三種可選值：

0左對齊(LeftJustify)；1右對齊(RightJustify)；

2居中對齊(CenterJustify)。（2）BackStyle屬性該屬性用于確定標簽的背景是否透明。（3）AutoSize屬性AutoSize屬性確定標簽是否會隨標題內(nèi)容的多少自動變化。標簽可響應(yīng)單擊（Click)和雙擊（DblClick）事件，但一般情況不對它進行編程

1.5.2

文本框TextBox

是一個文本編輯區(qū)域，可在該區(qū)域輸入，編輯和顯示正文內(nèi)容。（一）屬性（1）.Text文本屬性在文本框中顯示的正文內(nèi)容存放在Text屬性中。當(dāng)程序運行時，用戶通過鍵盤輸入正文內(nèi)容，保存在Text屬性中。（2）Maxlength：設(shè)置正文的最多字符個數(shù),0任意長度值。（3）MultiLine：是否為多行,默認一行.False文本框沒有Caption屬性（4）ScrollBars：當(dāng)MultiLine為True時,該屬性才有效,滾動條的形式。0-None：無滾動條、1-Horizontal：水平滾動條、

2-Vertical垂直滾動條、3-Both水平和垂直滾動條。（5）Locked：是否可被編輯屬性，F(xiàn)alse，表示為可編輯。（6）PassWordChar屬性設(shè)置PasswordChar屬性為了掩蓋文本框中輸入的字符。該屬性的設(shè)置只有在MultiLine設(shè)為False才有效（7）seltext

：選定的正文內(nèi)容（二）常用事件

Change：

當(dāng)改變文本框的Text屬性時會引發(fā)該事件。當(dāng)用輸入一個字符，就會觸發(fā)一次Change事件。

KeyPress(KeyAsciiAsInteger)：當(dāng)用戶按下并釋放鍵盤上一個ANSI鍵時，就會觸發(fā)一次該事件

LostFocus

：當(dāng)控件失去焦點時發(fā)生。

GotFocus

：當(dāng)控件獲得焦點時發(fā)生。PrivateSubText1_GotFocus()Text1="密碼"Text2="用戶名"EndSubPrivateSubText2_GotFocus()Text1=""Text2=""EndSub（三）常用方法

文本框最有用的方法是：SetFocus，使用形式：

[對象.]SetFocus

功能：是把光標移到指定的文本框?qū)ο笾?。PrivateSubText1_GotFocus()Text1="密碼"Text2="用戶名"Text2.SetFocusEndSub（四）示例（密碼輸入）1．主要屬性（1）Caption屬性：顯示的文字（2）Style屬性:按鈕類型

0—Standard標準

1—Graphical圖形（3）Picture屬性：圖形背景（4）ToolTipText：工具提示文字。1.5.3命令按鈕（CommandButton）2．主要事件:單擊事件（Click）例：建立一個類似記事本的程序，如圖

該程序提供兩類操作：

1、剪貼、復(fù)制、粘貼

2、字體、大小的設(shè)置1.5.4綜合應(yīng)用一、界面設(shè)計需要7個對象：1個文本框（TextBox）6個命令按鈕（CommandButton）。默認控件名Caption標題圖片picture說明Command1空白Cut.bmp（style屬性為1）剪切Command2空白Copy.bmp

（style屬性為1）復(fù)制Command3空白paste.bmp

（style屬性為1）粘貼Command4黑體空白字體格式化Command520磅空白字體格式化Command6結(jié)束空白Text1Multiline=trueScrollbars=both存放文本二、屬性設(shè)置DimsAsStringPrivateSubCommand1_Click()s=Text1.SelText復(fù)制EndSubPrivateSubCommand2_Click()Text1.SelText=s黏貼EndSubPrivateSubCommand3_Click()Text1.FontName=“黑體“黑體EndSubPrivateSubCommand4_Click()Text1.FontSize=2020磅EndSubPrivateSubCommand5_Click()s=Text1.SelTextText1.SelText=““剪切EndSubPrivateSubCommand6_Click()EndEndSub三、程序編制本章小結(jié)：VB開發(fā)環(huán)境窗體標簽文本框（TextBox）（重點）命令按鈕（CommandButton）。第二章VB程序設(shè)計基礎(chǔ)1.掌握數(shù)據(jù)類型、變量、常量、運算符和表達式；2.熟悉一些常用函數(shù)；*3.掌握VB基本語句；本章主要內(nèi)容：2.1

數(shù)據(jù)類型一.標準數(shù)據(jù)類型1．?dāng)?shù)值數(shù)據(jù)類型（Numeric）

數(shù)值型數(shù)據(jù)一般分為整型數(shù)和浮點數(shù)兩類。整型數(shù)分為整數(shù)（Integer）和長整數(shù)（Long），浮點數(shù)分為單精度浮點數(shù)（Single）和雙精度浮點數(shù)（Double）。1）整數(shù)（Integer）

整數(shù)是不帶小數(shù)點和指數(shù)符號的數(shù)，在機器內(nèi)部以2字節(jié)二進制碼形式表示。VB中用±n[%]來表示整數(shù)，其中%為整數(shù)的類型符，可以省略。如123、-123%、123%都表示整數(shù)。2）長整數(shù)（Long）整數(shù)的最大值為32767，大于此數(shù)，程序運行時就會因為溢出產(chǎn)生中斷。此時可使用長整數(shù)。長整數(shù)用4字節(jié)二進制數(shù)存儲，可以表示更大的整數(shù)，其取值范圍為-2147483648~2147483647，若超限用浮點型。VB中用±n&來表示長整數(shù)，其中&為長整數(shù)的類型符。如-1234&、987654&都表示長整數(shù)。123,456是非法的。1．?dāng)?shù)值數(shù)據(jù)類型（Numeric）3）浮點數(shù)浮點數(shù)也稱為實型數(shù)或?qū)崝?shù)，由符號、指數(shù)和尾數(shù)組成，分單精度浮點數(shù)（Single）和雙精度浮點數(shù)（Double），其指數(shù)部分分別用“E”（或“e”）和“D”（或“d”）表示。如：123.4345.34!1.234E+3345.34D+3單精度定義的變量占4個字節(jié)，雙精度定義的變量占8個字節(jié)。雙精度能表示的數(shù)更廣，單精度相對較窄。在機器中存儲時用的轉(zhuǎn)換格式不同。1．?dāng)?shù)值數(shù)據(jù)類型（Numeric）4）貨幣型（Currency） 貨幣型屬于定點實數(shù)或整數(shù)，用8位字節(jié)存儲小數(shù)點前有15位，小數(shù)點后有4位，其余的數(shù)字被舍去，其表示形式為在數(shù)字后加上“@”。如123456.7865@5）字節(jié)型（Byte） 字節(jié)型數(shù)據(jù)用1個字節(jié)的無符號二進制數(shù)存儲，取值范圍為0——255。1．?dāng)?shù)值數(shù)據(jù)類型（Numeric）2.字符型數(shù)據(jù)（String）字符型數(shù)據(jù)是指一切可打印的字符和字符串，它是用雙引號括起來的一串字符。如“編輯”，“123”一個西文字符占一個字節(jié)，一個漢字或全角字符占兩個字節(jié)。在VB中有：變長（String）和定長(String*n)字符串。字符串長度:0~231個字符注意：空字符串用""表示，而“

"則表示空格；在字符串中必須用兩個連續(xù)的雙引號來表示字符串有一個雙引號。如字符串：”計算機”，在VB中表示為

"""計算機"""。3.邏輯型數(shù)據(jù)（Boolean）又稱布爾型，只有True和False兩個值。在計算機內(nèi)存中占2字節(jié)，經(jīng)常用來表示邏輯判斷的結(jié)果。當(dāng)把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為邏輯型數(shù)據(jù)時，0會轉(zhuǎn)換為Flase，其它非0值轉(zhuǎn)換為True。反之，當(dāng)把邏輯型數(shù)據(jù)轉(zhuǎn)換為數(shù)值型時，F(xiàn)lase轉(zhuǎn)換為0，True轉(zhuǎn)換為-1。4.日期型數(shù)據(jù)（Date）日期型數(shù)據(jù)按8字節(jié)的浮點數(shù)來存儲，表示的日期從公元100年1月1日~9999年12月31日，時間范圍為0:00:00~23:59:59。任何在字面上可以被認作日期的文本都可以賦值給日期變量，且日期文字必須用符號“#”括起來，如#January15,2002#，#1985-10-19:45:00PM#，

#5/23/2009#都是合法的日期型數(shù)據(jù)。5.變體（Variant）數(shù)據(jù)類型Variant數(shù)據(jù)類型是VB對所有未定義的變量的缺省數(shù)據(jù)類型的定義，又稱為萬用數(shù)據(jù)類型。變體數(shù)據(jù)類型對數(shù)據(jù)的處理完全取決于上下文需要。變體型包括數(shù)值型、日期型、對象型、字符型等數(shù)據(jù)類型。通過VarType（）函數(shù)可以檢測Variant型變量中保存的具體的數(shù)據(jù)類型。一.變量的命名規(guī)則

1.以字母或漢字開頭，后可跟字母、數(shù)字或下劃線組成.2.不能使用VB中的關(guān)鍵字；

3.VB中不區(qū)分變量名的大小寫.4.為了增加程序的可讀性，可在變量名前加一個縮寫的前綴來表明該變量的數(shù)據(jù)類型。例如：strAbc,（字符串變量）

iCount,（整型變量）

dblx,（雙精度變量）

sYz

（單精度變量）2.2變量和常量2.2.1變量二.變量聲明（1）用Dim語句顯式聲明變量語法為：Dim變量名[As類型]

例如：DimaAsInteger等價于Dima%

DimbAsSingle等價于Dimb!Dima,b,casinteger——只有c是整型，a,b為變體型。變量的默認初值:數(shù)值型(0),string("“),Boolean(False),Date(0/0/0)定長字符串：DimSasString*10，多截少補（右側(cè)空格）。其他聲明方式：Static、Public、Private（6.5節(jié)）（2）隱式聲明VB允許對變量不加聲明而直接使用，稱為隱式聲明。此時變量類型為變體類型。對初學(xué)者，建議對變量顯式聲明；或在通用聲明段使用”O(jiān)ptionExplicit”強制顯式聲明二.變量聲明2.2常量和變量2.2.2常量在程序運行過程中，其值不能被改變的量稱為常量。在VB中有三類常量：普通常量符號常量系統(tǒng)常量。一、普通常量

1．

整型常量（1）整型（Integer）：表示-32768至32767之間的整數(shù)例如：1011