關于VB程序設計內容提要

1、關于VB程序設計內容提要基本內容：基本內容：一、一、VBVB程序設計的基本概念程序設計的基本概念二、用戶界面設計二、用戶界面設計三、程序設計的基本方法三、程序設計的基本方法4/17/20222一、一、VB程序設計的基本概念程序設計的基本概念1 1、工程文件的組成、工程文件的組成2 2、幾個術語的含義、幾個術語的含義3 3、程序設計的四種狀態(tài)、程序設計的四種狀態(tài)4 4、窗體的生命周期、窗體的生命周期4/17/202231、工程文件的組成、工程文件的組成 一個工程文件，就是一個應用程序。它的基本結構是： 由一個工程文件（一個工程文件（.vbp）、一個或多個窗體）、一個或多個窗體文件（文件（.frm

2、）、）、0個或多個模塊文件（個或多個模塊文件（.bas）組成。 工程文件可生成可執(zhí)行程序（.exe）。4/17/202242、幾個術語的含義、幾個術語的含義 類：類：具有特定功能而且是被預先定義好的程序單元，這些程序單元已經被封裝起來，用戶只能使用它，但不能顯示和修改它。 對象：對象：對象是類的例化，或稱實例。 方法：方法：由系統定義且能自行完成某種特定任務的操作。 事件：事件：事件是能夠被對象響應和識別的動作及其過程，事件可以由系統自行觸發(fā)，也可以由用戶操作觸發(fā)。注注意：意：VB只有在響應事件時，才能執(zhí)行程序。 屬性：屬性：表示對象外觀的特征。 4/17/202253、程序設計的四種狀態(tài)、程

3、序設計的四種狀態(tài) 編輯狀態(tài)：編輯狀態(tài)：界面設計、編寫代碼 運行狀態(tài)：運行狀態(tài)：運行程序并顯示結果 調試狀態(tài)：調試狀態(tài)：程序運行出錯，即進入調試狀態(tài)。 終止狀態(tài)：終止狀態(tài)：結束程序運行，返回編輯狀態(tài) 4/17/202264、窗體的生命周期、窗體的生命周期 窗體從開始顯示到最后關閉稱為一個生命周期。4/17/20227二、用戶界面設計二、用戶界面設計1 1、窗體、窗體2 2、基本工具、基本工具3 3、對象的三要素、對象的三要素4 4、擴展工具、擴展工具5 5、菜單設計、菜單設計4/17/202281、窗體（、窗體（Form） （1）單個窗體操作 （2）多個窗體操作： 添加新窗體添加新窗體：執(zhí)行“工

4、程工程/添加窗體添加窗體”命令。 設置啟動窗體設置啟動窗體：執(zhí)行“工程工程/工程屬性工程屬性”命令。 打開新窗體：打開新窗體：窗體名.Show 隱藏窗體：隱藏窗體：窗體名.Hide 卸載當前窗體：卸載當前窗體：Unload Me 卸載所有窗體：卸載所有窗體：執(zhí)行End語句4/17/202292 2、基本工具、基本工具中文名中文名英文名英文名（工具箱）（工具箱）默認名（默認名（屬性窗口屬性窗口）1 命令按鈕 CommandButton CommandX2 標簽 Label LabelX3 文本框 TextBox TextX4 框架 Frame FrameX5 單選鈕 OptionButton O

5、ptionX6 多選框 CheckBox CheckX7 計時器 Timer TimerX8 圖片框 PictureBox PictureX4/17/202210 中文名中文名英文名英文名（工具箱）（工具箱）默認名默認名（屬性窗口）（屬性窗口）9 圖象框 Image ImageX10 形狀 Shape ShapeX11 直線 Line LineX12 列表框 ListBox ListX13 組合框 ComboBox ComboX14 垂直滾動條 VScrollBar VScrollBarX15 水平滾動條 HScrollBar HScrollBarX16 驅動器列表框 DriveListBox

6、 DriveX17 目錄列表框 DirListBox DirX18 文件列表框 FileListBox FileX4/17/202211關于對象名的幾點注意：關于對象名的幾點注意： 在程序代碼中，只能使用屬性窗口中的名稱；在程序代碼中，只能使用屬性窗口中的名稱； 為了閱讀方便，常將屬性窗口的默認名修改成自定義名為了閱讀方便，常將屬性窗口的默認名修改成自定義名稱。修改的方法是：稱。修改的方法是：對象縮寫對象縮寫+ +描述字符描述字符。例如：。例如： frmLoingfrmLoing、cmdRuncmdRun、lblText1lblText1、picCopypicCopy、OptFontOptFo

