VB程序設(shè)計(jì) 第二章 Visual Basic 程序設(shè)計(jì)概述

《VB程序設(shè)計(jì) 第二章 Visual Basic 程序設(shè)計(jì)概述》由會(huì)員分享，可在線閱讀，更多相關(guān)《VB程序設(shè)計(jì) 第二章 Visual Basic 程序設(shè)計(jì)概述（45頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、Visual Basic程序設(shè)計(jì)教程 內(nèi)蒙古科技大學(xué)實(shí)踐訓(xùn)練中心第 二 章 Visual Basic 程 序 設(shè) 計(jì) 概 述 計(jì) 算 機(jī) 軟 件 開(kāi) 發(fā) 歷 史 結(jié) 構(gòu) 化 程 序 設(shè) 計(jì) (C， Pascal)高 級(jí) 語(yǔ) 言 (Fortran,Basic)匯 編 語(yǔ) 言 二 進(jìn) 制 代 碼 （ 機(jī) 器 語(yǔ) 言 ）面 向 對(duì) 象 程 序 設(shè) 計(jì)結(jié) 構(gòu) 化 程 序 設(shè) 計(jì)早 期 程 序 設(shè) 計(jì) 面 向 對(duì) 象 程 序 設(shè) 計(jì) (C+)可 視 化 程 序 設(shè) 計(jì) (VB,VC等 ) 20世 紀(jì) 50年 代 用 機(jī) 器 語(yǔ) 言 編 寫 代 碼 。 程 序 員 重 復(fù) 處 理 0與 1不 得 不花 費(fèi)

2、 大 量 的 時(shí) 間 來(lái) 編 制 與 調(diào) 試 程 序 。 采 用 符 號(hào) 指 令 的 匯 編 語(yǔ) 言 代 替 了 機(jī) 器 語(yǔ) 言 。 高 級(jí) 語(yǔ) 言 簡(jiǎn) 化 了 程 序 設(shè) 計(jì) 。 用 高 級(jí) 語(yǔ) 言 編 寫 的 程 序 與 機(jī) 器 無(wú) 關(guān) ；程 序 員 擺 脫 了 機(jī) 器 本 身 的 特 性 限 制 ， 精 力 只 集 中 于 算 法 。 20世 紀(jì) 70年 代 初 期 ， 大 型 系 統(tǒng) 軟 件 （ 如 操 作 系 統(tǒng) 、 數(shù) 據(jù) 庫(kù) 等 ） 給程 序 設(shè) 計(jì) 帶 來(lái) 了 新 的 問(wèn) 題 。 促 使 人 們 對(duì) 程 序 設(shè) 計(jì) 方 法 進(jìn) 行 研 究 ，從 而 提 出 了 應(yīng) 該 如 何

3、設(shè) 計(jì) 程 序 ， 設(shè) 計(jì) 程 序 的 基 本 指 導(dǎo) 思 想 是 什 么 ，采 用 什 么 樣 的 程 序 設(shè) 計(jì) 方 法 為 好 等 問(wèn) 題 。 1969年 荷 蘭 科 學(xué) 家 Dijkstra提 出 了 結(jié) 構(gòu) 化 程 序 設(shè) 計(jì) 的 思 想 與 概 念 。 結(jié) 構(gòu) 化 程 序 設(shè) 計(jì) 基 本 思 想 ： 程 序 的 結(jié) 構(gòu) 規(guī) 定 為 ： 順 序 、 選 擇 和 三 種 基 本 結(jié) 構(gòu) ； 限 制 使 用GOTO語(yǔ) 句 ， 采 用 程 序 設(shè) 計(jì) 原 則 ， 將 大 型系 統(tǒng) 分 解 為 功 能 獨(dú) 立 的 模 塊 ， 使 其 最 終 轉(zhuǎn) 化 為 上 述 三 種 基 本 結(jié) 構(gòu) 。 結(jié)

4、 構(gòu) 化 程 序 未 能 解 決 的 問(wèn) 題 ： 1、 模 塊 分 割 主 要 針 對(duì) 控 制 流 ， 仍 含 有 與 人 的 思 維 方 式 不 協(xié) 調(diào) 的 地方 ， 很 難 自 然 、 準(zhǔn) 確 地 反 映 真 實(shí) 世 界 ， 軟 件 質(zhì) 量 很 難 保 證 。 2、 只 突 出 了 實(shí) 現(xiàn) 功 能 的 操 作 方 法 （ 模 塊 ） ， 而 被 操 作 的 數(shù) 據(jù) （ 變量 ） 處 于 功 能 的 從 屬 地 位 ， 即 程 序 模 塊 與 數(shù) 據(jù) 結(jié) 構(gòu) 是 松 散 地 耦 合 在 一起 ， 當(dāng) 程 序 復(fù) 雜 時(shí) ， 容 易 出 錯(cuò) ， 難 以 維 護(hù) 。 面 向 對(duì) 象 程 序 設(shè)

5、計(jì) （ OOP） 旨 在 使 計(jì) 算 機(jī) 問(wèn) 題 的 求 解 更 接 近 于 人 的 思 維活 動(dòng) ， 使 軟 件 的 開(kāi) 發(fā) 形 成 一 個(gè) 由 抽 象 到 具 體 、 由 簡(jiǎn) 單 到 復(fù) 雜 這 樣 一 個(gè)循 序 漸 進(jìn) 的 過(guò) 程 。 克 服 大 型 軟 件 開(kāi) 發(fā) 中 存 在 的 效 率 低 、 質(zhì) 量 難 以 保 證 、調(diào) 試 復(fù) 雜 、 維 護(hù) 困 難 等 問(wèn) 題 。 面 向 對(duì) 象 將 大 量 的 工 作 由 相 應(yīng) 的 對(duì) 象 來(lái) 完 成 ， 程 序 員 在 應(yīng) 用 程 序 中 只需 說(shuō) 明 要 求 對(duì) 象 完 成 的 任 務(wù) 。 面 向 對(duì) 象 程 序 設(shè) 計(jì) （ OOP）

