【文章內(nèi)容簡介】 屬性為“信息窗口”，其他屬性項(xiàng)都使用系統(tǒng)的隱含值。 ●文本框?qū)傩裕? Name屬性仍使用“ Textl”，將 Text屬性設(shè)為空格。注意的是，文本框控件沒有 caption屬性項(xiàng)。其他屬性項(xiàng)都使用系統(tǒng)的隱含值。 ●命令按鈕屬性：將命令按鈕的 Name屬性分別設(shè)置為“ Command 1”、“ Command 2”、 … 、 “ Command5”。將caption屬性分別設(shè)置為“信息 1”、“信息 2”、“信息 3”、“清除”和“退出”。其他屬性項(xiàng)都使用系統(tǒng)的隱含值。 設(shè)置屬性的步驟是：如果屬性窗口已經(jīng)顯示在編輯窗口上，這時(shí)只要選擇控件，屬性窗口標(biāo)題欄下面的列表框會(huì)顯示該控件的名稱，如圖 215所示：如果屬性窗口沒有顯示在編輯窗口上，這時(shí)要先選擇控件，然后打開屬性窗口。打開屬性窗口最簡便的方法是單擊工具欄的“屬性窗口”按鈕。 在屬性窗口中選擇屬性項(xiàng) (呈反顯 )，在右邊一列輸入屬性值。 62 4．編寫代碼 編寫程序代碼主要考慮兩個(gè)問題：哪一個(gè)對(duì)象觸發(fā)什么事件；所觸發(fā)的事件執(zhí)行什么操作。 窗體：可以不觸發(fā)任何事件。也可以使窗體觸發(fā)一個(gè) Click事件，當(dāng)單擊窗體時(shí)，結(jié)束程序運(yùn)行。 文本框：程序中，文本框只是為了顯示信息，所以也不使文本框控件觸發(fā)任何事件。 命令按鈕：當(dāng)用戶選中某一個(gè)命令按鈕時(shí)，都要完成一個(gè)操作，這里分別是“顯示信息”、“清除”和“結(jié)束運(yùn)行”。所以給每一個(gè)命令按鈕定義一個(gè)Click事件，當(dāng)用戶單擊命令按鈕時(shí)，完成相應(yīng)的操作。 直接雙擊控件，可以打開該控件的“代碼窗口”。也可以單擊工具欄上的“代碼窗口”按鈕，或選擇“視圖”菜單中的“代碼窗口”命令，或選擇右擊快捷菜單中的“查看代碼”命令，都可以打開“代碼窗口”。 63 編寫程序代碼如下： Private Sub Commandl_Click() Textl． Text=″可視化編程方法 ″ EndSub Private Sub Command2_Click() Textl． Text=″面向?qū)ο蟪绦蛟O(shè)計(jì) ″ EndSub Private Sub Command3_C1ick() Textl． Text=″事件驅(qū)動(dòng)編程機(jī)制 ″ End Sub Private Sub Command4_Click() Textl． Text=″″ End Sub Private Sub Command5_Click() End End Sub 64 ? 5．運(yùn)行程序 單擊工具欄上的運(yùn)行按鈕，程序便開始運(yùn)行。若出現(xiàn)錯(cuò)誤，可以單擊工具欄上的結(jié)束按鈕，回到代碼窗口修改程序，然后再運(yùn)行，直至程序運(yùn)行正確。 216 單擊“信息 2”按鈕時(shí)程序運(yùn)行結(jié)果 65 ? 6．保存程序 ? 在磁盤上新建一個(gè)文件夾 example，使用“文件”菜單下的“保存工程”命令，先保存窗體文件（取名為 myfile． Frm）到example文件夾中，再保存工程文件（取名為 ）到 example文件夾中。 66 第三章 窗體和基本控件 主要內(nèi)容： ? 窗體的設(shè)計(jì) ? 命令按鈕控件的屬性和事件 ? 標(biāo)簽控件的屬性 文本框控件的屬性 67 3． 1窗體設(shè)計(jì) ? 窗體由五部分組成 (1)標(biāo)題欄 (2)控制框 (3)控制按鈕 (4)工作區(qū) (5)邊界 68 ? 3． 1． 1建立窗體 ①選擇“工程”下拉菜單中的“添加窗體”選項(xiàng)，打開“添加窗體”對(duì)話框，如圖所示。 69 ② “新建”選項(xiàng)卡用于創(chuàng)建一個(gè)新窗體，對(duì)話框的列表框中列出了各種窗體的類型，選中“窗體”選項(xiàng)用于建立一個(gè)空白新窗體，選擇其他選項(xiàng)則建立一個(gè)預(yù)定義了某些功能的窗體。 ③單擊“打開”按鈕，一個(gè)新窗體被加入到當(dāng)前工程中，如圖所示。 70 ? 3． 1． 2窗體屬性 窗體屬性主要有如下幾類：縮放、外觀、位置、行為、字體、雜項(xiàng)以及 DDL(動(dòng)態(tài)鏈接 )等，約有 50多個(gè)。對(duì)象的每一個(gè)屬性系統(tǒng)都預(yù)先給定一個(gè)隱含值，但用戶可根據(jù)需要修改它們。 71 常用的屬性 ? 1． Name屬性 Name屬性用來設(shè)置窗體的名稱 ， 窗體名稱用于標(biāo)識(shí)窗體 。 一個(gè)窗體必須有一個(gè)名稱 ， 在程序中對(duì)窗體的操作語句都要使用窗體名稱 ， 以便告訴系統(tǒng)操作語句是針對(duì)哪一個(gè)窗體的 。 72 ? 2． Caption屬性 Caption屬性歸類于外觀 。 Caption屬性設(shè)置窗體的標(biāo)題 ， 是用來顯示在窗體標(biāo)題欄上的標(biāo)題 ， 它是為了讓用戶識(shí)別窗體的 。 73 ? 3． BackColor屬性 BackColor屬性用來設(shè)置窗體的背景顏色。屬性值是一個(gè)十六進(jìn)制常量，每種顏色對(duì)應(yīng)一個(gè)常量。系統(tǒng)隱含窗體背景顏色為灰色。 74 ? 4． AutoRedraw屬性 AutoRedraw屬性用來控制屏幕圖像的重建 ，即設(shè)置窗體是否具有自動(dòng)重畫功能 ， 主要用于多窗體設(shè)計(jì)中 。 75 ? 5． BorderStyle屬性 BorderStyle屬性用來設(shè)置窗體邊界的類型。 ? 6． ControlBox屬性 確定程序運(yùn)行時(shí)是否在窗體中顯示標(biāo)題欄左、右兩側(cè)的控制框。 76 ? 7． Enabled屬性 確定一個(gè)窗體是否能夠?qū)τ脩舢a(chǎn)生的事件做出反應(yīng)。屬性值為邏輯值，即 True或False。 ? 8． Picture屬性 用來在窗體上加載圖形。 77 ? 9． Height和 Width屬性 Height屬性用來設(shè)置窗體的高度， width用來設(shè)置窗體的寬度。 ? 10． Top和 Left屬性 Top屬性用來設(shè)置窗體頂端與顯示屏頂端之間的距離 ， Left用來設(shè)置窗體左端與顯示器左端之間的距離 。 78 ? 11． Font屬性 ， FontName和 FontSize屬性 Font屬性用于在屬性窗口中 ， 設(shè)置窗體在運(yùn)行時(shí)顯示文本所用的字體和字體的大小 。 FontName和 FontSize屬性用于程序代碼中設(shè)置窗體在運(yùn)行時(shí)顯示文本所用的字體和字體的大小 。 79 ? 12． CurrentX和 CurrentY屬性 設(shè)置下一次在窗體上開始打印或繪圖時(shí)的水平坐標(biāo)值和垂直坐標(biāo)值。 ? 13． Visible屬性 控制窗體為可見或不可見 (隱藏 )。 屬性值為邏輯值 ， 即 True或 False。 隱含值為 True。 80 3． 1． 3窗體事件 ? 1． Load事件 ? 2． Unload事件 ? 3． Initialize事件 ? 4． click事件 單擊窗體的空白處 ， 將觸發(fā) Form _ Click事件 ， 稱之為單擊事件 。 81 ? 5． DblClick事件 雙 擊 窗 體 的 空 白 處 ， 將 觸 發(fā) Form _ DblClick事件 ， 稱之為雙擊事件 。 6． Activate(活動(dòng) )， Deactivate(非活動(dòng) )事件 7． Paint(繪畫 )事件 82 3． 1． 4 窗體的方法 1． Move方法 Move方法的格式如下： 對(duì)象名． Move 1eft[,[top][,[width][,height]]] 各參數(shù)作用如下： left：指示對(duì)象左邊的水平坐標(biāo) (x軸 )。 top：可選項(xiàng)，指示對(duì)象頂邊的垂直坐標(biāo) (y軸 )。 width：可選項(xiàng)，指示對(duì)象新的寬度。 height：可選項(xiàng)，指示對(duì)象新的高度。 例如，運(yùn)行時(shí)，單擊窗體 form1，使窗體向右移動(dòng) 100 twip。可以通過如下代碼實(shí)現(xiàn)： Private Sub Labell _click( ) forml． Move forml． Left+100 End Sub 83 ? 2． Cls方法 Cls方法的格式如下： 對(duì)象名 ． Cls 功能：將窗體 、 立即窗口 、 圖片框等內(nèi)部的文本內(nèi)容清楚 。 它默認(rèn)的對(duì)象是窗體 。 84 3． 1． 5向窗體輸出數(shù)據(jù) ? 1． 向窗體輸出數(shù)據(jù)的格式設(shè)置 向窗體輸出數(shù)據(jù)的格式主要通過 Format()函數(shù)確定 ， 其功能是：將數(shù)值型量按指定格式轉(zhuǎn)換為字符串；將序數(shù)值轉(zhuǎn)換成指定格式的日期和時(shí)間 。 85 ? 2． 輸出位置 確定在窗體輸出位置主要通過兩個(gè)系統(tǒng)變量來定位 ， 即 CurrentX和 CurrentY。 它們分別代表當(dāng)前點(diǎn)的 X坐標(biāo)和 Y坐標(biāo) 。 在程序代碼中 ， 分別給 CurrentX 和CurrentY賦值 ， 以定位輸出數(shù)據(jù)的起始位置 。 86 3． 2 命令按鈕控件CommandButton ? 幾乎每一個(gè)對(duì)話框中都有命令按鈕 ， 命令按鈕用來接收用戶的操作信息 ， 觸發(fā)相應(yīng)的事件過程 。 它是用戶與程序交互的最簡便的方法 。 87 3． 2． 1 命令按鈕控件的屬性 ? 命 令 按 鈕 的 名 稱 系 統(tǒng) 隱 含 為 Commandl 、Command2等等 。 ? 命令按鈕常用的屬性有： Name屬性 、 Caption屬性 、 Default屬性 、 Cancel屬性 、 Enabled屬性 。其中 Name屬性是不可缺省的屬性 ， 應(yīng)該在屬性窗口設(shè)置 Name屬性值 。 建議讀者以 “ cmd”開頭的字符串作為命令按鈕的名稱 (如 cmdExit)， 以標(biāo)識(shí)該對(duì)象的類型 。 88 ? 例 3． 6 在窗體上建立三個(gè)按鈕和一個(gè)標(biāo)簽。程序啟動(dòng)時(shí)，只顯示三個(gè)按鈕，單擊“開始”按鈕顯示“歡迎使用 Visual Basic 6． 0”， 單擊“結(jié)束”按鈕顯示“再見”，單擊“清除”按鈕不顯示任何文本。 89 設(shè)計(jì)步驟如下： ①新建一個(gè)工程：選擇“文件”下拉菜單的“新建工程”選項(xiàng)，打開“新建工程”對(duì)話框，選擇“標(biāo)準(zhǔn) EXE”選項(xiàng)后單擊“打開”按鈕。 ②添加控件對(duì)象：在窗體適當(dāng)位置添加三個(gè)按鈕和一個(gè)標(biāo)簽。 ③設(shè)置對(duì)象屬性：打開屬性窗口，分別設(shè)置對(duì)象的屬性如下： 將窗體 Forml的 Caption屬性改為“命令按鈕示例”。將按鈕 mandmand mand3的 Caption屬性分別改為“開始”、“結(jié)束”、“清除”。 將標(biāo)簽Labell的 Caption屬性改為空， Font(字體，字號(hào) )屬性改為“黑體，四號(hào)”。 90 ? ④ 編寫程序代碼： Private Sub Commandl_Click( ) Labell． Caption=″歡迎使用 Visual Basic 6． 0″ End Sub Private Sub Command2_Click() Labell． Caption=″再 見 ″ End Sub Pcivate Sub Command3_Click() Labell． Caption=″″ End sub 91 3． 2． 2 命令按鈕的事件 ? 命令按鈕可以接受許多事件 ， 如：鼠標(biāo)單擊(c1ick)事件 、 鼠標(biāo)按下 (MouseDown)事件 、 鼠標(biāo)抬起 (MouseUp)事件 、 鍵盤按下 (KeyDown)或松開 (KeyUp)事件 （ 其中鼠標(biāo)按下事件 、 鼠標(biāo)抬起事件 、 鍵盤按下或松開事件 ， 我們將在第六章專門介紹 )等 ， 其中最常用的是鼠標(biāo)單擊 (click)事件 ， 當(dāng)在命令按鈕上按下然后釋放鼠標(biāo)左鍵時(shí)發(fā)生 。 在程序中將命令按鈕的 Value屬性設(shè)置為True也會(huì)觸發(fā)該事件 。 92 3． 2． 3 命令按鈕的方法 ? 可以使用 setFocus方法將焦點(diǎn)定位在指定的命令按鈕上 。 使用格式如下： 對(duì)象名 ． SetFocus 93 3． 3標(biāo)簽控件 Label ? 標(biāo)簽控件用于輸出文本 ， 顯示提示信息 ，輸出的文本 、 提示信息不能編輯 、 修改 。所以 Label常用來輸出標(biāo)題 、 顯示處理結(jié)果 、標(biāo)識(shí)窗體上的對(duì)象 ， 或標(biāo)識(shí)那些本身不帶Capaon屬性的控件 ， 如 TextBox控件 。 ? Label控件一般不用來觸發(fā)事件 。 94 3． 3． 1 標(biāo)簽控件的屬性 ? Label控件常用的屬性有： Name屬性 (不可缺省 ) 、 caption 屬性 ( 主要屬性 ) 、Alignment 屬性 、 Autosize