7、nt等。等。 在程序中使用對象名時，不要與在程序中使用對象名時，不要與CaptionCaption的屬性值混淆起來，的屬性值混淆起來，盡管默認名與盡管默認名與CaptionCaption的屬性值有時是相同的。的屬性值有時是相同的。4/17/2022123、對象的三要素、對象的三要素（1）屬性）屬性（2）事件）事件（3）方法）方法4/17/202213（1）屬性）屬性 屬性的基本作用：屬性的基本作用： 屬性的設置方法：屬性的設置方法： 注意一些基本屬性：注意一些基本屬性： 利用屬性設置建立驅動器列表框、利用屬性設置建立驅動器列表框、目錄列表框和文件列表框之間的聯系目錄列表框和文件列表框之間的聯系

8、4/17/202214 屬性的作用：屬性的作用： 描述對象的外觀特性； 屬性的設置方法：屬性的設置方法： 只能在屬性窗口設置只能在屬性窗口設置: （凡只讀屬性，如Name、文本框中的MultiLine、ScrollBars和PasswordChar、窗體的BorderStyle等）； 只能在程序代碼中設置：只能在程序代碼中設置： （如CurrentX和CurrentY、驅動器列表框的Drive（程序運行時，單擊驅動器圖標后自動設置）、目錄列表框的Path（雙擊目錄圖標后自動設置）、通用對話框中的大部分屬性等）；4/17/202215 在程序中設置屬性的格式是：對象名對象名.屬性名屬性名=屬性值

9、屬性值 在設計和運行兩種狀態(tài)都能設置：在設計和運行兩種狀態(tài)都能設置： （大部分屬性既可在屬性窗口，也可在程序代碼中設置）； 由系統自動設置：由系統自動設置： （ DriveX中的List：創(chuàng)建驅動器列表框后系統自動將所有盤符加載到驅動器的列表中，與列表框和組合框的List屬性不同）4/17/202216 注意一些基本屬性：注意一些基本屬性：共有屬性共有屬性：Name（名稱）、EnabledEnabled（可用）、Visible（可見；時鐘、通用對話框除外）、font屬性、Color屬性等；特點屬性特點屬性，例如： Caption（文本框、圖片框、圖像框、列表框、組合框、形狀、直線等不支持）；

10、Text（只有文本框、列表框、組合框支持）； Value（只有單選鈕（true、false）、多選框（0、1、2）和滾動條（界于min、max間）支持）4/17/202217 Interval（只有時鐘支持）； Autosize（只有圖片框支持，為True時可調整框的大小顯示全圖）； Stretch（只有圖象框支持，為false時可調整框的大小顯示全圖； 為True時可縮放圖形大小以適應圖象框的大小）； List（列表框、組合框支持和驅動器列表框支持，其含義后者與前兩者有區(qū)別）； ListIndex（只有列表框支持，指定表中數據項的索引值，從0開始編號）； Shape（只有形狀控件支持，屬性值

11、0、1、2、3、4、5分別表示矩形、正方形、橢圓、正圓、圓角矩形和圓角正方形）4/17/202218 利用屬性設置建立驅動器列表框、目錄列表框利用屬性設置建立驅動器列表框、目錄列表框和文件列表框之間的聯系和文件列表框之間的聯系 驅動器列表框與目錄列表框建立聯系： Private sub drive1_change() dir1.path=Drive1.Drive End sub 目錄列表框與文件列表框建立聯系： Private sub Dir1_change() File1.Path = Dir1.Path End sub4/17/202219（2）事件）事件 事件的作用及其驅動事件的作用及其

12、驅動 事件的基本類型事件的基本類型 注意一些事件的支持范圍注意一些事件的支持范圍4/17/202220事件的作用及其驅動事件的作用及其驅動 事件的作用：事件驅動是事件驅動是VBVB程序執(zhí)行的必備條件。程序執(zhí)行的必備條件。 事件驅動（觸發(fā)）的形式： 系統自動觸發(fā)：系統自動觸發(fā)： 如Initialize、Load、Paint、Activate等 用戶操作觸發(fā)：用戶操作觸發(fā)： 如Click、Dblclick、MouseDown、KeyPress等 程序調用方法而觸發(fā)：程序調用方法而觸發(fā)： 如調用窗體Unload方法而自動驅動Unload事件等。4/17/202221 事件的基本類型：事件的基本類型：