6、的 優(yōu) 點(diǎn) ： 1、 使 軟 件 開(kāi) 發(fā) 過(guò) 程 符 合 人 們 的 思 維 方 法 ， 便 于 分 析 解 決 復(fù) 雜 的 問(wèn) 題 2、 使 軟 件 的 維 護(hù) 和 功 能 增 減 易 于 實(shí) 現(xiàn) 。 3、 使 程 序 代 碼 可 重 用 ， 從 而 提 高 了 軟 件 開(kāi) 發(fā) 的 效 率 ； 4、 與 可 視 化 技 術(shù) 相 結(jié) 合 ， 使 用 戶 界 面 圖 形 化 、 更 美 觀 、 更 友 好 。 “ 對(duì) 象 ” 是 系 統(tǒng) 中 的 基 本 運(yùn) 行 實(shí) 體 。 現(xiàn) 實(shí) 生 活 中 ， 一 個(gè) 人 、 一 輛 車 等 均 可 視 為 一 個(gè) 對(duì) 象 。 為 了 區(qū) 別 和 標(biāo) 識(shí) 不

7、同 的 對(duì) 象 ， 每 個(gè) 對(duì) 象 有 一 個(gè) 屬 于 自 己 的 名 字 ， 稱 為 對(duì) 象 名 。 在 VB應(yīng) 用 程 序 中 ， 構(gòu) 成 圖 形 用 戶 界 面 的 每 一 個(gè) 可 視 的 部 件 均 可 視 為 對(duì) 象 。的 對(duì) 象 分 為 窗 體 和 控 件 兩 大 類 。 窗 口 本 身 ， 是 屏 幕 上 的 一 個(gè) 矩 形 區(qū) 域 ； 窗 口 上 構(gòu) 成 圖 形 用 戶 界 面 的 一 些 基 本 組 成 部 件 ； (1)內(nèi) 部 控 件 ： 是 由 VB系 統(tǒng) 提 供 的 。 啟 動(dòng) VB后 ， 內(nèi) 部 控 件 出 現(xiàn) 在 工 具 箱 上 。 (2)ActiveX控 件 ：

8、是 擴(kuò) 展 名 為 .OCX的 獨(dú) 立 文 件 。 (3)可 插 入 對(duì) 象 ： VB系 統(tǒng) 中 有 一 些 能 直 接 使 用 的 對(duì) 象 ， 其 可 被 添 加 到 工 具 箱上 。 對(duì) 象 的 建 立 方 法 ： （ 1） 添 加 和 刪 除 控 件 到 窗 體 上 （ 2） 編 輯 控 件 選 擇 控 件 移 動(dòng) 控 件 移 動(dòng) 改 變 控 件 大 小 復(fù) 制 控 件 控 件 的 布 局 控 件 的 名 稱 1、 對(duì) 象 的 屬 性 在 VB系 統(tǒng) 中 ， 選 中 一 個(gè) 對(duì) 象 后 ， 可 以 在 屬 性 窗 口 中 修 改 屬 性 值 ，也 可 在 程 序 運(yùn) 行 階 段 用 語(yǔ)

9、句 來(lái) 設(shè) 置 或 修 改 其 屬 性 值 。 在 程 序 中 設(shè) 置 屬 性 的 語(yǔ) 法 格 式 為 ： 對(duì) 象 名 .屬 性 名 屬 性 值 例 【 2-1】 設(shè) 計(jì) 階 段 修 改 對(duì) 象 屬 性 在 窗 體 上 放 置 一 個(gè) 名 為 command1的 命 令 按 鈕 ， 將 其 屬 性 列 表 框 中的 caption屬 性 值 改 為 “ 按 鈕 ” ， height屬 性 值 改 為 890。 解 題 思 路 ： 選 擇 命 令 按 鈕 ， 在 其 屬 性 列 表 框 中 修 改 “ caption” 和“ height” 屬 性 。 例 【 2-2】 運(yùn) 行 階 段 修 改

10、對(duì) 象 屬 性 在 窗 體 上 放 置 一 個(gè) 名 為 command1的 命 令 按 鈕 ， 程 序 運(yùn) 行 后 ， 點(diǎn) 擊 窗體 ， 將 命 令 按 鈕 的 caption屬 性 值 改 為 “ 按 鈕 ” ， height屬 性 值 改 為890。 解 題 思 路 ： 首 先 在 窗 體 上 放 置 一 個(gè) 名 為 command1的 命 令 按 鈕 ， 在 窗 體的 click事 件 中 填 寫 相 應(yīng) 的 命 令 ， 改 寫 按 鈕 的 屬 性 值 。Private Sub Form_click( ) command1.caption=“按 鈕 ” command1.height=8

11、90End Sub 2、 對(duì) 象 的 事 件 、 事 件 過(guò) 程 和 事 件 驅(qū) 動(dòng) （ 1） 事 件 在 VB中 ， 事 件 是 發(fā) 生 在 對(duì) 象 身 上 ， 且 能 被 對(duì) 象 識(shí) 別 的 動(dòng) 作 。 如 ： 用 鼠 標(biāo) 單 擊 對(duì) 象 ， 則 會(huì) 在 對(duì) 象 身 上 產(chǎn) 生 單 擊 事 件 （ Click)，雙 擊 對(duì) 象 ， 則 會(huì) 在 對(duì) 象 身 上 產(chǎn) 生 雙 擊 事 件 （ DblClick)。 VB系 統(tǒng) 為 每 個(gè) 對(duì) 象 預(yù) 先 定 義 了 一 系 列 事 件 ， 例 如 ： 單 擊 （ Click） ， 雙 擊 （ DblClick） ， 改 變 （ Change） ，

