【文章內(nèi)容簡(jiǎn)介】 +Y 39。 輸出結(jié)果 Print Int(X)+Y/2 4 39。 輸出結(jié)果 ? Not P Or K And P Or YZ False 39。 輸出結(jié)果 立即窗口 ? 在 Visual Basic集成環(huán)境中，運(yùn)行 “ 視圖 /立即窗口 ” 命令或按Ctrl+G組合鍵即可打開如圖 111所示的窗口。 ? “ 立即 ” 窗口是 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á)式的值。 圖 111 立即窗口 立即窗口 ? 操作結(jié)果如圖 112所示。 ? 此外， Visual Basic 2個(gè)非常有用的附加窗口： “ 本地 ”和 “ 監(jiān)視 ” 窗口，它們都是為調(diào)試應(yīng)用程序提供的，本地窗口和監(jiān)視窗口只在運(yùn)行工作模式下才有效。 圖112 在“立即”窗口中的操作實(shí)例 可視化編程 ? 傳統(tǒng)的編程方法使用的是面向過(guò)程 、 按順序進(jìn)行的機(jī)制 ， 其缺點(diǎn)是程序員始終要關(guān)心什么時(shí)候發(fā)生什么事情 ， 處理 Windows環(huán)境下事件驅(qū)動(dòng)方式的工作量太大 。 ? Visual Basic采用的是面向?qū)ο?、 事件驅(qū)動(dòng)的編程機(jī)制 。 程序員只需編寫響應(yīng)用戶動(dòng)作的程序 ， 如移動(dòng)鼠標(biāo) 、 單擊鼠標(biāo)等 ，編寫代碼相對(duì)較少 。 ? Visual Basic使用的可視化編程方法 ， 是面向?qū)ο缶幊碳夹g(shù)的簡(jiǎn)化版 。 Visual Basic提供多種控件支持可視化編程 ， 利用它們可以快速創(chuàng)建強(qiáng)大的應(yīng)用程序而不需涉及不必要的細(xì)節(jié) 。 ? 在 Visual Basic環(huán)境中 ， 程序員不僅可以利用控件來(lái)創(chuàng)建對(duì)象 ，而且還可以建立自己的控件 ， 這是 Windows環(huán)境下編程的新概念 。 對(duì)象與類 ? 1． 對(duì) 象 ? 對(duì)象 （ Object） 是代碼和數(shù)據(jù)的集合 。 可以把對(duì)象看成日常生活中的各種物體 ， 如一支鋼筆 、 一輛汽車 、 一臺(tái)電腦都是一個(gè)對(duì)象 。一臺(tái)電腦又可以拆分為主板 、 CPU、 內(nèi)存 、 外設(shè)等部件 ， 這些部件又都分別是一個(gè)對(duì)象 ， 因此電腦對(duì)象可以說(shuō)是由多個(gè) “ 子 ” 對(duì)象組成的 ， 它可以稱為是一個(gè)對(duì)象容器 （ Container） 。 ? 在 Visual Basic ， 對(duì)象可以由系統(tǒng)設(shè)置好 ， 直接供用戶使用 ，也可以由程序員自己設(shè)計(jì) 。 Visual Basic設(shè)計(jì)好的對(duì)象有：窗體 、各種控件 、 菜單 、 屏幕 、 剪貼板等 。 用戶使用最多的是窗體和控件 。 對(duì)象與類 ? 2． 類 ? 類是同一種對(duì)象的統(tǒng)稱 ， 是一個(gè)抽象的整體概念 ， 也是創(chuàng)建對(duì)象實(shí)例的模板 ， 而對(duì)象則是類的實(shí)例化 。 屬于同一類的所有對(duì)象具有同一組屬性 、 方法與事件 ， 只是其屬性值不同 ， 對(duì)事件的響應(yīng)不同 （ 取決于程序員的編程 ） 。 ? 譬如 ， 汽車是一個(gè)籠統(tǒng)的名稱 ， 是整體概念 ， 我們把汽車看成一個(gè) “ 類 ” ， 一輛輛具體的汽車 （ 比如你的汽車 、 我的汽車 ） 就是這個(gè)類的實(shí)例 ， 也就是屬于這個(gè)類的對(duì)象 。 ? Visual Basic中工具箱上的控件是類 ， 畫在窗體中的各控件則是類的事例化 ， 即是對(duì)象 。 屬 性 ? 屬性是對(duì)象的性質(zhì) ， 對(duì)象中的數(shù)據(jù)就保存在屬性中 。 屬性是用來(lái)描述和反映對(duì)象特征的參數(shù) 。 每一種對(duì)象都有其屬性 ， 屬性值決定了對(duì)象的外觀和行為 。 例如 ， “ 控件名稱 ” （ Name） 、 “顏色 ”（ Color） 及 “ 是否可見 ” （ Visible） 等屬性決定了對(duì)象展現(xiàn)給用戶的界面具有什么樣的外觀及功能 。 不同的對(duì)象具有的屬性不盡相同 ，如 命 令 按 鈕 有 “ Caption”屬性而無(wú) “ Text”屬性 ， 文 本 框 無(wú)“ Caption”屬性而有 “ Text”屬性 。 ? 控件屬性的設(shè)置一般有兩條途徑： ? (1) 如果在界面設(shè)計(jì)時(shí)設(shè)置對(duì)象的屬性 ， 需要使用屬性窗口 。 這時(shí)只要在屬性窗口中選中要修改的屬性 ， 然后在右列中鍵入新的值即可設(shè)置對(duì)象的屬性 。 ? 如標(biāo)簽 、 文本框 、 列表框 、 圖片框控件的字體 、 顏色等屬性 。 ? (2) 如果要在程序運(yùn)行中動(dòng)態(tài)地更改對(duì)象的屬性 ， 可以使用 Visual Basic的賦值語(yǔ)句 ， 在代碼窗口中通過(guò)編程設(shè)置 ， 其格式為： ? 對(duì)象名 .屬性名 = 屬性值 ? 其中 “ 對(duì)象名 .屬性名 ” 是 Visual Basic中引用對(duì)象屬性的方法 ， 如下述代碼可以設(shè)置標(biāo)簽控件 Label1的標(biāo)題為 “ 第一個(gè)應(yīng)用程序 ” ： ? = 第一個(gè)應(yīng)用程序 方 法 ? 方法是面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言為編程者提供的用來(lái)完成特定操作的過(guò)程和函數(shù) 。 在 Visual Basic中已將一些通用的過(guò)程和函數(shù)編寫好并封裝起來(lái) ， 作為方法供用戶直接調(diào)用 ， 這給用戶的編程帶來(lái)了極大的方便 。 因?yàn)榉椒ㄊ敲嫦驅(qū)ο蟮?， 所以在調(diào)用時(shí)一般要指明對(duì)象 。 對(duì)象方法的調(diào)用格式為： [對(duì)象 .]方法 [參數(shù)名表 ] ? 其中 ， 若省略了對(duì)象 ， 表示是當(dāng)前對(duì)象 ， 一般指窗體 。 ? 例如：在窗體 Form1上打印輸出 “ Visual Basic程序設(shè)計(jì) ” 可使用窗體的 Print方法 ? Visual Basic程序設(shè)計(jì) ? 若當(dāng)前窗體是 Form1， 則可寫為： Print Visual Basic程序設(shè)計(jì) 對(duì)象事件與事件過(guò)程 ? 1． 事件 ? 事件是 Visual Basic預(yù)先定義的 、 對(duì)象能夠識(shí)別的動(dòng)作 。 ? 每個(gè)控件都可以對(duì)一個(gè)或多個(gè)事件進(jìn)行識(shí)別和響應(yīng) ， 如窗體加載事件 （ Load） 、 鼠標(biāo)單擊事件 （ Click） 、 鼠 標(biāo) 雙 擊 事 件（ DblClick） 等 。 事件是一種預(yù)先定義好的特定動(dòng)作 ， 由用戶或系統(tǒng)激活 ， 在多數(shù)情況下 ， 事件是通過(guò)用戶的交互操作產(chǎn)生的 。 ? 例如 ， 窗體上有一個(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í)行過(guò)程的程序代碼 ， 執(zhí)行結(jié)束后 ， 控制權(quán)交還給系統(tǒng) ， 并等待下一個(gè)事件 。 對(duì)象事件與事件過(guò)程 ? 2． 事件過(guò)程 ? 事件過(guò)程是用來(lái)完成事件發(fā)生后所要執(zhí)行的操作 。 ? 當(dāng)一個(gè)對(duì)象察覺到某一事件發(fā)生時(shí) （ 如 Click等 ） ， 就會(huì)對(duì)事件產(chǎn)生響應(yīng) ， 即執(zhí)行一段程序代碼 ， 所執(zhí)行的這段程序代碼就稱為事件過(guò)程 。 ? 對(duì)于窗體對(duì)象 ， 其事件過(guò)程的形式如下： ? Sub Form_事件過(guò)程名 [（ 參數(shù)列表 ） ] ? … （ 事件過(guò)程代碼 ） ? End Sub ? 對(duì)于除窗體以外的對(duì)象 ， 其事件過(guò)程的形式如下： ? Sub 對(duì)象名 _事件過(guò)程名 [（ 參數(shù)列表 ） ] ? … （ 事件過(guò)程代碼 ） ? End Sub ? 例如 ， 單擊名為 cmdOk命令按鈕 ， 使命令按鈕變?yōu)椴豢梢?， 則對(duì)應(yīng)的事件過(guò)程如下： ? Sub cmdOK_Click( ) ? =False ? End Sub 窗體的結(jié)構(gòu) ? 同 Windows環(huán)境下的應(yīng)用程序窗口一樣 ， Visual Basic中的窗體也具有控制菜單 、 標(biāo)題欄 、 “ 最大化 ” 按鈕 、 “ 最小化 ” 按鈕 、“ 關(guān)閉 ” 按鈕以及邊框等 ， 如圖 113所示 。 ? 窗體的操作與 Windows下的窗口操作一樣 。 通過(guò)鼠標(biāo)左鍵拖動(dòng)標(biāo)題欄可以移動(dòng)窗體；鼠標(biāo)對(duì)準(zhǔn)窗體邊框 ， 當(dāng)出現(xiàn)雙向箭頭時(shí)拖動(dòng)鼠標(biāo)可以改變窗體的大小 。 ? 建立新窗體后 ， 它的大小 、 背景顏色 、 標(biāo)題及窗體名稱等特征需要根據(jù)應(yīng)用程序的要求進(jìn)行設(shè)置 。 窗體的結(jié)構(gòu) 圖 113 窗體的結(jié)構(gòu) “ 最小化 ” 按鈕 “ 最大化 ” 按鈕 “ 關(guān)閉 ” 按鈕 圖標(biāo) 控 制 菜單框 邊框樣式 標(biāo)題 窗體的屬性 ? 窗體的基本屬性有： Name、 Left、 Top、 Height、 Width、Visible、 Enabled、 Font、 ForeColor、 BackColor 等 。 在 Visual Basic中的大多數(shù)控件基本上都有這些屬性 ， 在以后介紹其他對(duì)象時(shí) ， 這些屬性還將詳細(xì)介紹 。 ? 1． Name屬性 ? Visual Basic中任何對(duì)象都有 Name屬性 ， 在程序代碼中通過(guò)該屬性來(lái)引用 、 操作具體的對(duì)象 。 首次在工程中添加窗體時(shí) ， 該窗體的名稱被缺省為 Form1； 添加第二個(gè)窗體 ， 其名稱被缺省為Form2， 依此類推 。 最好給 Name屬性設(shè)置一個(gè)有實(shí)際意義的名稱 ， 如給一個(gè)程序的主控窗體命名為 “ MainFrm”。 這樣在程序代碼中的意義就很清楚 ， 程序的可讀性就好 。 窗體的屬性 ? 2． Left、 Top屬性 ? 窗體運(yùn)行在屏幕中 ， 屏幕是窗體的容器 ， 因此窗體的 Left、Top屬性值是相對(duì)屏幕左上角的坐標(biāo)值 。 對(duì)于控件 ， Left、 Top屬性值則是相對(duì) “ 容器 ” 左上角的坐標(biāo)值 ， 其缺省單位是 twip。 ? 1twip=1/20點(diǎn) =1/1440in=1/567cm ? 3． Height、 Width屬性 ? 返回或設(shè)置對(duì)象的高度和寬度 。 對(duì)于窗體 ， 指的是窗口的高度和寬度 ， 包括邊框和標(biāo)題欄 。 對(duì)于控件 ， 這些屬性使用控件所在“ 容器 ” 的度量單位 。 ? 圖 114是屏幕 （ Screen） 、 窗體 （ Form1） 和命令按鈕 （ Ok）的 Left、 Top、 Height、 Width屬性表示 ， 讀者要注意 Left、 Top屬性值是相對(duì) “ 容器 ” 左上角的坐標(biāo)值 。 在 Visual Basic中除了用屏幕 、 窗體作 “ 容器 ” 外 ， 還有框架和圖片框?qū)ο罂勺?“ 容器 ” 。 窗體的屬性 圖 114 對(duì)象的 Left、 Top 、 Height、 Width屬性 窗體的屬性 ? 例 11 在窗體 Form1被加載時(shí) ， 將其大小設(shè)置為屏幕大小的 1/2，并居中顯示 。 通過(guò)窗體的 Load事件來(lái)實(shí)現(xiàn)的程序代碼為： ? Private Sub Form_Load () ? = 39。 設(shè) 置 窗 體 的 寬 度 ，Screen為屏幕對(duì)象 ? = 39。 設(shè)置窗體的高度 。 ? 39。 在水平方向上居中顯示 。 ? = ( )/2 ? 39。 在垂直方向上居中顯示 。 ? = ( )/2 ? End Sub 窗體的屬性 ? 4． Caption標(biāo)題屬性 ? 決定出現(xiàn)在窗體的標(biāo)題欄上的文本內(nèi)容 ， 也是當(dāng)窗體被最小化后出現(xiàn)在窗體圖標(biāo)下的文本 。 如圖 113中窗體的 Caption屬性值是“ VB窗體 ” ? 5． 字體 Font屬性組 uFontName屬性是字符型 ， 決定對(duì)象上正文的字體 （ 缺省為宋體 ） 。 uFontSize屬性是整型 ， 決定對(duì)象上正文的字體大小 （ 缺省為 9磅 ） 。 uFontBold屬性是邏輯型 ， 決定對(duì)象上正文是否是粗體 （ 缺省為False） 。 uFontItalic屬性是邏輯型 ， 決定對(duì)象上正文是否是斜體 （ 缺省為False） 。 uFontStrikeThru屬性是邏輯型 ， 決定對(duì)象上正文是否加一刪除線（ 缺省為 False） 。 uFontUnderLine屬性是邏輯型 ， 決定對(duì)象上正文是否帶下劃線 （ 缺省為 False） 。 窗體的屬性 ? 注意： ? 如果使用窗體或其他“容器”對(duì)象無(wú)效，則在其中的所有控件也將無(wú)效。 ? 例 12 下面的程序是當(dāng)文本框 Text1不包含任何文本時(shí) ， 使命令按鈕CmdOk無(wú)效 。 ? Private Sub Text1_Change( ) ? If = Then 39。 查看文本框是否為空 ? = False 39。 使按鈕無(wú)效 ? Else ? = True 39。 使按鈕有效 ? End If ? End Sub 窗