13、 常用事件常用事件 鼠標事件鼠標事件 鍵盤事件鍵盤事件 功能事件功能事件4/17/202222 常用事件：常用事件： Click、Dblclick； 鼠標事件：鼠標事件： MouseDown、MouseUp、MouseMove； 鍵盤事件：鍵盤事件： KeyPress、KeyDown、KeyUp； （關于鼠標事件鼠標事件和鍵盤事件鍵盤事件的含義和用法見后述的事件過程。）4/17/202223 功能事件：功能事件： Initialize （Private sub Form_Initialize()End Sub） Load （Private sub Form_Load()End Sub） Pai

14、nt、Activate、Scroll、Change、 Timer、 GotFocus、LostFocus等 （ Private sub Form_Paint()End Sub 窗體移動和變化自動觸發(fā)） （ Private sub HScroll1_Scroll()End Sub 拖動滾動條滑動塊觸發(fā)）4/17/202224 （ Private sub HScroll1_Change()End Sub 單擊滾動條箭頭或區(qū)域時觸發(fā) ） （ Private sub Drive1_Change()End Sub選擇（單擊或賦值）新驅動器時觸發(fā)） （ Private sub Dir1_Change()E

15、nd Sub選擇（雙擊或賦值）新目錄時觸發(fā)） （ Private sub Text1_Change()End Sub向文本框中輸入一個字符就觸發(fā)一次 ） （ Private sub Timer1_Timer()End Sub在一定的時間間隔內定時觸發(fā) ）4/17/202225注意一些事件的支持范圍：注意一些事件的支持范圍： 每個控件支持的事件各不相同，例如： Click()、dblclick()幾乎所有對象都支持，但時鐘、驅動器列表框和目錄列表框卻不支持； 時鐘只支持Timer()事件，驅動器列表框和目錄列表框只支持Change()事件； 滾動條只支持Scroll()和Change()兩個事件

16、； 也有不支持任何事件的：形狀、直線、框架、通用對話框等。4/17/202226（3）方法 方法的作用方法的作用 使用方法的基本格式使用方法的基本格式 方法的類型方法的類型4/17/202227 方法的作用：方法的作用： 在事件驅動下完成某個特定的功能。 使用方法的基本格式：使用方法的基本格式： 對象名對象名.方法名方法名 方法的類型：方法的類型： 用于顯示和關閉：用于顯示和關閉： Show（窗體，格式：Form1.Show ） Print（窗體、圖片框、打印機） 格式：對象名.Print 表達式 Hide（窗體，格式：Form1.Hide） Unload（窗體,格式： Unload Me）

17、End（窗體）4/17/202228 用于添加和刪除：用于添加和刪除： AddItem（列表框、組合框） 格式：對象名.AddItem item,索引值 RemoveItem（列表框、組合框） 格式：對象名. RemoveItem 索引值 Clear（列表框、組合框） 格式：對象名. Clear Cls（窗體、圖片框） 格式：對象名.Cls Refresh（窗體） 格式：Form1. Refresh4/17/202229 用于快捷菜單設計：用于快捷菜單設計： PopupMenu（用法見后述的菜單設計） 用于圖形設計：用于圖形設計： PaintPicture（圖片框、圖象框） 格式：對象名. P

18、aintPicture Picture,destx,desty,destWidth,destHeight,srcx,srcy,srcWidth,srcHeight,Opcode 功能：將一個圖片框或圖象框的圖形（Picture）畫到另一個圖片框或圖象框（對象名）中。 圖形的加載和刪除是通過函數LoadPicture()函數實現的，用法見函數部分。4/17/202230 用于獲得焦點（控制權）用于獲得焦點（控制權）： SetFocus（除Frame、Label、Menu、Shape、Image、Timer外） 格式：對象名. SetFocus 不支持任何方法：不支持任何方法： Frame、Tim