12、 鼠 標(biāo) 移 動(dòng) （ MouseMove） 等 。 2、 對(duì) 象 的 事 件 、 事 件 過(guò) 程 和 事 件 驅(qū) 動(dòng) （ 2） 事 件 過(guò) 程 當(dāng) 事 件 在 對(duì) 象 身 上 發(fā) 生 后 ， 應(yīng) 用 程 序 就 要 處 理 這 個(gè) 事 件 ， 處 理 事件 的 步 驟 就 是 事 件 過(guò) 程 。 VB應(yīng) 用 程 序 設(shè) 計(jì) 的 主 要 工 作 就 是 為 對(duì) 象 編 寫 事 件 過(guò) 程 的 代 碼 ， 一般 格 式 為 ： Private Sub 對(duì) 象 名 _事 件 (參 數(shù) 列 表 ) 事 件 過(guò) 程 代 碼 End Sub 2、 對(duì) 象 的 事 件 、 事 件 過(guò) 程 和 事 件 驅(qū) 動(dòng)

13、 （ 2） 事 件 過(guò) 程 例 【 2-3】 有 一 命 名 為 Command1的 命 令 按 鈕 對(duì) 象 ， 要 求 當(dāng) 用 戶 單 擊 命令 按 鈕 時(shí) ， 結(jié) 束 程 序 的 運(yùn) 行 解 題 思 路 ： VB系 統(tǒng) 中 ， 結(jié) 束 程 序 運(yùn) 行 的 命 令 為 “ END” 。 在 按 鈕 的click事 件 中 填 寫 該 命 令 即 可 。Private Sub Command1_click( ) end 結(jié) 束 程 序 的 運(yùn) 行End Sub 2、 對(duì) 象 的 事 件 、 事 件 過(guò) 程 和 事 件 驅(qū) 動(dòng) （ 3） 事 件 驅(qū) 動(dòng) 程 序 設(shè) 計(jì) 在 傳 統(tǒng) 的 面 向 過(guò)

14、 程 的 程 序 設(shè) 計(jì) 中 ， 應(yīng) 用 程 序 的 執(zhí) 行 總 是 從 第 一行 代 碼 開(kāi) 始 ； 在 面 向 對(duì) 象 的 程 序 設(shè) 計(jì) 中 ， 應(yīng) 用 程 序 先 等 待 某 個(gè) 事 件 的 發(fā) 生 ，然 后 再 去 執(zhí) 行 處 理 此 事 件 的 事 件 過(guò) 程 。 發(fā) 生 事 件 的 順 序 決 定 了 代 碼執(zhí) 行 的 順 序 ， 若 沒(méi) 有 事 件 發(fā) 生 ， 整 個(gè) 程 序 將 處 于 停 滯 等 待 狀 態(tài) 。 2、 對(duì) 象 的 事 件 、 事 件 過(guò) 程 和 事 件 驅(qū) 動(dòng) （ 3） 事 件 驅(qū) 動(dòng) 程 序 設(shè) 計(jì) VB應(yīng) 用 程 序 的 執(zhí) 行 步 驟 ： 窗 體 或

15、窗 體 上 的 對(duì) 象 等 待 事 件 的 發(fā) 生事 件 發(fā) 生 時(shí) ， 執(zhí) 行 相 應(yīng) 的 事 件 過(guò) 程啟 動(dòng) 應(yīng) 用 程 序 ， 裝 載 和 顯 示 窗 體 如 此 周 而 復(fù) 始 地 執(zhí) 行 ， 直 到 遇 到 “ END”語(yǔ) 句 結(jié) 束 程 序 的 運(yùn) 行 或 單 擊“ 結(jié) 束 ” 按 鈕 強(qiáng) 行 結(jié) 束 程 序 的 允 許 。 3、 對(duì) 象 的 方 法 VB系 統(tǒng) 中 的 方 法 指 對(duì) 象 本 身 所 包 含 的 一 些 特 殊 函 數(shù) 或 過(guò) 程 。 當(dāng)用 方 法 來(lái) 控 制 一 個(gè) 對(duì) 象 的 行 為 時(shí) ， 其 實(shí) 質(zhì) 就 是 調(diào) 用 該 對(duì) 象 內(nèi) 部 的 某個(gè) 特 殊

16、的 函 數(shù) 的 過(guò) 程 。 例 如 ： 窗 體 對(duì) 象 擁 有 Hide方 法 和 Show方 法 ， 調(diào) 用 Hide方 法 可 窗體 隱 藏 起 來(lái) ， 調(diào) 用 Show方 法 可 使 窗 體 顯 現(xiàn) 出 來(lái) 。 在 VB系 統(tǒng) 中 對(duì) 象 方 法 的 調(diào) 用 格 式 ： 對(duì) 象 名 方 法 名 參 數(shù) 列 表 如 ： form1.hide 隱 藏 窗 體 form1 form1.show 顯 示 窗 體 form1 3、 對(duì) 象 的 方 法 例 【 2-4】 現(xiàn) 有 一 個(gè) 名 為 Command1的 命 令 按 鈕 ， 當(dāng) 用 戶 單 擊 該 按 鈕時(shí) ， 使 其 移 動(dòng) 為 坐 標(biāo)

17、（ 120， 300） 的 位 置 。 解 題 思 路 ： 調(diào) 用 方 法 “ move” ， 將 按 鈕 移 動(dòng) 到 指 定 的 位 置 。Private Sub command1_click( ) command1.move 120,300End sub 3、 對(duì) 象 的 方 法 例 【 2-5】 當(dāng) 用 戶 單 擊 窗 體 時(shí) ， 調(diào) 用 窗 體 對(duì) 象 的 方 法 Print， 在 窗 體 上打 印 出 “ 歡 迎 你 學(xué) 習(xí) Visual Basic 6.0” 字 符 串 . 解 題 思 路 ： 調(diào) 用 窗 體 的 方 法 “ print” ， 將 字 符 串 顯 示 在 窗 體 上

