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