19、er、Vscroll、Hscroll等控件。4/17/2022314 4、擴展工具、擴展工具: :通用對話框通用對話框 （1）添加對象： 執(zhí)行“工程工程/部件部件/控件控件/Microsoft Common Dialog Control6.0”命令后將對象添加到窗體上。 （2）創(chuàng)建通用對話框： 通過通用對話框對象CommonDirlogX調用相應的方法實現，（方法如下表），例如： CommonDialog1.ShowOpen 通過設置CommonDirlogX的屬性Action的屬性值實現，(屬性值如下表),例如： CommonDialog1.Action=14/17/202232屬性和方法對

20、應表：4/17/202233 注意：注意：（1）打開文件對話框的文件過濾器（Filter屬性）用法： CommonDialog1.Filter= “文本文件（文本文件（.txt）| *.txt|文檔文件文檔文件（*.doc）|*.doc” CommonDialog1.FilterIndex=2 （2） Filter屬性與文件列表框的Pattern屬性的區(qū)別： File1.Pattern=文件類型描述文件類型描述 文件類型描述可以是：“*.exe”、”*.doc”、”*.*”等。4/17/2022345、菜單設計、菜單設計 菜單設計工具：菜單設計工具：“工具工具/菜單編輯器菜單編輯器” 下拉菜單

21、設計： 快捷菜單設計：4/17/2022354/17/2022364/17/202237三、程序設計的基本方法三、程序設計的基本方法 1 1、基本語法、基本語法2 2、基本結構、基本結構4/17/2022381 1、基本語法、基本語法（1 1）關鍵字、變量和常量）關鍵字、變量和常量（2 2）表達式）表達式（3 3）語句）語句（4 4）函數）函數4/17/202239（1）關鍵字、變量和常量）關鍵字、變量和常量 關鍵字關鍵字（保留字保留字）： 由系統定義，具有特定功能，用戶不能修改，如private、dim等。 變量：變量： 、變量的含義、變量的含義：暫存數據的地方，實際上就是內存單元。4/17

22、/202240、變量的類型：、變量的類型： 從作用范圍分： 全局變量全局變量：使用Public在“通用通用/ /聲明聲明”段或在標準模塊（Module）中定義的變量。 窗體變量窗體變量：在窗體“通用通用/ /聲明聲明”段定義的變量。 局部變量局部變量：在過程中定義的變量。 從運行結果的變與不變角度分： 動態(tài)變量動態(tài)變量：使用Dim定義的變量。 靜態(tài)變量靜態(tài)變量：使用Static定義的變量。 兩者區(qū)別兩者區(qū)別：前者在程序執(zhí)行時，只要離開程序該變量將被初始化；而后者只要沒有離開本窗體，其變量的值將被保留。4/17/202241 從變量存放數據的類型分： 整型（整型（Integer）、長整型（）、長

23、整型（long）、）、單精度（單精度（single）、雙精度（）、雙精度（Double）、）、貨幣型（貨幣型（Currency）、字符串型（）、字符串型（String）等； 也可在變量后面直接加上類型符號表示上述類型：%（整型）、（整型）、&（長整型）、（長整型）、!（單精度）、（單精度）、#（雙精度）、（雙精度）、（貨幣）、（貨幣）、$（字符串型）（字符串型）等。4/17/202242、變量的聲明和使用：、變量的聲明和使用： 聲明方法：顯式聲明：使用顯式聲明：使用DimDim、StaticStatic、PublicPublic等進行。等進行。隱式聲明：不聲明而直接使用；概以隱式聲明：

24、不聲明而直接使用；概以VariantVariant變變體類型處理。體類型處理。強制聲明：在強制聲明：在“通用通用/ /聲明聲明”段使用段使用Option Option ExplicitExplicit語句。語句。 變量使用： 命名要正確；一般先聲明后使用；命名要正確；一般先聲明后使用； 局部變量在過程中不能同名，但可以與窗體變量局部變量在過程中不能同名，但可以與窗體變量和全局變量同名。引用時首先應用作用范圍最小和全局變量同名。引用時首先應用作用范圍最小的變量。的變量。 4/17/202243 常量：常量： 程序運行中不變的量，命名規(guī)則、類型表示與變量基本相同，但聲明的關鍵字是用“const”。