18、Private Sub Form_Click( ) form1.print “歡 迎 你 學(xué) 習(xí) Visual Basic 6.0”End Sub Name ： 窗 體 名 稱 ； 默 認(rèn) 為 Form1， 只 能 在 屬 性 窗 口 設(shè) 置 Caption： 窗 體 標(biāo) 題 欄 顯 示 的 文 本 ， 可 在 屬 性 窗 口 和 程 序 中 設(shè) 置 Height， Width： 指 定 窗 體 的 高 度 和 寬 度 。 可 在 屬 性 窗 口 和 程 序 中 設(shè) 置 Left， top： 指 定 窗 體 的 高 度 和 寬 度 。 可 在 屬 性 窗 口 和 程 序 中 設(shè) 置 Font：

19、 用 于 改 變 窗 體 或 對(duì) 象 上 文 本 的 外 觀 。 FontName： 字 體 類 型 ， 用 于 設(shè) 置 窗 體 或 對(duì) 象 上 文 本 的 字 體 。 FontSize： 整 型 ， 用 于 設(shè) 置 窗 體 或 對(duì) 象 上 文 本 的 字 體 大 小 。 FontBold： 邏 輯 型 ， 該 值 為 True時(shí) 用 于 設(shè) 置 窗 體 或 對(duì) 象 上 文 本 為 粗 體 。 FontItalic： 邏 輯 型 ， 該 值 為 True時(shí) 用 于 設(shè) 置 窗 體 或 對(duì) 象 上 文 本 為 斜 體 。 FontStrikethru： 邏 輯 型 ， 該 值 為 True時(shí) 給

20、 窗 體 或 對(duì) 象 上 文 本 加 一 刪 除 線 FontUnderLine： 邏 輯 型 ， 該 值 為 True時(shí) 用 于 給 窗 體 或 對(duì) 象 上 文 本 加 一 下 劃 線 (6)Enabled： 用 于 決 定 是 否 允 許 操 作 窗 體 。 True為 允 許 ， False為 禁 止 。 (7)Visible： 用 于 決 定 程 序 運(yùn) 行 時(shí) 窗 體 是 否 可 見(jiàn) 。 True為 可 見(jiàn) ， False為 不 可 見(jiàn) 。 (8)MaxButton， MinButton： 用 于 設(shè) 置 窗 體 右 上 角 的 最 大 化 、 最 小 化 按 鈕 。 只 能 在 屬

21、 性 窗 口 中 設(shè) 置 。 (9)Icon圖 標(biāo) 和 ControlBox控 制 菜 單 ： 在 屬 性 窗 口 中 單 擊 Icon設(shè) 置 框 右 邊 的 “ ” ， 可 以 裝 入 一 個(gè) 擴(kuò) 展 名 為 .ico或 . Cur圖 標(biāo) 文 件 ， 當(dāng)窗 體 最 小 化 時(shí) 加 以 該 圖 標(biāo) 顯 示 。 Icon屬 性 在 程 序 中 設(shè) 置 的 方 法 ： Form1.Icon=Loadpicture(盤 符 路 徑 及 圖 標(biāo) 文 件 名 ) 如 ： form1.icon=loadpicture(“c:abcpict1.ico”) ControlBox屬 性 為 True時(shí) ， 窗

22、體 有 上 角 有 控 制 菜 單 框 ， 為 False時(shí) 則無(wú) 。 控 制 菜 單 以 圖 標(biāo) 形 勢(shì) 顯 示 。 (10)BackColor： 用 于 設(shè) 置 窗 體 或 對(duì) 象 的 背 景 顏 色 。 (11)ForeColor： 用 于 設(shè) 置 窗 體 或 對(duì) 象 的 前 景 顏 色 。 對(duì) 于 窗 體 ， 前 景 色 是 窗 體 上 用 Print方 法 輸 出 的 文 本 的 顏 色 ， 程 序 運(yùn) 行 后 才 能 看 到 。 (12)BorderStyle： 用 于 設(shè) 置 窗 體 邊 框 的 樣 式 。 0 None， 無(wú) 邊 框 ， 無(wú) 法 移 動(dòng) 及 改 變 大 小 1

23、Fixed Single， 單 線 邊 框 ， 可 移 動(dòng) 但 不 可 改 變 大 小 2 Sizeable， 雙 線 邊 框 ， 可 移 動(dòng) 、 改 變 大 小 3 Fixed Dialog， 為 固 定 對(duì) 話 框 ， 不 可 改 變 大 小 4 Fixed ToolWindow， 窗 體 外 觀 與 工 具 條 相 似 ， 有 關(guān) 閉 按 鈕 ， 不 能 改 變 大 小 5 Sizeable ToolWindow， 窗 體 外 觀 與 工 具 條 相 似 ， 有 關(guān) 閉 按 鈕 ， 能 改 變 大 小 (13)Picture： 用 于 設(shè) 置 窗 體 中 要 顯 示 的 圖 片 。 方

24、法 ： 單 擊 Picture設(shè) 置 框 右 邊 的 “ ” ， 便 可 加 載 一 個(gè) 圖 形 文 件 。 在 程 序 中 設(shè) 置 該 屬 性 的 方 法 ： Form1.Picture=LoadPicture(圖 形 文 件 源 路 徑 及 文 件 名 ) 如 ： form1.picture=loadpicture(“d:abcpict1.jpg”)(14)Windows State： 用 于 設(shè) 置 窗 口 的 狀 態(tài) 。 0 Normal， 正 常 狀 態(tài) ， 有 窗 口 邊 界 1 Minimized， 最 小 化 狀 態(tài) ， 以 圖 標(biāo) 方 式 運(yùn) 行 2 Maxmized， 最

