【正文】 ? 5． 創(chuàng)建 ActiveX控件更加輕松方便 ? 用 Visual Basic ActiveX控件 ， 其外觀和行為均和用C語(yǔ)言編寫的控件一樣 ， 可以用在 Visual C++、 Visual Basic、Delphi， 甚至 Word和 Access中 。 Visual Basic ? Visual Basic 開發(fā)環(huán)境 （ IDE） ， 提供了整套工具 ， 方便用戶開發(fā)應(yīng)用程序 。 下面介紹Visual Basic 發(fā)環(huán)境 。 圖 11 Visual Basic 工程類型 Visual Basic ? 使用 Visual Basic 13種類型的應(yīng)用程序 （ 圖中僅看到 10種 ， 通過滾動(dòng)條可看到另外 3種 ） ： ? 在圖 11的窗口中有 3個(gè)選項(xiàng)卡： ? (1) 新建：這個(gè)選項(xiàng)卡中列出了 11種可生成的工程類型 。 ? (3) 最新：這個(gè)選項(xiàng)卡中列出了最近使用過的工程 ， 用戶可以選擇和打開一個(gè)需要的工程 。 Visual Basic 圖 12 Visual Basic 菜單欄 工具欄 標(biāo)題欄 工具箱 工程管理窗口 屬性窗口 布局窗口 立即窗口 窗體設(shè)計(jì)窗口 Visual Basic ? 需要說明的是正常啟動(dòng)時(shí) ， 可能見不到圖 12中的 “ 立即 ” 窗口 。 ? 1． 標(biāo)題欄 ? 標(biāo)題欄位于主窗口最上面的一行 ， 如圖 13所示 。 啟動(dòng)時(shí)它顯示 “ 工程 1Microsoft Visual Basic[設(shè)計(jì) ]” ， 表示它處于程序設(shè)計(jì) 模式 。 ? (2) 運(yùn)行模式 ： 運(yùn)行應(yīng)用程序 ， 這時(shí)不可編輯代碼 ， 也不可編輯界面 。 ? (3) 中斷模式：應(yīng)用程序運(yùn)行暫時(shí)中斷 ， 這時(shí)可以編輯代碼 ， 但不可編輯界面 。 按 F5鍵或單擊工具欄的 “ 繼續(xù) ” 按鈕 ， 程序繼續(xù)運(yùn)行；單擊 “ 結(jié)束 ” 按鈕 ， 程序停止運(yùn)行 。它除了提供標(biāo)準(zhǔn) “ 文件 ” 、 “ 編輯 ” 、 “ 視圖 ” 、 “ 窗口 ”和 “ 幫助 ” 菜單之外，還提供了編程專用的功能菜單，如 “ 工程 ” 、“ 格式 ” 、 “ 調(diào)試 ” 、 “ 外接程序 ” 等菜單，總共 13項(xiàng)菜單，如圖13所示。 (2) 編輯：包含編輯命令和其他一些格式化 、 編輯代碼的命令 ， 以及其他編輯功能命令 。 (4) 工程：包含在工程中添加構(gòu)件 、 引用 Windows對(duì)象和工具箱新工具的命令 。 (6) 調(diào)試：包含一些通用的調(diào)試命令 。 (8) 查詢：包含操作數(shù)據(jù)庫(kù)表時(shí)的查詢命令以及其他數(shù)據(jù)訪問命令 。 (10) 工具：包含建立 ActiveX控件時(shí)需要的工具命令 ，并可以啟動(dòng)菜單編輯器以及配置環(huán)境選項(xiàng) 。 缺省時(shí)這個(gè)菜單中只有 “ 可視化數(shù)據(jù)管理器 ” 選項(xiàng) 。(12) 窗口：包含屏幕窗口布局命令 。 Visual Basic ? 3． 工具欄 ? 工具欄在編程環(huán)境下提供對(duì)于常用命令的快速訪問 。 在缺省模式下 ，啟動(dòng) Visual Basic之后將顯示 “ 標(biāo)準(zhǔn) ” 工具欄 。 工具欄緊貼在菜單欄下方 ，或以垂直條狀緊貼在左邊框上 ， 如圖 13所示 。 一般情況下 ， 工具欄在菜單欄的正下方 。 Windows的應(yīng)用程序運(yùn)行后都會(huì)打開一個(gè)窗口，窗體設(shè)計(jì)窗口是應(yīng)用程序最終面向用戶的窗口，是屏幕中央的主窗口。每個(gè)窗口必須有一個(gè)窗體名字，系統(tǒng)啟動(dòng)后就會(huì)自動(dòng)創(chuàng)建一個(gè)窗體（缺省名為 Form1），用戶可通過 “ 工程 /添加窗體 ” 來創(chuàng)建新窗體或?qū)⒁延械拇绑w添加到工程中。 應(yīng)注意窗體名即窗體的“ Name”屬性和窗體文件名的區(qū)別。 指針 （ 選擇對(duì)象 ） ———— ————— 圖片框 （ PictureBox） 標(biāo)簽 （ Label） —————— ——————文本框 （ TextBox） 框架 （ Frame） —————— —— 命令按鈕 （ CommandButton） 復(fù)選框 （ CheckBox） ——— ———— 單選按鈕 （ OptionButton） 組合框 （ ComboBox） ——— ——————— 列表框 （ ListBox） 水平滾動(dòng)條 （ HscrollBar） —— ————— 垂直滾動(dòng)條 （ VscrollBar） 定時(shí)器 （ Timer） ————— —— 驅(qū)動(dòng)器列表框 （ DriveListBox） 目錄列表框 （ DirListBox） — ———— 文件列表框 （ FileListBox） 形狀 （ Shape） —————— ————————— 畫線 （ Line） 圖像框（ Image） ————— ——————— 數(shù)據(jù)庫(kù)（ Data） 圖 14 Visual Basic工具箱中的常用控件類型 工具箱 ? 用戶可以將不在工具箱中的其他 ActiveX控件放到工具箱中。要將某控件加入到當(dāng)前選項(xiàng)卡中，需單擊要選定控件前面的方框，如圖 15所示，然后單擊 “ 確定 ” 按鈕，選定的 ActiveX控件就會(huì)添加到工具欄中。工程資源管理器列出了當(dāng)前工程中的窗體和模塊 ， 如圖 16所示 。 ? (1) 單擊 “ 查看代碼 ” 按鈕 ， 可打開 “ 代碼編輯器 ”查看代碼 。 ? (3) 單擊 “ 切換文件夾 ” 按鈕 ， 則可以隱藏或顯示包含在對(duì)象文件夾中個(gè)別項(xiàng)目列表 。在 Visual Basic ，屬性窗口列出了當(dāng)前選定窗體或控件的屬性及其值，用戶可以對(duì)這些屬性值進(jìn)行設(shè)置。 窗體布局窗口 ? 窗體布局窗口顯示在屏幕右下角。圖 18顯示了桌面上兩個(gè)窗體放置及其相對(duì)位置。 圖 18 窗體布局窗口 圖 19 設(shè)計(jì)窗體啟動(dòng)位置 代碼編輯窗口 ? 在設(shè)計(jì)模式中，通過雙擊窗體或窗體上的任何對(duì)象或單擊“ 工程資源管理器 ” 窗口中的 “ 查看代碼 ” 按鈕都可打開代碼編輯器窗口。 圖 110 代碼編輯器窗口 立即窗口 ? 例如： ? (1) 在立即窗口中使用賦值符給變量賦值 。 操作如下： ? X+Y 39。 輸出結(jié)果 ? Not P Or K And P Or YZ False 39。 ? “ 立即 ” 窗口是 Visual Basic所提供的一個(gè)系統(tǒng)對(duì)象，稱為Debug對(duì)象，作為調(diào)試程序使用。通常使用是 Print方法，使用格式為： ? [輸出項(xiàng)列表 ] ? 例如： “VB程序設(shè)計(jì) ” ? 運(yùn)行后在立即窗口輸出： ? VB程序設(shè)計(jì) ? 在設(shè)計(jì)狀態(tài)可以在立即窗口中進(jìn)行一些簡(jiǎn)單的命令操作，如變量賦值，用 “ ？ ” 或 Print（ 兩者等價(jià)）輸出一些表達(dá)式的值。 ? 此外， Visual Basic 2個(gè)非常有用的附加窗口： “ 本地 ”和 “ 監(jiān)視 ” 窗口，它們都是為調(diào)試應(yīng)用程序提供的，本地窗口和監(jiān)視窗口只在運(yùn)行工作模式下才有效。 ? Visual Basic采用的是面向?qū)ο?、 事件驅(qū)動(dòng)的編程機(jī)制 。 ? Visual Basic使用的可視化編程方法 ， 是面向?qū)ο缶幊碳夹g(shù)的簡(jiǎn)化版 。 ? 在 Visual Basic環(huán)境中 ， 程序員不僅可以利用控件來創(chuàng)建對(duì)象 ，而且還可以建立自己的控件 ， 這是 Windows環(huán)境下編程的新概念 。 可以把對(duì)象看成日常生活中的各種物體 ， 如一支鋼筆 、 一輛汽車 、 一臺(tái)電腦都是一個(gè)對(duì)象 。 ? 在 Visual Basic ， 對(duì)象可以由系統(tǒng)設(shè)置好 ， 直接供用戶使用 ，也可以由程序員自己設(shè)計(jì) 。 用戶使用最多的是窗體和控件 。 屬于同一類的所有對(duì)象具有同一組屬性 、 方法與事件 ， 只是其屬性值不同 ， 對(duì)事件的響應(yīng)不同 （ 取決于程序員的編程 ） 。 ? Visual Basic中工具箱上的控件是類 ， 畫在窗體中的各控件則是類的事例化 ， 即是對(duì)象 。 屬性是用來描述和反映對(duì)象特征的參數(shù) 。 例如 ， “ 控件名稱 ” （ Name） 、 “顏色 ”（ Color） 及 “ 是否可見 ” （ Visible） 等屬性決定了對(duì)象展現(xiàn)給用戶的界面具有什么樣的外觀及功能 。 ? 控件屬性的設(shè)置一般有兩條途徑： ? (1) 如果在界面設(shè)計(jì)時(shí)設(shè)置對(duì)象的屬性 ， 需要使用屬性窗口 。 ? 如標(biāo)簽 、 文本框 、 列表框 、 圖片框控件的字體 、 顏色等屬性 。 在 Visual Basic中已將一些通用的過程和函數(shù)編寫好并封裝起來 ， 作為方法供用戶直接調(diào)用 ， 這給用戶的編程帶來了極大的方便 。 對(duì)象方法的調(diào)用格式為： [對(duì)象 .]方法 [參數(shù)名表 ] ? 其中 ， 若省略了對(duì)象 ， 表示是當(dāng)前對(duì)象 ， 一般指窗體 。 ? 每個(gè)控件都可以對(duì)一個(gè)或多個(gè)事件進(jìn)行識(shí)別和響應(yīng) ， 如窗體加載事件 （ Load） 、 鼠標(biāo)單擊事件 （ Click） 、 鼠 標(biāo) 雙 擊 事 件（ DblClick） 等 。 ? 例如 ， 窗體上有一個(gè)名為 “ CmdOK”的命令按鈕對(duì)象 ， 當(dāng)鼠標(biāo)指針被移動(dòng)時(shí) ， 系統(tǒng)將跟蹤鼠標(biāo)指針的位置 ， 當(dāng)鼠標(biāo)在該對(duì)象上單擊一下 ， 系統(tǒng)就給鼠標(biāo)指針?biāo)赶虻膶?duì)象發(fā)送一個(gè) Click事件 ， 如果該事件已編寫了程序代碼 ， 系統(tǒng)則執(zhí)行過程的程序代碼 ， 執(zhí)行結(jié)束后 ， 控制權(quán)交還給系統(tǒng) ， 并等待下一個(gè)事件 。 ? 當(dāng)一個(gè)對(duì)象察覺到某一事件發(fā)生時(shí) （ 如 Click等 ） ， 就會(huì)對(duì)事件產(chǎn)生響應(yīng) ， 即執(zhí)行一段程序代碼 ， 所執(zhí)行的這段程序代碼就稱為事件過程 。 ? 窗體的操作與 Windows下的窗口操作一樣 。 ? 建立新窗體后 ， 它的大小 、 背景顏色 、 標(biāo)題及窗體名稱等特征需要根據(jù)應(yīng)用程序的要求進(jìn)行設(shè)置 。 在 Visual Basic中的大多數(shù)控件基本上都有這些屬性 ， 在以后介紹其他對(duì)象時(shí) ， 這些屬性還將詳細(xì)介紹 。 首次在工程中添加窗體時(shí) ， 該窗體的名稱被缺省為 Form1； 添加第二個(gè)窗體 ， 其名稱被缺省為Form2， 依此類推 。 這樣在程序代碼中的意義就很清楚 ， 程序的可讀性就好 。 對(duì)于控件 ， Left、 Top屬性值則是相對(duì) “ 容器 ” 左上角的坐標(biāo)值 ， 其缺省單位是 twip。 對(duì)于窗體 ， 指的是窗口的高度和寬度 ， 包括邊框和標(biāo)題欄 。 ? 圖 114是屏幕 （ Screen） 、 窗體 （ Form1） 和命令按鈕 （ Ok）的 Left、 Top、 Height、 Width屬性表示 ， 讀者要注意 Left、 Top屬性值是相對(duì) “ 容器 ” 左上角的坐標(biāo)值 。 窗體的屬性 圖 114 對(duì)象的 Left、 Top 、 Height、 Width屬性 窗體的屬性 ? 例 11 在窗體 Form1被加載時(shí) ， 將其大小設(shè)置為屏幕大小的 1/2，并居中顯示 。 設(shè) 置 窗 體 的 寬 度 ，Screen為屏幕對(duì)象 ? = 39。 ? 39。 ? = ( )/2 ? 39。 ? = ( )/2 ? End Sub 窗體的屬性 ? 4． Caption標(biāo)題屬性 ? 決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容 ， 也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本 。 uFontSize屬性是整型 ， 決定對(duì)象上正文的字體大小 （ 缺省為 9磅 ） 。 uFontItalic屬性是邏輯型 ， 決定對(duì)象上正文是否是斜體 （ 缺省為False） 。 uFontUnderLine屬性是邏輯型 ， 決定對(duì)象上正文是否帶下劃線 （ 缺省為 False） 。 ? 例 12 下面的程序是當(dāng)文本框 Text1不包含任何文本時(shí) ， 使命令按鈕CmdOk無效 。 查看文本框是否為空 ? = False 39。 使按鈕有效 ? End If ? End Sub 窗體的屬性 ? 7． Visible屬性 ? 用于確定一個(gè)窗體或控件為可見或隱藏 。 ? 8． BackColor屬性和 ForeColor屬性 ? BackColor屬性用于返回或設(shè)置對(duì)象的背景顏色 ， ForeColor屬性用于返回或設(shè)置在對(duì)象里顯示圖片和文本的前景顏色 ， 它們是十六進(jìn)制長(zhǎng)整型數(shù)據(jù) ， 在 Visual Basic中通常用 Windows運(yùn)行環(huán)境的紅 綠藍(lán) （ RGB） 顏色方案 ， 使用調(diào)色板或在代碼中使用 RGB或 QBColor函數(shù)指定標(biāo)準(zhǔn) RGB顏色 。 例如： ? = amp。 ? 它等價(jià)于： = vbRed 窗體的屬性 ? 9． MaxButto