25、4/17/202244（2）表達式 由變量、常量和關系運算符組合形成的式子。表達式不能單獨形成語句，通常用在賦值語句和選擇語句中。 關系運算符及其優(yōu)先級別（由上到下，從高到低；括號中未說明者由左至右，從高到低）： 括號（）括號（） 算術運算符（算術運算符（ 、- -、* */ /、 、modmod、+-+-） 字符串連接運算符（字符串連接運算符（+ +、& &相同）相同） 關系運算符（關系運算符（= =、 、=、 、= = 相同）相同） 邏輯運算符（邏輯運算符（notnot、andand、oror）4/17/202245（3）語句語句 非執(zhí)行語句：非執(zhí)行語句： 注釋語句：以單引

26、號“”開頭，或用關鍵字“Rem” 開頭的文字說明。 聲明語句：聲明語句：以關鍵字“Dim”等開頭對變量、常量、數組等定義數據類型。 4/17/202246 可執(zhí)行語句：可執(zhí)行語句： 賦值語句賦值語句：賦值號左邊必須是變量名、常量名和數組元素名等。 選擇語句選擇語句：ifthen語句和Case語句等多種形式。 循環(huán)語句循環(huán)語句：while語句、do語句和for語句等。其它功能語句：其它功能語句：如Call語句、Exit For等。 4/17/202247（4）函數 函數分內部函數和外部（自定義函數）兩大類，后者即函數過程，其使用見后。 標準函數標準函數 輸入函數輸入函數 輸出函數輸出函數 圖形加

27、載函數圖形加載函數4/17/202248標準函數標準函數 標準函數由系統定義，用戶只能使用，不能修改： 數值函數數值函數：求方根函數、三角函數、指數函數、符 號 函 數 （ S g n ( n u m b e r ) ） 、 取 整 函 數（Int(unmber)）和隨機函數（Rnd(number)）4/17/202249 字符串函數字符串函數：大小寫函數（UCase、LCase）、取字符函數（Left(string,length)、Right(string,length)、Mid(string,start,length)）、長度函數（Len(string)）和空格函數（Space(numbe

28、r)）等。 日期函數日期函數：Now、Date、Time、Year(date)等 類型轉換函數類型轉換函數：Val(n)函數、Str(n)函數等4/17/202250輸入函數（輸入函數（ InputBox ） 格式： 變量名變量名=InputBox(prompt, title , =InputBox(prompt, title , default , xpos , ypos , default , xpos , ypos , helpfile, context)helpfile, context) 注意：注意： 每執(zhí)行一次每執(zhí)行一次InputBox函數只能輸入一個值，如果需要函數只能輸入一個值

29、，如果需要輸入多個值，只能多次調用此函數。輸入多個值，只能多次調用此函數。 4/17/202251 輸出函數（輸出函數（MsgBox） 格式： 變量名變量名=MsgBox(prompt, type , =MsgBox(prompt, type , title , helpfile, context)title , helpfile, context) 注意：注意： type值，既可用系統常數，也可以寫成它所對應 的數值形式的和數形式。 例如： vbYesNo + vbQuestion就可以寫成： 4+32 或直接寫成364/17/202252 Type:VBQuestiontitlepromp

30、t返 回 值返 回 值=7返 回 值返 回 值=6，且，且為 缺 省為 缺 省按鈕按鈕Type:VbYesNo4/17/202253圖形加載和刪除函數圖形加載和刪除函數 圖形的加載：圖形的加載： 對象名對象名.Picture=LoadPicture(“.Picture=LoadPicture(“圖形文件圖形文件標識符標識符”) ) 注意：文件名標識符必須包括盤符和文件擴展名。 對象名為PictureBox或Image。 圖形的刪除：圖形的刪除： 對象名對象名.Picture=LoadPicture().Picture=LoadPicture()4/17/2022542、基本結構、基本結構（1

31、1）順序結構）順序結構（2 2）分支結構）分支結構（3 3）循環(huán)結構）循環(huán)結構（4 4）數組結構）數組結構（5 5）模塊結構（過程）模塊結構（過程）4/17/202255（1）順序結構）順序結構 從上到下，逐條執(zhí)行； 上面語句執(zhí)行的結果，是下面語句執(zhí)行的條件。4/17/202256（2）分支結構）分支結構 有三種語句： 函數函數IIF語句：語句： 變量名變量名=IIf=IIf（條件表達式，值（條件表達式，值1 1，值，值2 2） If 語句語句 Case語句語句4/17/202257 If 語句（語句（4種形式）：種形式）：.If If 條件表達式條件表達式 Then Then 語句語句（必須