25、大 化 狀 態(tài) ， 無(wú) 邊 框 ， 充 滿 整 個(gè) 屏 幕 事 件 分 類 ： 根 據(jù) 來(lái) 源 分 為 ： 鼠 標(biāo) 事 件 、 鍵 盤 事 件 和 系 統(tǒng) 事 件 。 窗 體 最 常 用 的 事 件 ： Click(單 擊 )， DblClick(雙 擊 )和 Load(裝 入 )。 另 外 ： 在 窗 體 裝 載 和 關(guān) 閉 時(shí) ， 系 統(tǒng) 會(huì) 自 動(dòng) 產(chǎn) 生 一 些 事 件 。 Initialize事 件 ， Resize事 件 ， Paint事 件 ， Active事 件 ， Deactive事 件 ， QueryUnload事 件 ， Unload事 件 ， Terminate事 件

26、。 用 戶 使 用 鼠 標(biāo) 或 鍵 盤 操 作 會(huì) 觸 發(fā) 窗 體 的 一 些 事 件 ： MouseDown（ 鼠標(biāo) 按 下 ） ， MouseUp（ 鍵 釋 放 ） ， MouseMove（ 鼠 標(biāo) 移 動(dòng) ） ， keyDown（ 鍵 按 下 ） ， KeyUp（ 鍵 釋 放 ） ， KeyPress（ 鍵 按 下 并 釋 放 ） 1、 Click事 件 當(dāng) 用 戶 將 鼠 標(biāo) 置 于 窗 體 上 ， 按 下 鼠 標(biāo) 左 鍵 并 立 即 釋 放 （ 即 單 擊 操 作 ） ，此 時(shí) 會(huì) 在 窗 體 上 觸 發(fā) Click事 件 。 格 式 ： Private Sub Form_Click

27、 (Index As Integer) End Sub 參 數(shù) 說(shuō) 明 ： 只 有 當(dāng) 對(duì) 象 為 控 件 數(shù) 組 時(shí) ， 參 數(shù) Index才 會(huì) 出 現(xiàn) 。 Index參 數(shù) 值 由 VB自 動(dòng) 傳 入 ， 在 事 件 過(guò) 程 中 可 以 引 用 ， 其 值 代 表 用 戶 單 擊 控 件 數(shù) 組 中 的 那 一 個(gè) 成 員 。 2、 DblClick事 件 當(dāng) 用 戶 在 窗 體 上 用 鼠 標(biāo) 快 速 雙 擊 左 鍵 時(shí) 產(chǎn) 生 DblClick（ 雙 擊 ） 事 件 。 格 式 ： Private Sub Form_DblClick (Index As Integer) End Su

28、b 3、 Load事 件 當(dāng) 窗 體 從 磁 盤 裝 入 內(nèi) 存 時(shí) 引 發(fā) 的 事 件 。 它 由 系 統(tǒng) 操 作 觸 發(fā) 或 通 過(guò) Load語(yǔ) 句 觸 發(fā) 。 經(jīng) 常 用 來(lái) 在 啟 動(dòng) 應(yīng) 用 程 序 時(shí) 對(duì) 屬 性 和 變 量 進(jìn) 行 初 始 化 。 格 式 ： Private Sub Form_Load( ) End Sub 1、 Print方 法 ： 在 窗 體 或 控 件 上 輸 出 變 量 的 值 或 其 他 信 息 。 如 ： form1.print “歡 迎 使 用 Visual Basic” 2、 Cls方 法 ： 清 除 窗 體 或 控 件 上 的 信 息 。 如 ：

29、 form1.cls 3、 Move方 法 ： 移 動(dòng) 窗 體 或 控 件 ， 并 可 改 變 其 大 小 。 如 ： command1.move 120,300 例 【 2-6】 窗 體 無(wú) 最 大 化 按 鈕 和 最 小 化 按 鈕 ， 窗 體 裝 入 時(shí) ， 在 窗 體 的 標(biāo) 題欄 顯 示 “ 裝 入 窗 體 ” ， 并 在 窗 體 上 裝 入 一 幅 圖 片 作 為 背 景 ； 當(dāng) 用 戶 單 擊窗 體 時(shí) ， 在 標(biāo) 題 欄 顯 示 “ 單 擊 ” ， 在 窗 體 上 顯 示 “ 單 擊 窗 體 ” ； 當(dāng) 用 戶雙 擊 窗 體 時(shí) ， 在 標(biāo) 題 欄 顯 示 “ 鼠 標(biāo) 雙 擊

30、” ， 去 除 窗 體 的 背 景 圖 案 ， 并 顯示 “ 雙 擊 窗 體 ”解 題 思 路 ： 首 先 在 窗 體 的 屬 性 列 表 框 中 設(shè) 置 相 應(yīng) 屬 性 值 ； 在 窗 體 的 Load事 件 、 click事 件 和 dblclick事 件 中 填 寫 相 應(yīng) 的 命 令 。 另 ： 窗 體 載 入 圖 片 的 命 令 ： form1.picture=loadpicture(圖 片 所 在 的 路 徑 以 及 圖 片 的 名 稱 ) 清 除 窗 體 載 入 圖 片 的 命 令 ： form1.picture=loadpicture(“”) form1.picture=loa

31、dpicture( ) 2.4.1 標(biāo) 簽 （ Label） 1、 屬 性 標(biāo) 簽 （ Label） 主 要 用 于 顯 示 一 小 段 文 本 ， 通 常 用 來(lái) 標(biāo) 注 本 身 不具 有 Caption屬 性 的 控 件 ， 如 用 標(biāo) 簽 給 文 本 框 附 加 描 述 等 。屬 性 名 屬 性 值 說(shuō) 明Caption 字 符 型 數(shù) 據(jù) 顯 示 在 標(biāo) 簽 上 的 正 文 （ 標(biāo) 題 ）Alignment 0,1,2 0 靠 左 ， 1 靠 右 ， 2 居 中AutoSize True,False 根 據(jù) 顯 示 的 標(biāo) 題 自 動(dòng) 調(diào) 整 大 小BorderStyle 0,1 0