32、寫在一行） .If If 條件表達式條件表達式 ThenThen . . If If 條件表達式條件表達式 thenthen 語句語句1 1 語句塊語句塊1 1 語句語句2 Else2 Else 語句塊語句塊2 2 語句語句n End ifn End if End If End If4/17/202258 . If If 條件表達式條件表達式1 Then 1 Then 語句塊語句塊11 ElseIf ElseIf 條件表達式條件表達式2 Then 2 Then 語句塊語句塊2 2 Else Else 語句塊語句塊n+1n+1 End If End If4/17/202259 Select Ca

33、se語句：語句： Select Case Select Case 測試表達式測試表達式 Case Case 表達式值表達式值1 1 語句塊語句塊1 1 Case Case表達式值表達式值2 2 語句塊語句塊2 2 . . Case Else Case Else 語句塊語句塊n+1n+1 End Select End Select4/17/202260（3）循環(huán)結構，有三種形式：）循環(huán)結構，有三種形式： while語句（當循環(huán)）： While While Wend Wend for語句（ For循環(huán)）： ForFor=初值初值To To Step Step 循環(huán)體循環(huán)體 Next Next4/1

34、7/202261 do語句（ Do循環(huán)），四種格式：Do While Do While Do Do Loop Loop whileLoop Loop while Do Until Do Until Do Do Loop Loop Until Loop Loop Until 4/17/202262四種四種DODO循環(huán)區(qū)別：循環(huán)區(qū)別： Do WhileLoopDo WhileLoop和和Do UntilLoopDo UntilLoop循環(huán)循環(huán)是先判斷條件，后執(zhí)行循環(huán)體；而是先判斷條件，后執(zhí)行循環(huán)體；而DoLoop WhileDoLoop While和和DoLoop UntilDoLoop Unti

35、l循環(huán)循環(huán)是先執(zhí)行循環(huán)體，后判斷條件。是先執(zhí)行循環(huán)體，后判斷條件。 Do WhileDo While循環(huán)（兩種形式）是當條件為循環(huán)（兩種形式）是當條件為truetrue時執(zhí)行循環(huán)體，而時執(zhí)行循環(huán)體，而Do UntilDo Until循環(huán)循環(huán)（兩種形式）則是當條件為（兩種形式）則是當條件為falsefalse時才執(zhí)時才執(zhí)行循環(huán)體。行循環(huán)體。4/17/202263非正常退出循環(huán)：非正常退出循環(huán)： 無條件退出：Exit Do、Exit For 按條件退出：if then Exit Do if then Exit For4/17/202264（4）數組結構）數組結構 從使用角度看，主要有從使用角度看，

36、主要有4種類型數組：種類型數組：一維數組一維數組二維數組二維數組動態(tài)數組動態(tài)數組控件數組控件數組 4/17/202265一維數組一維數組 基本格式：基本格式： Dim Dim 數組名數組名( (索引值索引值) As ) As 數組類型數組類型 Dim Dim 數組名數組名( (下限值下限值 to to 上限值上限值) As ) As 數數組類型組類型4/17/202266二維數組二維數組 基本格式： Dim Dim 數組名（索引值數組名（索引值1 1，索引值，索引值2 2） As As 數據類型數據類型 Dim Dim 數組名（下限值數組名（下限值1 To 1 To 上限值上限值1 1，下，下

37、限值限值2 To 2 To 上限值上限值2 2） As As 數據類型數據類型4/17/202267注意：注意： 數組必須先定義，后使用；且數組名不能與數組必須先定義，后使用；且數組名不能與變量名同名。變量名同名。 索引值（含上下限值）必須是一個常數或常索引值（含上下限值）必須是一個常數或常數表達式。數表達式。 若不指定下限值時，索引值從若不指定下限值時，索引值從0 0開始計算；開始計算；若指定下限值，則索引值可正可負，但下限若指定下限值，則索引值可正可負，但下限必須小于上限。必須小于上限。4/17/202268 可以使用可以使用“Option Base 1”O(jiān)ption Base 1”語句，

38、強制語句，強制索引值從索引值從1 1開始計算。該語句需在開始計算。該語句需在“通用通用/ /聲明聲明”段設置。段設置。 在對數組進行操作時，可使用函數在對數組進行操作時，可使用函數“Array()”Array()”，實現對數組進行快速賦值，實現對數組進行快速賦值運算。運算。4/17/202269動態(tài)數組動態(tài)數組： 分兩步進行： 第一步：第一步：先定義一個不含索引的數組： Dim Dim 數組名數組名() As () As 數據類型數據類型 第二步：第二步：在對數組操作時，再用ReDim語句對數組分配實際的索引大?。篟eDim ReDim 數組名數組名( (索引大小索引大小) As ) As 數

39、據類型數據類型4/17/202270刷新動態(tài)數組：刷新動態(tài)數組： 刷新格式： Erase Erase 數組名數組名 注意：注意：刷新的數組要繼續(xù)使用,必須重新定義,否則出錯。 靜態(tài)數組：靜態(tài)數組： 指用Static定義（聲明）的數組定義（聲明）的數組，其保存數據的功能與靜態(tài)變量相同 4/17/202271控件數組：控件數組： 創(chuàng)建方法：創(chuàng)建方法： 采用“復制/粘貼”方法或在屬性窗口修改名稱方法。 基本特征：基本特征： 數組內所有控件同名； 雙擊任何一個控件數組即可進入代碼窗口； 使用方法：使用方法：根據不同索引index（0，1，2.）值區(qū)別不同的控件。 4/17/202272（5）模塊結構（

40、過程）模塊結構（過程） VB程序通常由一個或多個模塊組成，一個模塊就是一個過程。 過程有兩種情況：事件過程（過程名由系統生成）事件過程（過程名由系統生成）自定義過程（過程名由用戶命名）自定義過程（過程名由用戶命名）4/17/202273 事件過程事件過程 有四種類型的事件過程： 、基本事件過程、基本事件過程（如click、Dblclick）： Private sub Private sub 對象名對象名_click()_click() End sub End sub4/17/202274 、鼠標事件過程、鼠標事件過程（如MouseMove、MouseDown、MouseUp）： Private

41、 sub Private sub 對象名對象名_MouseDown(Button _MouseDown(Button as integer shift)as integer shift) End sub End sub MouseMove、 MouseUp的語法格式與MouseDown完全相同。4/17/202275 參數Button是表示按下或松開哪個按鈕，其含義(表2-9)是： Button=0 Button=0 （未按下鼠標）（未按下鼠標） Button=1 Button=1 （按下左鍵）（按下左鍵） Button=2 Button=2 （按下右鍵）（按下右鍵） Button=4 But

42、ton=4 （按下中間鍵）（按下中間鍵） 與click事件區(qū)別：MouseDownMouseDown可識別鼠標左右鍵可識別鼠標左右鍵。4/17/202276 、鍵盤事件過程、鍵盤事件過程（KeyPress、KeyDown、KeyUp）： Private sub Private sub 對象名對象名_KeyPress(keyAscii _KeyPress(keyAscii as integer)as integer) End sub End sub Private sub Private sub 對象名對象名_KeyDown(keyCode _KeyDown(keyCode as integer

43、as integer，shift as integer)shift as integer) End sub End sub4/17/202277說明： KeyUpKeyUp的語法格式與的語法格式與KeyDownKeyDown完全相同。完全相同。 KeyPressKeyPress事件：按下事件：按下AsciiAscii鍵即觸發(fā)，這鍵即觸發(fā)，這時參數時參數KeyAsciiKeyAscii即得到按下鍵的即得到按下鍵的AsciiAscii值。值。 KeyDown/ KeyUpKeyDown/ KeyUp事件：按下或松開任意事件：按下或松開任意鍵時即觸發(fā)，這時參數鍵時即觸發(fā)，這時參數KeyCodeKey

44、Code即得到按即得到按下鍵的鍵值：如果是字母鍵，則該鍵的鍵下鍵的鍵值：如果是字母鍵，則該鍵的鍵值是該字母大寫的值是該字母大寫的AsciiAscii值；如果是其他值；如果是其他鍵，則他的鍵值就是該鍵的鍵，則他的鍵值就是該鍵的 AsciiAscii值。值。 參數參數shiftshift用于是否同時按下其它功能鍵用于是否同時按下其它功能鍵（表（表2-82-8）。）。4/17/202278 、其它功能的事件過程其它功能的事件過程（如Load、Paint、Activate、Change、Timer等）： Private sub Form_load() End sub Private sub Form_Paint() Text1.SetFocus End sub4/17/202279 Private sub Dir1_change() File1.path=Dir1.path End sub Private sub Vscrol