32、無(wú) 邊 框 ,1 有 邊 框 (單 邊 框 )BackStyle 0,1 0 透 明 ， 其 后 的 背 景 色 和 內(nèi) 容 為 可 見(jiàn) ，1 非 透 明 ， 可 隱 藏 其 后 的 背 景 色 和 內(nèi) 容 2、 事 件 標(biāo) 簽 可 以 觸 發(fā) Click和 DblClick等 事 件 ， 但 很 少 用 來(lái) 觸 發(fā) 。 2.4.1 標(biāo) 簽 （ Label） 例 【 2 7】 在 窗 體 創(chuàng) 建 兩 個(gè) 標(biāo) 簽 ， 但 單 擊 一 次 窗 體 后 ， 將 兩 個(gè) 標(biāo) 簽上 的 內(nèi) 容 交 換 。 解 題 思 路 ： 觸 發(fā) 的 事 件 為 ： 窗 體 的 click事 件 。Temp AB T

33、emp=A （ 1） A=B (2) B=Temp (3) 2.4.2 文 本 框 1、 屬 性 文 本 框 （ TextBox） 提 供 一 個(gè) 既 能 顯 示 又 能 編 輯 文 本 的 區(qū) 域 。 在 程 序運(yùn) 行 中 ， 可 在 文 本 框 中 輸 入 正 文 ， 也 可 對(duì) 其 中 的 文 字 進(jìn) 行 選 擇 、 刪 除 、復(fù) 制 和 粘 貼 等 操 作 。屬 性 名 屬 性 值 說(shuō) 明Text 字 符 型 數(shù) 據(jù) 文 本 框 中 顯 示 的 文 字 內(nèi) 容 。MaxLength 數(shù) 值 型 數(shù) 據(jù) 允 許 輸 入 的 最 大 字 符 數(shù) 。 0 無(wú) 限 制MultiLine Tru

34、e,False 是 否 允 許 輸 入 多 行 文 字PassWordChar 字 符 型 數(shù) 據(jù) 設(shè) 置 密 碼 輸 入 。 空 ， 則 原 樣 顯 示ScrollBars 0， 1， 2， 3 0 無(wú) 滾 動(dòng) 條 ， 1 水 平 滾 動(dòng) 條 ， 2 垂 直 滾 動(dòng)條 ， 3 水 平 、 垂 直 滾 動(dòng) 條 SelLength 數(shù) 值 型 數(shù) 據(jù) 框 中 當(dāng) 前 選 中 的 字 符 個(gè) 數(shù) 。 只 能 在 程 序 運(yùn) 行中 設(shè) 置 和 返 回 2.4.2 文 本 框 TextBox屬 性 名 屬 性 值 說(shuō) 明SelStart 數(shù) 值 型 數(shù) 據(jù) 當(dāng) 前 選 中 的 字 符 中 第 一 個(gè)

35、字 符 的 位 置 。 只 能在 程 序 運(yùn) 行 中 設(shè) 置 和 返 回SelText 字 符 型 數(shù) 據(jù) 當(dāng) 前 心 中 的 文 字 內(nèi) 容 。 只 能 在 程 序 運(yùn) 行 中 設(shè)置 和 返 回Locked True， False 是 否 鎖 定 文 本 框 。2、 事 件 ： 除 Click、 DblClick事 件 外 ， 還 有 以 下 事 件 （ 1） Change： 當(dāng) 文 本 框 的 Text屬 性 值 發(fā) 生 變 化 時(shí) ， 將 觸 發(fā) 此 事 件 。 （ 2） GotFocus： 當(dāng) 文 本 框 獲 得 焦 點(diǎn) 時(shí) ， 觸 發(fā) 該 事 件 。 (3） LostFocus： 當(dāng)

36、 文 本 框 失 去 焦 點(diǎn) 時(shí) ， 觸 發(fā) 該 事 件 。 （ 4） KeyPress： 當(dāng) 文 本 框 獲 得 焦 點(diǎn) 后 ， 并 在 鍵 盤 按 下 某 一 個(gè) 鍵 時(shí) 觸 發(fā) 該 事 件 1、 屬 性 （ 續(xù) ) 2.4.2 文 本 框3、 方 法 常 用 方 法 為 SetFocus方 法 。 調(diào) 用 此 方 法 可 以 使 文 本 框 獲 得 焦 點(diǎn) 。例 【 2-8】 在 窗 體 上 建 立 三 個(gè) 文 本 框 ， 單 擊 窗 體 后 ， 利 用 文 本 框 的 change事 件 在 另 兩 個(gè) 文 本 框 中 顯 示 第 一 個(gè) 文 本 框 文 字 的 大 小 寫 。解 題

37、思 路 : 觸 發(fā) 的 事 件 為 第 一 個(gè) 文 本 框 的 change事 件 ； 將 字 符 串 轉(zhuǎn) 換 為 小寫 的 函 數(shù) 為 Lcase()； 將 字 符 串 轉(zhuǎn) 換 為 大 寫 的 函 數(shù) 為 Ucase()。 Private Sub Text1_Change() text2.text=lcase(text1.text) text3.text=ucase(text1.text)End Sub 2.4.3 命 令 按 鈕 Command Button 1、 屬 性 屬 性 名 屬 性 值 說(shuō) 明Caption 字 符 型 數(shù) 據(jù) 在 按 鈕 上 顯 示 的 標(biāo) 題 信 息 ， 可

38、在 其 某 個(gè) 字 母 前加 “ &”， 則 該 字 母 將 帶 下 劃 線 成 為 快 捷 鍵 ， 當(dāng)用 戶 按 下 Alt+快 捷 鍵 相 當(dāng) 于 用 鼠 標(biāo) 單 擊 該 鍵Cancel 邏 輯 型 數(shù) 據(jù) 該 屬 性 若 為 True， 按 鍵 盤 的 ESC鍵 與 單 擊 該 命令 相 同 。 在 一 個(gè) 窗 體 中 ， 只 允 許 一 個(gè) 命 令 按 鈕的 Cancel屬 性 設(shè) 為 TrueDefault 邏 輯 型 數(shù) 據(jù) 該 屬 性 為 True時(shí) ， 若 窗 體 中 的 按 鈕 都 不 具 有 焦點(diǎn) ， 則 按 回 車 鍵 與 單 擊 該 命 令 的 按 鈕 作 用 相 同

39、。在 一 個(gè) 窗 體 中 只 允 許 一 個(gè) 命 令 按 鈕 的 Default屬性 為 True ToolTipText 字 符 型 數(shù) 據(jù) 設(shè) 置 當(dāng) 鼠 標(biāo) 在 控 件 上 暫 停 時(shí) 顯 示 的 文 本 2.4.3 命 令 按 鈕 （ Command Button）2、 事 件 常 用 事 件 為 Click事 件 。例 【 2-9】 在 窗 體 上 設(shè) 置 兩 個(gè) 按 鈕 和 一 個(gè) 文 本 框 ， 在 文 本 框 中 顯 示 命令 按 鈕 點(diǎn) 擊 的 次 數(shù) 。解 題 思 路 ： 設(shè) 置 一 個(gè) 統(tǒng) 計(jì) 點(diǎn) 擊 次 數(shù) 的 變 量 。 將 該 變 量 的 值 顯 示 在 文本 框

40、中 。控 件 Caption Default Cancel Text TabindexCommand1 命 令 按 鈕 True False 1Command2 退 出 False True 2 Text 空 0 2.4.4 焦 點(diǎn) 與 Tab順 序1、 焦 點(diǎn) 焦 點(diǎn) 是 指 控 件 對(duì) 象 接 受 鼠 標(biāo) 或 鍵 盤 輸 入 的 能 力 。 只 有 具 有 焦 點(diǎn) 的 控件 對(duì) 象 才 能 接 受 用 戶 由 鼠 標(biāo) 和 鍵 盤 的 輸 入 。 當(dāng) 控 件 對(duì) 象 獲 得 焦 點(diǎn) 時(shí) ， 觸 發(fā) GotFocus事 件 ， 失 去 焦 點(diǎn) 時(shí) ， 觸 發(fā)LostFocus事 件 。 大 多

41、 數(shù) 控 件 都 支 持 以 上 兩 個(gè) 事 件 。 控 件 對(duì) 象 獲 得 焦 點(diǎn) 的 途 徑 ： （ 1） 直 接 操 作 ： 比 如 用 Tab鍵 或 用 快 捷 鍵 、 鼠 標(biāo) 直 接 點(diǎn) 擊 ； （ 2） 在 程 序 中 調(diào) 用 SetFocus方 法 ； 2、 Tab順 序 在 程 序 運(yùn) 行 中 ， 當(dāng) 按 下 Tab鍵 時(shí) ， 焦 點(diǎn) 將 在 該 程 序 的 控 件 上 順 序 移動(dòng) ， 這 就 是 Tab順 序 。 通 常 ， 在 設(shè) 計(jì) 程 序 過(guò) 程 中 ， Tab順 序 是 由 控 件 的 建 立 順 序 決 定 的 。 若 要 修 改 Tab順 序 ， 需 要 改 變

42、 TabIndex的 屬 性 值 即 可 。 2.4.5 控 件 的 默 認(rèn) 屬 性 控 件 的 默 認(rèn) 屬 性 是 指 在 程 序 運(yùn) 行 中 ， 不 必 指 定 控 件 的 屬 性 名 就 可 以改 變 其 值 的 屬 性 。 如 ： 文 本 框 的 默 認(rèn) 屬 性 為 Text， 則 以 下 的 賦 值 是 等 價(jià) 的 : Text1.text =“ Visual Basic” Text1=“ Visual Basic”控 件 名 稱 默 認(rèn) 屬 性 控 件 名 稱 默 認(rèn) 屬 性文 本 框 （ Text） Text 標(biāo) 簽 (Label) Caption命 令 按 鈕 (Command

43、 Button) Default 圖 形 、 圖 像 框 Picture單 選 按 鈕 (OptionButton) Value 復(fù) 選 框 (CheckBox) Value 1、 在 窗 體 上 建 立 對(duì) 象2、 設(shè) 置 對(duì) 象 的 屬 性3、 編 寫 對(duì) 象 事 件 過(guò) 程4、 保 存 和 運(yùn) 行 程 序 例 【 2-10】 編 寫 一 個(gè) 圖 片 瀏 覽 器 ， 以 實(shí) 現(xiàn) 對(duì) 兩 幅 圖 片 內(nèi) 容 進(jìn) 行 瀏 覽 。解 題 思 路 ： 在 窗 體 上 放 置 一 個(gè) 圖 片 框 和 三 個(gè) 命 令 按 鈕 。Private Sub Command1_Click( ) picture

44、1.picture=loadpicture(“d:abctu1.jpg”)End Sub Private Sub Command2_Click( ) picture1.picture=loadpicture(“d:abctu1.jpg”)End Sub 2.6.1 工 程 的 構(gòu) 成一 個(gè) VB工 程 共 包 含 7鐘 類 型 文 件 1、 工 程 文 件 (.vbp) 該 文 件 共 包 含 與 該 工 程 有 關(guān) 的 全 部 文 件 和 對(duì) 象 的 清 單 。 2、 窗 體 文 件 (.frm) 該 文 件 包 含 窗 體 及 控 件 對(duì) 象 的 屬 性 設(shè) 置 ； 窗 體 級(jí) 的 變 量

45、 和 外 部過(guò) 程 的 聲 明 ； 事 件 過(guò) 程 和 用 戶 自 定 義 過(guò) 程 。 每 一 個(gè) 窗 體 都 有 一 個(gè) 窗 體文 件 。 3、 窗 體 的 二 進(jìn) 制 文 件 （ .frx) 當(dāng) 窗 體 或 控 件 的 數(shù) 據(jù) 含 有 二 進(jìn) 制 屬 性 （ 如 圖 片 或 圖 標(biāo) ） ， 將 窗體 文 件 保 存 時(shí) ， 系 統(tǒng) 會(huì) 自 動(dòng) 產(chǎn) 生 同 名 的 .frx文 件 。 4、 標(biāo) 準(zhǔn) 模 塊 文 件 （ .bas) 該 文 件 包 含 模 塊 級(jí) 的 變 量 和 外 部 過(guò) 程 聲 明 ； 用 戶 自 定 義 的 、 可供 本 工 程 內(nèi) 各 窗 體 調(diào) 用 的 過(guò) 程 。 該

46、 文 件 可 選 。 2.6.1 工 程 的 構(gòu) 成 5、 類 模 塊 文 件 (.cls) 該 文 件 可 選 。 用 于 創(chuàng) 建 含 有 屬 性 和 方 法 的 用 戶 自 己 的 對(duì) 象 。 6、 資 源 文 件 (.res) 該 文 件 可 選 ， 包 含 不 必 重 新 編 輯 代 碼 就 可 以 位 圖 、 字 符 串 和 其他 數(shù) 據(jù) 。 7、 ActiveX控 件 的 文 件 （ .ocx) 該 文 件 可 以 添 加 到 工 具 箱 并 在 窗 體 中 應(yīng) 用 。 2.6.2 創(chuàng) 建 、 打 開(kāi) 和 保 存 工 程 1、 新 建 工 程 2、 打 開(kāi) 工 程 3、 保 存 工

47、 程 4、 工 程 另 存 為 說(shuō) 明 ： （ 1） 保 存 工 程 文 件 時(shí) ， VB還 將 自 動(dòng) 保 存 與 工 程 有 關(guān) 的 修 改 過(guò) 的 窗 體 或 標(biāo)準(zhǔn) 模 塊 等 文 件 。 （ 2） VB可 以 同 時(shí) 打 開(kāi) 多 個(gè) 工 程 ， 構(gòu) 成 工 程 組 ， 工 程 組 文 件 擴(kuò) 展 名為 .vbg。 使 用 工 程 組 對(duì) 調(diào) 用 ActiveX控 件 很 有 用 。 通 過(guò) “ 文 件 ” 菜 單 的 “ 添 加工 程 ” 向 當(dāng) 前 工 程 添 加 附 加 工 程 ； 通 過(guò) “ 刪 除 工 程 ” ， 可 以 從 當(dāng) 前 工 程 組 刪除 一 個(gè) 工 程 。 （ 3

48、） 單 個(gè) 窗 體 或 模 塊 文 件 可 以 在 幾 個(gè) 工 程 文 件 間 共 享 ， 對(duì) 一 個(gè) 工 程 中的 窗 體 或 模 塊 所 作 的 改 變 ， 會(huì) 影 響 到 共 享 該 模 塊 的 所 有 工 程 。 2.6.3 添 加 、 刪 除 和 保 存 文 件 1、 工 程 菜 單 2、 文 件 菜 單 說(shuō) 明 ： （ 1） 窗 體 名 和 窗 體 文 件 名 是 不 同 的 概 念 。 窗 體 名 是 窗 體 文 件 的 Name屬 性 ， 在 程 序 中 可 用 窗 體 名 稱 來(lái) 引 用 窗 體 ， 同一 工 程 中 的 多 個(gè) 窗 體 不 能 同 名 ； 窗 體 文 件 名

49、 是 窗 體 文 件 存 放 在 磁 盤 上 的 文 件 名 ， 該 文 件 包 含 了 窗 體 上 所有 控 件 的 屬 性 和 控 件 事 件 過(guò) 程 代 碼 ， 同 一 工 程 中 不 能 有 相 同 的 窗 體 文 件 名 ； （ 2） 在 工 程 添 加 文 件 時(shí) ， 系 統(tǒng) 只 是 將 對(duì) 于 該 現(xiàn) 存 文 件 的 引 用 納 入 工 程 ，而 不 是 復(fù) 制 到 工 程 中 。 故 如 添 加 進(jìn) 工 程 后 文 件 更 改 后 保 存 ， 將 會(huì) 影 響 包 含 此 文件 的 任 何 工 程 。 （ 3） 在 工 程 中 刪 除 文 件 ， VB將 在 保 存 此 工 程

50、時(shí) 更 新 工 程 文 件 中 的 這 一 信息 ， 文 件 雖 從 工 程 中 刪 除 了 ， 但 該 文 件 仍 保 存 在 磁 盤 上 。 2.6.3 添 加 、 刪 除 和 保 存 文 件 （ 4） 對(duì) 工 程 中 的 文 件 改 名 ： 方 法 一 ： 將 窗 體 文 件 “ 另 存 為 ” 規(guī) 定 的 文 件 名 后 ， 再 將 原 文 件 名 的 文 件刪 除 ； 方 法 二 ： 在 文 件 夾 中 將 該 文 件 重 新 命 名 后 ， 再 在 文 本 編 輯 器 中 打 開(kāi) 工 程文 件 ， 修 改 其 中 的 “ form *.frm” 語(yǔ) 句 。 （ 5） 若 工 程 中 包 含 多 個(gè) 窗 體 ， 則 必 須 指 定 啟 動(dòng) 窗 體 。 VB菜 單 工 程 工 程 1屬 性 2.6.4 工 程 環(huán) 境 設(shè) 置 打 開(kāi) “ 工 具 ” 菜 單 下 的 “ 選 項(xiàng) ” 命 令 ： 1、 “ 編 輯 器 ” 選 項(xiàng) 卡 ： 用 于 設(shè) 置 代 碼 窗 口 和 工 程 窗 口 的 一 些 特 殊屬 性 。 2、 “ 通 用 ” 選 項(xiàng) 卡 ： 為 當(dāng) 前 的 VB工 程 設(shè) 置 窗 體 網(wǎng) 格 信 息 ， 錯(cuò) 誤 處理 方 式 以 及 編 譯 方 式 。