項(xiàng)目8 制作簡(jiǎn)單記事本

1、VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程 主編主編 管小清管小清 郭賀彬郭賀彬 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 項(xiàng)目八項(xiàng)目八 制作簡(jiǎn)單記事本制作簡(jiǎn)單記事本 n項(xiàng)目目標(biāo)：項(xiàng)目目標(biāo)： n本項(xiàng)目是制作一個(gè)簡(jiǎn)易的記事本（類似于本項(xiàng)目是制作一個(gè)簡(jiǎn)易的記事本（類似于Windows 自自 帶的記事本），能夠?qū)崿F(xiàn)文件的存取等基本操作；設(shè)帶的記事本），能夠?qū)崿F(xiàn)文件的存取等基本操作；設(shè) 計(jì)出相關(guān)的菜單欄，并實(shí)現(xiàn)部分菜單項(xiàng)的基本功能；計(jì)出相關(guān)的菜單欄，并實(shí)現(xiàn)部分菜單項(xiàng)的基本功能； 利用公共對(duì)話框來設(shè)置一些常用的功能（字體設(shè)置，利用公共對(duì)話框來設(shè)置一些常用的功能（

2、字體設(shè)置， 顏色設(shè)置，打印以及文件操作等）。顏色設(shè)置，打印以及文件操作等）。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 項(xiàng)目八項(xiàng)目八 制作簡(jiǎn)單記事本制作簡(jiǎn)單記事本 n項(xiàng)目主要知識(shí)點(diǎn)：項(xiàng)目主要知識(shí)點(diǎn)： n1、RichTextBox的使用的使用 n文件操作方法文件操作方法 n常用格式化屬性常用格式化屬性 n插入圖像插入圖像 n2、菜單編輯器的使用、菜單編輯器的使用 n設(shè)計(jì)菜單的操作步驟設(shè)計(jì)菜單的操作步驟 n打開菜單編輯器的方法打開菜單編輯器的方法 n菜單編輯器的組成部分菜單編輯器的組成部分 n3、公共對(duì)話框（、公共對(duì)話框（CommonDialog）的使用）的

3、使用 n通用對(duì)話框基本屬性通用對(duì)話框基本屬性 n通用對(duì)話框的方法通用對(duì)話框的方法 n打開對(duì)話框的方法打開對(duì)話框的方法 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 項(xiàng)目八項(xiàng)目八 制作簡(jiǎn)單記事本制作簡(jiǎn)單記事本 n4、位置屬性和字體屬性、位置屬性和字體屬性 n5、編程思想的培養(yǎng)、編程思想的培養(yǎng) n項(xiàng)目實(shí)施步驟：項(xiàng)目實(shí)施步驟： n閱讀相關(guān)基礎(chǔ)知識(shí)閱讀相關(guān)基礎(chǔ)知識(shí) n界面設(shè)計(jì)界面設(shè)計(jì) o窗體設(shè)計(jì)窗體設(shè)計(jì) o控件屬性設(shè)置控件屬性設(shè)置 o添加菜單欄添加菜單欄 o添加公用對(duì)話框添加公用對(duì)話框 n程序設(shè)計(jì)程序設(shè)計(jì) o編程初步編程初步 o程序代碼程序代碼 n程序調(diào)試，功能完善

4、程序調(diào)試，功能完善 n保存項(xiàng)目工程和再次打開工程保存項(xiàng)目工程和再次打開工程 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n8.1.1 高級(jí)文本框控件高級(jí)文本框控件 n高級(jí)文本框控件高級(jí)文本框控件(RichTextBox)可用于輸入和編輯文本，它同時(shí)可用于輸入和編輯文本，它同時(shí) 提供了比常規(guī)的提供了比常規(guī)的TextBox控件更高級(jí)的格式特性?？丶呒?jí)的格式特性。 n從前幾章可以知道，對(duì)從前幾章可以知道，對(duì)Text控件只能進(jìn)行單一的文字格式設(shè)置。控件只能進(jìn)行單一的文字格式設(shè)置。 使用使用RichTextBox控件可以實(shí)

5、現(xiàn)多種文字格式、段落等的設(shè)置，控件可以實(shí)現(xiàn)多種文字格式、段落等的設(shè)置， 還可以插入圖形，可真正構(gòu)成一個(gè)像還可以插入圖形，可真正構(gòu)成一個(gè)像Word一樣的字處理軟件。一樣的字處理軟件。 n要使用要使用RichTextBox控件，必須打開控件，必須打開“部件部件”對(duì)話框，選擇對(duì)話框，選擇 “Microsoft Rich TextBox Controls 6.0”，將控件添加到工具，將控件添加到工具 箱。箱。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n1、文件操作方法、文件操作方法 n用用LoadFile和和SaveFi

6、le方法，可以方便地為方法，可以方便地為RichTextBox控件打開或保存文件?？丶蜷_或保存文件。 n（1）LoadFile方法方法 n格式：對(duì)象格式：對(duì)象.LoadFile 文件標(biāo)識(shí)符，文件類型文件標(biāo)識(shí)符，文件類型 n功能：功能：LoadFile方法能夠?qū)⒎椒軌驅(qū)TF文件或文本文件裝入控件中。文件或文本文件裝入控件中。 n說明：說明： n文件類型取值文件類型取值0或或rtfRTF時(shí)為時(shí)為RTF文件文件(缺省缺省)。 n文件類型取文件類型取1或或rtfTEXT時(shí)為文本文件。時(shí)為文本文件。 n過程存放在標(biāo)準(zhǔn)模塊中，利用過程存放在標(biāo)準(zhǔn)模塊中，利用CommonDialog控件提供路徑名?？丶?/p>

7、提供路徑名。 n（2）SaveFile方法方法 n格式：對(duì)象格式：對(duì)象.SaveFile(文件標(biāo)識(shí)符，文件類型文件標(biāo)識(shí)符，文件類型) n功能：該方法能夠?qū)⒖丶械奈臋n保存在功能：該方法能夠?qū)⒖丶械奈臋n保存在RTF文件或文本文件中。文件或文本文件中。 n例如：下面語句把文檔以例如：下面語句把文檔以RTF格式保存在格式保存在D盤盤My子目錄的子目錄的T1.txt文件中。文件中。 n RichTextBox1.SaveFile(D:myT1.txt,rtfTEXT) n完整的保存文件的完整的保存文件的FileSaveProc過程，可參照過程，可參照FileOpenProc過程，請(qǐng)讀者自行過程，請(qǐng)讀

8、者自行 完成。完成。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n2、常用格式化屬性、常用格式化屬性 nRichTextBox控件提供了一控件提供了一 些屬性，可對(duì)該控件中任何些屬性，可對(duì)該控件中任何 部分的文本使用不同的格式。部分的文本使用不同的格式。 例如可以將文本變?yōu)榇煮w或例如可以將文本變?yōu)榇煮w或 斜體，改變文本的顏色，創(chuàng)斜體，改變文本的顏色，創(chuàng) 建上標(biāo)或下標(biāo)?？梢哉{(diào)整段建上標(biāo)或下標(biāo)?？梢哉{(diào)整段 落的左右縮進(jìn)值，還可以使落的左右縮進(jìn)值，還可以使 用懸掛式縮進(jìn)。為了壓縮篇用懸掛式縮進(jìn)。為了壓縮篇 幅，列出了常用

9、格式屬性如幅，列出了常用格式屬性如 表表8-1所示所示： 表8-1RichTextBox常用屬性 分類分類屬性屬性 值類值類 型型 說明說明 選中文 本 SelText Selstart Sellength 意義同Text控件對(duì)應(yīng) 屬性 字體、 字 號(hào) Selfontname selfontsize 當(dāng)前選定的文本的字 體字號(hào) 字型 Selbold SelItalic SelUnderline SelStrikethru 邏輯 量 粗體、斜體、下劃線、 刪除線 上、下 標(biāo) SelCharoffset整型 0上標(biāo)0下標(biāo)以Twip 為單位 顏色SelColor整型 縮排 SelIndex SelR

10、ightInde nt SelHaningIndent 數(shù)值 型 縮排單位以ScalMode 決定 對(duì)齊SelAlignment整型0 左 1右 2中 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n3、插入圖像、插入圖像 n格式：對(duì)象格式：對(duì)象.OLEObjects.Add索引索引，關(guān)鍵字關(guān)鍵字，文件標(biāo)識(shí)符，文件標(biāo)識(shí)符 n功能：在功能：在RichTextBox控件中，可插入（控件中，可插入（*.bmp）圖像文件。）圖像文件。 n說明：說明： nOLEObjects是一個(gè)集合，包括一組添加到是一個(gè)集合，包括一組添加到R

11、ichTextBox控件的控件的 對(duì)象。對(duì)象。 n“索引索引”和和“關(guān)鍵字關(guān)鍵字”分別表示添加的元素編號(hào)和標(biāo)識(shí)，可省略，分別表示添加的元素編號(hào)和標(biāo)識(shí)，可省略， 但逗號(hào)不能省。但逗號(hào)不能省。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n8.1.2 通用對(duì)話框的使用通用對(duì)話框的使用 n通用對(duì)話框是一種通用對(duì)話框是一種ActiveX控件，它隨同控件，它隨同VB提供給程序設(shè)計(jì)人員。在一提供給程序設(shè)計(jì)人員。在一 般情況下，啟動(dòng)般情況下，啟動(dòng)VB后，在工具箱中沒有通用對(duì)話框控件。為了把通用對(duì)后，在工具箱中沒有通用對(duì)話框控件。為

12、了把通用對(duì) 話框控件加到工具箱中，其操作步驟如下：話框控件加到工具箱中，其操作步驟如下： n執(zhí)行執(zhí)行“工程工程”菜單中的菜單中的“部件部件”命令，打開命令，打開“部件部件”對(duì)話框。對(duì)話框。 n在對(duì)話框中，選擇在對(duì)話框中，選擇“控件控件”選項(xiàng)卡，然后在控件列表框中，選擇選項(xiàng)卡，然后在控件列表框中，選擇 “Microsoft Common Dialog Control 6.0”，如圖，如圖8-3所示。所示。 n單擊單擊“確定確定”按鈕，通用對(duì)話框立即被加到工具箱中，如圖按鈕，通用對(duì)話框立即被加到工具箱中，如圖8-2所示。所示。 n通用對(duì)話框的默認(rèn)名稱通用對(duì)話框的默認(rèn)名稱(Name屬性屬性)為為Co

13、mmonDialogX(X為為1，2，3)。 n通用對(duì)話框控件為程序設(shè)計(jì)人員提供了幾種不同類型的對(duì)話框，利用這通用對(duì)話框控件為程序設(shè)計(jì)人員提供了幾種不同類型的對(duì)話框，利用這 些對(duì)話框，可以獲取所需要的信息，打開文件、將文件存盤、選擇顏色、些對(duì)話框，可以獲取所需要的信息，打開文件、將文件存盤、選擇顏色、 選擇字體、打印、幫助。這些對(duì)話框與選擇字體、打印、幫助。這些對(duì)話框與Windows本身及許多應(yīng)用程序具本身及許多應(yīng)用程序具 有相同的風(fēng)格。對(duì)話框的類型可以通過有相同的風(fēng)格。對(duì)話框的類型可以通過Action屬性設(shè)置，也可以用相應(yīng)屬性設(shè)置，也可以用相應(yīng) 的方法設(shè)置。的方法設(shè)置。 VBVB程序設(shè)計(jì)項(xiàng)目

14、化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n1、通用對(duì)話框的基本屬性、通用對(duì)話框的基本屬性 n（1）Action屬性屬性 n該屬性直接決定打開何種類型的對(duì)話框。該屬性直接決定打開何種類型的對(duì)話框。 n1Open：打開文件對(duì)話框；：打開文件對(duì)話框； n2Save As：另存為對(duì)話框；：另存為對(duì)話框； n3Color：顏色對(duì)話框；：顏色對(duì)話框； n4Font：字體對(duì)話框；：字體對(duì)話框； n5Printer：打印機(jī)對(duì)話框；：打印機(jī)對(duì)話框； n6Help：幫助對(duì)話框。：幫助對(duì)話框。 n該屬性不能在屬性窗口中設(shè)置，只能在程序中賦值，用于調(diào)出相該

15、屬性不能在屬性窗口中設(shè)置，只能在程序中賦值，用于調(diào)出相 應(yīng)的對(duì)話框。應(yīng)的對(duì)話框。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n（2）DialogTitle屬性屬性 n該屬性用來設(shè)置對(duì)話框的標(biāo)題，可以是任意字符串。在默認(rèn)情況該屬性用來設(shè)置對(duì)話框的標(biāo)題，可以是任意字符串。在默認(rèn)情況 下，下，“打開打開”對(duì)話框的標(biāo)題是對(duì)話框的標(biāo)題是“打開打開”，“另存為另存為”對(duì)話框的標(biāo)對(duì)話框的標(biāo) 題是題是“另存為另存為”。 n通用對(duì)話框的屬性設(shè)置不僅可以在屬性窗口中設(shè)置，也可以在屬通用對(duì)話框的屬性設(shè)置不僅可以在屬性窗口中設(shè)置，也可以在

16、屬 性頁對(duì)話框中設(shè)置。打開屬性頁對(duì)話框的方法是：在窗體上的通性頁對(duì)話框中設(shè)置。打開屬性頁對(duì)話框的方法是：在窗體上的通 用對(duì)話框控件上單擊右鍵，在彈出的快捷菜單中，選擇用對(duì)話框控件上單擊右鍵，在彈出的快捷菜單中，選擇“屬性屬性” 命令，通用對(duì)話框控件屬性頁對(duì)話框中，有命令，通用對(duì)話框控件屬性頁對(duì)話框中，有5個(gè)選項(xiàng)卡，對(duì)不同個(gè)選項(xiàng)卡，對(duì)不同 類型的對(duì)話框設(shè)置屬性，就要選擇不同的選項(xiàng)卡。例如，要對(duì)字類型的對(duì)話框設(shè)置屬性，就要選擇不同的選項(xiàng)卡。例如，要對(duì)字 體對(duì)話框進(jìn)行設(shè)置，就選定體對(duì)話框進(jìn)行設(shè)置，就選定“字體字體”選項(xiàng)卡。選項(xiàng)卡。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水

17、利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n2、通用對(duì)話框的方法、通用對(duì)話框的方法 n為了打開通用對(duì)話框，為了打開通用對(duì)話框，VB還提供了一組方法，用來打開通用對(duì)話還提供了一組方法，用來打開通用對(duì)話 框，對(duì)話框類型及方法如表框，對(duì)話框類型及方法如表8-2所示。這些方法是：所示。這些方法是： nShowOpen：打開文件對(duì)話框；：打開文件對(duì)話框； nShowSave：打開另存為對(duì)話框；：打開另存為對(duì)話框； nShowColor：選擇顏色對(duì)話框；：選擇顏色對(duì)話框； nShowFont：選擇字體對(duì)話框；：選擇字體對(duì)話框； nShowPrinter：打開打印對(duì)話框；：打開打印對(duì)話框； nS

18、howHelp：調(diào)出幫助對(duì)話框。：調(diào)出幫助對(duì)話框。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n 表表8-2 對(duì)話框類型及方法對(duì)話框類型及方法 n通用對(duì)話框的使用方式有：打開對(duì)話框、另存為對(duì)話框、顏色對(duì)通用對(duì)話框的使用方式有：打開對(duì)話框、另存為對(duì)話框、顏色對(duì) 話框、字體對(duì)話框、打印機(jī)對(duì)話框和幫助對(duì)話框的使用方法。話框、字體對(duì)話框、打印機(jī)對(duì)話框和幫助對(duì)話框的使用方法。 對(duì)話框類型Action屬性值方法 打開打開1ShowOpen 另存為另存為2ShowSave 顏色顏色3ShowColor 字體字體4ShowFont

19、 打印打印5ShowPrinter 幫助幫助6ShowHelp VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n3、打開、打開(Open)對(duì)話框?qū)υ捒?n（1）文件對(duì)話框的結(jié)構(gòu)）文件對(duì)話框的結(jié)構(gòu) n文件對(duì)話框分為兩種，即打開文件對(duì)話框分為兩種，即打開(Open)文件對(duì)話框和另存為文件對(duì)話框和另存為(Save As)文件對(duì)話框。文件對(duì)話框。 通用對(duì)話框的重要用途之一，就是從用戶那里獲得文件名信息。打開文件對(duì)話框通用對(duì)話框的重要用途之一，就是從用戶那里獲得文件名信息。打開文件對(duì)話框 可以讓用戶指定一個(gè)文件，由程序來實(shí)現(xiàn)；而

20、用保存文件對(duì)話框可以指定一個(gè)文可以讓用戶指定一個(gè)文件，由程序來實(shí)現(xiàn)；而用保存文件對(duì)話框可以指定一個(gè)文 件，并以這個(gè)文件名保存當(dāng)前文件。從結(jié)構(gòu)上來說，件，并以這個(gè)文件名保存當(dāng)前文件。從結(jié)構(gòu)上來說，“打開打開”和和“另存為另存為”對(duì)話對(duì)話 框是類似的。如圖框是類似的。如圖8-1所示：所示： 圖8-1“打開”對(duì)話框 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n各部分的作用如下：各部分的作用如下： n對(duì)話框標(biāo)題：通用對(duì)話框的標(biāo)題，通過對(duì)話框標(biāo)題：通用對(duì)話框的標(biāo)題，通過DialogTitle屬性設(shè)置。屬性設(shè)置。 n文件夾：用

21、來顯示文件夾。單擊右端的箭頭，將顯示驅(qū)動(dòng)器和文文件夾：用來顯示文件夾。單擊右端的箭頭，將顯示驅(qū)動(dòng)器和文 件夾的列表，可以在該列表中選擇所需要的文件夾。件夾的列表，可以在該列表中選擇所需要的文件夾。 n選擇文件夾級(jí)別：?jiǎn)螕粢淮卧摪粹o回退一個(gè)文件夾級(jí)別。選擇文件夾級(jí)別：?jiǎn)螕粢淮卧摪粹o回退一個(gè)文件夾級(jí)別。 n新文件夾：用來建立新文件夾。新文件夾：用來建立新文件夾。 n文件列表模式：選擇是否以列表方式顯示文件和文件夾。文件列表模式：選擇是否以列表方式顯示文件和文件夾。 n文件細(xì)節(jié)：顯示文件的詳細(xì)情況，包括文件名、文件大小、建立文件細(xì)節(jié)：顯示文件的詳細(xì)情況，包括文件名、文件大小、建立 (修改修改)日期、

22、時(shí)間及屬性等。日期、時(shí)間及屬性等。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.1 第第1步：基礎(chǔ)知識(shí)步：基礎(chǔ)知識(shí) n文件列表：在該區(qū)域顯示的是文件列表：在該區(qū)域顯示的是“文件夾文件夾”欄內(nèi)文件夾的子目錄，欄內(nèi)文件夾的子目錄， 列出了準(zhǔn)備使用的文件或文件夾，單擊其中的文件名將選擇該文列出了準(zhǔn)備使用的文件或文件夾，單擊其中的文件名將選擇該文 件，所選擇的文件名將在件，所選擇的文件名將在“文件名文件名”欄內(nèi)顯示出來。如果當(dāng)前顯欄內(nèi)顯示出來。如果當(dāng)前顯 示的文件列表中沒有所需要的文件，可雙擊其中的文件夾顯示下示的文件列表中沒有所需要的文件，可雙擊其中的文件夾

23、顯示下 一級(jí)的文件或文件夾。一級(jí)的文件或文件夾。 n文件類型：指定要打開或要保存的文件的類型，該類型由通用對(duì)文件類型：指定要打開或要保存的文件的類型，該類型由通用對(duì) 話框的話框的Filter屬性確定。屬性確定。 n文件名：所選擇的或輸入的文件名。用文件名：所選擇的或輸入的文件名。用“打開打開”或或“另存為另存為”對(duì)對(duì) 話框都可以指定一個(gè)文件名，所指定的文件名在該欄內(nèi)顯示，單話框都可以指定一個(gè)文件名，所指定的文件名在該欄內(nèi)顯示，單 擊擊“打開打開”或或“另存為另存為”按鈕后，將以該文件名打開或保存文件。按鈕后，將以該文件名打開或保存文件。 n在對(duì)話框的右下部還有兩個(gè)按鈕，即在對(duì)話框的右下部還有兩

24、個(gè)按鈕，即“打開打開”和和“取消取消”。在。在 “另存為另存為”對(duì)話框中，對(duì)話框中，“打開打開”按鈕用按鈕用“保存保存”取代。取代。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.2 第第2步：設(shè)計(jì)窗體步：設(shè)計(jì)窗體 n在窗體上添加多行文本框（在窗體上添加多行文本框（RichTextBox），調(diào)整大小并修改相），調(diào)整大小并修改相 應(yīng)屬性，如圖應(yīng)屬性，如圖8-2所示：所示： 圖8-2添加RichTextbox控件 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.2 第第2步：設(shè)計(jì)窗體步：設(shè)計(jì)窗體 n相應(yīng)的控件及屬性如表相

25、應(yīng)的控件及屬性如表8-6所示：所示： 表8-6相應(yīng)的控件及屬性 控件名稱控件名稱屬性名稱屬性名稱屬性值屬性值控件名稱控件名稱 屬性名屬性名 稱稱 屬性值屬性值 窗體 （Form1） Caption記事本 文本框 （RichTextBox ） Text清空 Width自定Width自定 Height自定Height自定 MaxButtonFalse NameR1 MinButtonFalse VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n菜單對(duì)我們來說是非常熟悉的，在菜單對(duì)我們來說是非常熟悉的，在W

26、indows環(huán)境下，幾乎所有的環(huán)境下，幾乎所有的 應(yīng)用軟件都是通過菜單來實(shí)現(xiàn)各種操作。菜單用于給命令進(jìn)行分應(yīng)用軟件都是通過菜單來實(shí)現(xiàn)各種操作。菜單用于給命令進(jìn)行分 組，使用戶能夠更方便、更直觀地訪問這些命令。組，使用戶能夠更方便、更直觀地訪問這些命令。 n下拉式菜單是一種典型的窗口式菜單。窗口是指屏幕上一個(gè)特定下拉式菜單是一種典型的窗口式菜單。窗口是指屏幕上一個(gè)特定 的矩形區(qū)域。它可以從屏幕上消失，也可以重新顯示在屏幕上，的矩形區(qū)域。它可以從屏幕上消失，也可以重新顯示在屏幕上， 各個(gè)窗口之間也允許覆蓋。下拉式菜單自上而下在屏幕上各個(gè)窗口之間也允許覆蓋。下拉式菜單自上而下在屏幕上“下拉下拉” 一

27、個(gè)個(gè)窗口菜單，供用戶選擇或輸入信息。在一個(gè)個(gè)窗口菜單，供用戶選擇或輸入信息。在Windows及各種應(yīng)及各種應(yīng) 用軟件中，下拉式菜單得到了廣泛的應(yīng)用。用軟件中，下拉式菜單得到了廣泛的應(yīng)用。 n在下拉式菜單系統(tǒng)中，一般有一個(gè)主菜單，其中包括若干選擇項(xiàng)。在下拉式菜單系統(tǒng)中，一般有一個(gè)主菜單，其中包括若干選擇項(xiàng)。 主菜單的每一項(xiàng)又主菜單的每一項(xiàng)又“下拉下拉”出下一級(jí)菜單，這樣逐級(jí)下拉，用一出下一級(jí)菜單，這樣逐級(jí)下拉，用一 個(gè)個(gè)窗口的形式彈出在屏幕上，操作完畢即可從屏幕上消失，并個(gè)個(gè)窗口的形式彈出在屏幕上，操作完畢即可從屏幕上消失，并 恢復(fù)原來的屏幕狀態(tài)?；謴?fù)原來的屏幕狀態(tài)。 VBVB程序設(shè)計(jì)項(xiàng)目化教程

28、程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n彈出式菜單是一種小型的菜單，它可以在窗體的某個(gè)地方顯示出彈出式菜單是一種小型的菜單，它可以在窗體的某個(gè)地方顯示出 來，對(duì)程序事件作出響應(yīng)。通常用于對(duì)窗體中某個(gè)特定區(qū)域有關(guān)來，對(duì)程序事件作出響應(yīng)。通常用于對(duì)窗體中某個(gè)特定區(qū)域有關(guān) 的操作或選項(xiàng)進(jìn)行控制，例如用來改變某個(gè)文本區(qū)的字體屬性等。的操作或選項(xiàng)進(jìn)行控制，例如用來改變某個(gè)文本區(qū)的字體屬性等。 與下拉式菜單不同，彈出式菜單不需要在窗口頂部下拉打開，而與下拉式菜單不同，彈出式菜單不需要在窗口頂部下拉打開，而 是通過單擊鼠標(biāo)右鍵，在

29、窗口是通過單擊鼠標(biāo)右鍵，在窗口(窗體窗體)的任意位置打開，因而使用的任意位置打開，因而使用 方便，具有較大的靈活性方便，具有較大的靈活性 n1、設(shè)計(jì)菜單的操作步驟如下：、設(shè)計(jì)菜單的操作步驟如下： n(1)建立窗體，添加控件。建立窗體，添加控件。 n(2)打開打開“菜單編輯器菜單編輯器”窗口。窗口。 n(3)設(shè)置各菜單項(xiàng)屬性。設(shè)置各菜單項(xiàng)屬性。 n(4)為相應(yīng)的菜單命令添加事件過程。為相應(yīng)的菜單命令添加事件過程。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n對(duì)于可視語言對(duì)于可視語言(如如VB、VF

30、P、VC等等)來說，菜單的設(shè)計(jì)要簡(jiǎn)單和直觀得多，來說，菜單的設(shè)計(jì)要簡(jiǎn)單和直觀得多， 因?yàn)樗∪チ似聊晃恢糜?jì)算，也不需要保存和恢復(fù)屏幕區(qū)域。全部設(shè)計(jì)因?yàn)樗∪チ似聊晃恢糜?jì)算，也不需要保存和恢復(fù)屏幕區(qū)域。全部設(shè)計(jì) 都在一個(gè)窗口中完成。利用這個(gè)窗口，可以建立下拉式菜單，最多可達(dá)都在一個(gè)窗口中完成。利用這個(gè)窗口，可以建立下拉式菜單，最多可達(dá)6 層。層。 n在在VB中，設(shè)計(jì)菜單是通過菜單編輯器，即菜單設(shè)計(jì)窗口來完成的。打開中，設(shè)計(jì)菜單是通過菜單編輯器，即菜單設(shè)計(jì)窗口來完成的。打開 菜單編輯器有以下菜單編輯器有以下4種方法：種方法： n(1)在在VB主設(shè)計(jì)窗口中，選擇主設(shè)計(jì)窗口中，選擇“工具工具”中的中的

31、“菜單編輯器菜單編輯器”選項(xiàng)。選項(xiàng)。 n(2)使用熱鍵使用熱鍵Ctrl+E。 n(3)單擊工具欄中的單擊工具欄中的“菜單編輯器菜單編輯器”按鈕。按鈕。 n(4)在要建立菜單的窗體上單擊鼠標(biāo)右鍵，將彈出一個(gè)菜單然后單擊在要建立菜單的窗體上單擊鼠標(biāo)右鍵，將彈出一個(gè)菜單然后單擊“菜菜 單編輯器單編輯器”命令。命令。 n說明：只有當(dāng)某個(gè)窗體為活動(dòng)窗體時(shí)，才能用上面的方法打開說明：只有當(dāng)某個(gè)窗體為活動(dòng)窗體時(shí)，才能用上面的方法打開“菜單編菜單編 輯器輯器”窗口。打開后的窗口。打開后的“菜單編輯器菜單編輯器”窗口。窗口。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.

32、3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n“菜單編輯器菜單編輯器”窗口分為窗口分為3個(gè)部分，即數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。個(gè)部分，即數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。 n(1).數(shù)據(jù)區(qū)數(shù)據(jù)區(qū) n用來輸入或修改菜單項(xiàng)、設(shè)置屬性。分為若干欄，各欄的作用如下：用來輸入或修改菜單項(xiàng)、設(shè)置屬性。分為若干欄，各欄的作用如下： n標(biāo)題：是一個(gè)文本框，用來輸入所建立菜單的標(biāo)題及菜單中每個(gè)菜單標(biāo)題：是一個(gè)文本框，用來輸入所建立菜單的標(biāo)題及菜單中每個(gè)菜單 項(xiàng)的標(biāo)題，相當(dāng)于控件的項(xiàng)的標(biāo)題，相當(dāng)于控件的Caption屬性。屬性。 n如果在如果在“標(biāo)題標(biāo)題”欄內(nèi)，只輸入一個(gè)減號(hào)欄內(nèi)，只輸入一個(gè)減號(hào)(-)，

33、則可在菜單中加入一條分隔，則可在菜單中加入一條分隔 符。符。 n在輸入菜單欄項(xiàng)時(shí)，如果在字母前加上在輸入菜單欄項(xiàng)時(shí)，如果在字母前加上“&”，那么該字母就成了熱鍵字，那么該字母就成了熱鍵字 母。在顯示菜單時(shí)在該字母下加上一條下劃線，可以通過母。在顯示菜單時(shí)在該字母下加上一條下劃線，可以通過Alt+帶下劃線帶下劃線 的字母，來打開菜單或執(zhí)行相應(yīng)的菜單命令。的字母，來打開菜單或執(zhí)行相應(yīng)的菜單命令。 n 名稱：也是一個(gè)文本框，由用戶輸入菜單項(xiàng)的名稱，在程序中用來標(biāo)名稱：也是一個(gè)文本框，由用戶輸入菜單項(xiàng)的名稱，在程序中用來標(biāo) 識(shí)該菜單項(xiàng)，相當(dāng)于控件的識(shí)該菜單項(xiàng)，相當(dāng)于控件的Name屬性，它不會(huì)在菜單項(xiàng)顯

34、示區(qū)中顯示屬性，它不會(huì)在菜單項(xiàng)顯示區(qū)中顯示 出來。在標(biāo)題文本框中，輸入了一個(gè)菜單標(biāo)題，在名稱文本框中，應(yīng)有出來。在標(biāo)題文本框中，輸入了一個(gè)菜單標(biāo)題，在名稱文本框中，應(yīng)有 一個(gè)對(duì)應(yīng)的菜單名稱。分隔符也要有對(duì)應(yīng)的名稱。一個(gè)對(duì)應(yīng)的菜單名稱。分隔符也要有對(duì)應(yīng)的名稱。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n索引：用來為控件數(shù)組設(shè)計(jì)下標(biāo)。索引：用來為控件數(shù)組設(shè)計(jì)下標(biāo)。 n快捷鍵：是一個(gè)列表框，用來設(shè)置菜單項(xiàng)的快捷鍵。單擊右端的箭頭，將下拉快捷鍵：是一個(gè)列表框，用來設(shè)置菜單項(xiàng)的快捷鍵。單擊右端的箭頭，將

35、下拉 顯示可供使用的快捷鍵。在此可選擇輸入與菜單項(xiàng)等價(jià)的快捷鍵。顯示可供使用的快捷鍵。在此可選擇輸入與菜單項(xiàng)等價(jià)的快捷鍵。 n幫助上下文：是一個(gè)文本框，可在該框中輸入數(shù)值，這個(gè)值用來在幫助文件幫助上下文：是一個(gè)文本框，可在該框中輸入數(shù)值，這個(gè)值用來在幫助文件(用用 HelpFile屬性設(shè)置屬性設(shè)置)中查找相應(yīng)的幫助主題。中查找相應(yīng)的幫助主題。 n協(xié)調(diào)位置：是一個(gè)列表框，用來確定菜單或菜單項(xiàng)是否出現(xiàn)或在什么位置出現(xiàn)。協(xié)調(diào)位置：是一個(gè)列表框，用來確定菜單或菜單項(xiàng)是否出現(xiàn)或在什么位置出現(xiàn)。 單擊右端的箭頭，將下拉一個(gè)列表，如圖單擊右端的箭頭，將下拉一個(gè)列表，如圖10.4所示。該列表有所示。該列表有4

36、個(gè)選項(xiàng)，其作用如個(gè)選項(xiàng)，其作用如 下：下： n作用作用: n 0-None 菜單項(xiàng)不顯示菜單項(xiàng)不顯示 n 1-Left 菜單項(xiàng)靠左顯示菜單項(xiàng)靠左顯示 n 2-Middle 菜單項(xiàng)居中顯示菜單項(xiàng)居中顯示 n 3-Right 菜單項(xiàng)靠右顯示菜單項(xiàng)靠右顯示 n復(fù)選：是一個(gè)檢查框，當(dāng)選擇該項(xiàng)時(shí)，可以在相應(yīng)的菜單項(xiàng)邊上指定記號(hào)復(fù)選：是一個(gè)檢查框，當(dāng)選擇該項(xiàng)時(shí)，可以在相應(yīng)的菜單項(xiàng)邊上指定記號(hào)(例如例如 “”),表示該菜單項(xiàng)是一個(gè)選項(xiàng)。表示該菜單項(xiàng)是一個(gè)選項(xiàng)。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n有效

37、：是一個(gè)檢查框，該檢查框決定菜單項(xiàng)是否可選有效：是一個(gè)檢查框，該檢查框決定菜單項(xiàng)是否可選(有效有效)。當(dāng)該檢。當(dāng)該檢 查框被選中時(shí)，表示菜單項(xiàng)的查框被選中時(shí)，表示菜單項(xiàng)的Enabled屬性為屬性為True，為默認(rèn)狀態(tài)，程序，為默認(rèn)狀態(tài)，程序 執(zhí)行時(shí)菜單高亮度顯示，是可選的；如果該項(xiàng)沒有被選中，執(zhí)行時(shí)菜單高亮度顯示，是可選的；如果該項(xiàng)沒有被選中，Enabled屬屬 性為性為False，在程序執(zhí)行時(shí)該菜單項(xiàng)變成灰色，表示不能被用戶選擇。，在程序執(zhí)行時(shí)該菜單項(xiàng)變成灰色，表示不能被用戶選擇。 n可見：是一個(gè)檢查框，該檢查框確定菜單項(xiàng)是否可見。若該檢查框被可見：是一個(gè)檢查框，該檢查框確定菜單項(xiàng)是否可見。

38、若該檢查框被 選中，表示該菜單項(xiàng)的選中，表示該菜單項(xiàng)的Visible屬性為屬性為True，即菜單項(xiàng)可見。若該檢查框，即菜單項(xiàng)可見。若該檢查框 沒被選中，表示該菜單項(xiàng)的沒被選中，表示該菜單項(xiàng)的Visible屬性為屬性為False，即菜單項(xiàng)不可見。，即菜單項(xiàng)不可見。 n顯示窗口列表：當(dāng)該選項(xiàng)被設(shè)置為顯示窗口列表：當(dāng)該選項(xiàng)被設(shè)置為“On”(框內(nèi)有框內(nèi)有“”)時(shí)，將顯示當(dāng)時(shí)，將顯示當(dāng) 前打開一系列子窗口。用于多文檔應(yīng)用程序。前打開一系列子窗口。用于多文檔應(yīng)用程序。 n（2）編輯區(qū)）編輯區(qū) n編輯區(qū)共有編輯區(qū)共有7個(gè)按鈕，用來對(duì)輸入的菜單項(xiàng)進(jìn)行簡(jiǎn)單的編輯。菜單在數(shù)據(jù)個(gè)按鈕，用來對(duì)輸入的菜單項(xiàng)進(jìn)行簡(jiǎn)單的編

39、輯。菜單在數(shù)據(jù) 區(qū)輸入，在菜單項(xiàng)顯示區(qū)顯示。區(qū)輸入，在菜單項(xiàng)顯示區(qū)顯示。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n有效：是一個(gè)檢查框，該檢查框決定菜單項(xiàng)是否可選有效：是一個(gè)檢查框，該檢查框決定菜單項(xiàng)是否可選(有效有效)。當(dāng)該檢。當(dāng)該檢 查框被選中時(shí)，表示菜單項(xiàng)的查框被選中時(shí)，表示菜單項(xiàng)的Enabled屬性為屬性為True，為默認(rèn)狀態(tài)，程序，為默認(rèn)狀態(tài)，程序 執(zhí)行時(shí)菜單高亮度顯示，是可選的；如果該項(xiàng)沒有被選中，執(zhí)行時(shí)菜單高亮度顯示，是可選的；如果該項(xiàng)沒有被選中，Enabled屬屬 性為性為Fa

40、lse，在程序執(zhí)行時(shí)該菜單項(xiàng)變成灰色，表示不能被用戶選擇。，在程序執(zhí)行時(shí)該菜單項(xiàng)變成灰色，表示不能被用戶選擇。 n可見：是一個(gè)檢查框，該檢查框確定菜單項(xiàng)是否可見。若該檢查框被可見：是一個(gè)檢查框，該檢查框確定菜單項(xiàng)是否可見。若該檢查框被 選中，表示該菜單項(xiàng)的選中，表示該菜單項(xiàng)的Visible屬性為屬性為True，即菜單項(xiàng)可見。若該檢查框，即菜單項(xiàng)可見。若該檢查框 沒被選中，表示該菜單項(xiàng)的沒被選中，表示該菜單項(xiàng)的Visible屬性為屬性為False，即菜單項(xiàng)不可見。，即菜單項(xiàng)不可見。 n顯示窗口列表：當(dāng)該選項(xiàng)被設(shè)置為顯示窗口列表：當(dāng)該選項(xiàng)被設(shè)置為“On”(框內(nèi)有框內(nèi)有“”)時(shí)，將顯示當(dāng)時(shí)，將顯示當(dāng)

41、 前打開一系列子窗口。用于多文檔應(yīng)用程序。前打開一系列子窗口。用于多文檔應(yīng)用程序。 n（2）編輯區(qū)）編輯區(qū) n編輯區(qū)共有編輯區(qū)共有7個(gè)按鈕，用來對(duì)輸入的菜單項(xiàng)進(jìn)行簡(jiǎn)單的編輯。菜單在數(shù)據(jù)個(gè)按鈕，用來對(duì)輸入的菜單項(xiàng)進(jìn)行簡(jiǎn)單的編輯。菜單在數(shù)據(jù) 區(qū)輸入，在菜單項(xiàng)顯示區(qū)顯示。區(qū)輸入，在菜單項(xiàng)顯示區(qū)顯示。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n（3）菜單項(xiàng)顯示區(qū)）菜單項(xiàng)顯示區(qū) n位于位于“菜單編輯器菜單編輯器”窗口的下部，輸入的菜單項(xiàng)在這里顯示出來，并通窗口的下部，輸入的菜單項(xiàng)在這里顯示出來，并通 過

42、內(nèi)縮符號(hào)過內(nèi)縮符號(hào)(.)，表明菜單項(xiàng)的層次。條形光標(biāo)所在的菜單項(xiàng)是，表明菜單項(xiàng)的層次。條形光標(biāo)所在的菜單項(xiàng)是“當(dāng)前當(dāng)前 菜單項(xiàng)菜單項(xiàng)”。 n說明：說明： n“菜單項(xiàng)菜單項(xiàng)”是一個(gè)總的名稱，它包括是一個(gè)總的名稱，它包括4個(gè)方面的內(nèi)容：菜單名個(gè)方面的內(nèi)容：菜單名(菜單標(biāo)菜單標(biāo) 題題)、菜單命令、分隔線和子菜單。、菜單命令、分隔線和子菜單。 n內(nèi)縮符號(hào)由內(nèi)縮符號(hào)由4個(gè)點(diǎn)組成，它表明菜單項(xiàng)所在的層次，一個(gè)內(nèi)縮符號(hào)個(gè)點(diǎn)組成，它表明菜單項(xiàng)所在的層次，一個(gè)內(nèi)縮符號(hào)(4個(gè)個(gè) 點(diǎn)點(diǎn))表示一層，兩個(gè)內(nèi)縮符號(hào)表示一層，兩個(gè)內(nèi)縮符號(hào)(8個(gè)點(diǎn)個(gè)點(diǎn))表示兩層，最多為表示兩層，最多為20個(gè)點(diǎn)，即個(gè)點(diǎn)，即5個(gè)內(nèi)個(gè)內(nèi) 縮符號(hào)，

43、它后面的菜單項(xiàng)是第六層。如果一個(gè)菜單項(xiàng)前面沒有內(nèi)縮符號(hào)，縮符號(hào)，它后面的菜單項(xiàng)是第六層。如果一個(gè)菜單項(xiàng)前面沒有內(nèi)縮符號(hào)， 則該菜單為菜單名，即菜單的第一層。則該菜單為菜單名，即菜單的第一層。 n只有菜單名沒有菜單項(xiàng)的菜單稱為只有菜單名沒有菜單項(xiàng)的菜單稱為“頂層菜單頂層菜單”，在輸入這樣的菜單，在輸入這樣的菜單 項(xiàng)時(shí)，通常在后面加上一個(gè)嘆號(hào)項(xiàng)時(shí)，通常在后面加上一個(gè)嘆號(hào)(！)。 n除分隔線外，所有的菜單項(xiàng)都可以接收除分隔線外，所有的菜單項(xiàng)都可以接收Click事件。事件。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體

44、上添加菜單欄 n2、如圖、如圖8-3所示設(shè)置各菜單項(xiàng)。所示設(shè)置各菜單項(xiàng)。 n 注意：（注意：（1）、菜單編輯器必須在設(shè)計(jì)視圖下才能用，在編程視）、菜單編輯器必須在設(shè)計(jì)視圖下才能用，在編程視 圖下是不能使用的。圖下是不能使用的。 n （2）、所有菜單項(xiàng)的名稱命名規(guī)則同變量的命名規(guī)則相同。）、所有菜單項(xiàng)的名稱命名規(guī)則同變量的命名規(guī)則相同。 n（3）、主菜單項(xiàng)不允許添加快捷鍵。）、主菜單項(xiàng)不允許添加快捷鍵。 n（4）、菜單項(xiàng)的分級(jí)是靠省略號(hào)來區(qū)分的。）、菜單項(xiàng)的分級(jí)是靠省略號(hào)來區(qū)分的。 n（5）、菜單項(xiàng)的名稱不能相同，否則作為控件數(shù)組。）、菜單項(xiàng)的名稱不能相同，否則作為控件數(shù)組。 n3、各菜單項(xiàng)的屬

45、性值如表、各菜單項(xiàng)的屬性值如表8-7所示。所示。(如果空白則是默認(rèn)設(shè)置如果空白則是默認(rèn)設(shè)置) n （本部分由學(xué)生根據(jù)表中數(shù)據(jù)獨(dú)立完成）（本部分由學(xué)生根據(jù)表中數(shù)據(jù)獨(dú)立完成） VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 圖8-3各菜單項(xiàng) VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 n表表8-7各菜單項(xiàng)的屬性值各菜單項(xiàng)的屬性值 說明說明標(biāo)題標(biāo)題名稱名稱快捷鍵快捷鍵其他其他 主菜單項(xiàng)主菜單項(xiàng)1文件（&W）we

46、njian無 子菜單項(xiàng)11新建（&N）xinjianCtrl+N 子菜單項(xiàng)12打開（&O）dakaiCtrl+O 子菜單項(xiàng)13保存（&S）baocunCtrl+S 子菜單項(xiàng)14L1無 子菜單項(xiàng)15頁面設(shè)置（&U）yemian無 子菜單項(xiàng)16打印（&P）dayinCtrl+P 子菜單項(xiàng)17L2無 子菜單項(xiàng)18退出（&X）tuichu無 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 主菜單項(xiàng)主菜單項(xiàng)2編輯（&E）bianji無 子菜單項(xiàng)21撤銷（&U）chexiaoCtrl+Z無效 子菜單項(xiàng)22L3無

47、子菜單項(xiàng)23剪切（&T）jianqieCtrl+X無效 子菜單項(xiàng)24復(fù)制（&C）fuzhiCtrl+C無效 子菜單項(xiàng)25粘貼（&P）zhantie Ctrl+V 子菜單項(xiàng)26刪除（&L）shanchuDel無效 子菜單項(xiàng)27L4 子菜單項(xiàng)28查找（&F）chaozhaoCtrl+F無效 子菜單項(xiàng)29查找下一個(gè)（&N）xiayigeF3無效 子菜單項(xiàng)210替換（&R）tihuanCtrl+H 子菜單項(xiàng)211轉(zhuǎn)到（&G）zhuandaoCtrl+G VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 子菜單項(xiàng)

48、212L5 子菜單項(xiàng)213全選（&A）quanxuanCtrl+A 子菜單項(xiàng)214日期/時(shí)間（&T）riqiF5 主菜單項(xiàng)主菜單項(xiàng)3格式（&O）geshi 子菜單項(xiàng)31自動(dòng)換行（&W）huanhang 子菜單項(xiàng)32字體（&F）ziti 主菜單項(xiàng)主菜單項(xiàng)4查看（&V）chakan 子菜單項(xiàng)41狀態(tài)欄（&S）zhuangtailan VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄 主菜單項(xiàng)主菜單項(xiàng)5幫助（&H）bangzhu 子菜單項(xiàng)51幫助主題（&H）zhuti 子菜單項(xiàng)52L6 子菜單項(xiàng)53關(guān)于記事本

49、（&A）guanyu VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.4 第第4步：添加步：添加Activate控件控件 n操作方法是：在工具欄上單擊右鍵，在彈出的菜單中操作方法是：在工具欄上單擊右鍵，在彈出的菜單中 選擇【部件】，這時(shí)會(huì)彈出【部件】對(duì)話框，選擇選擇【部件】，這時(shí)會(huì)彈出【部件】對(duì)話框，選擇 “Microsoft Rich TextBox Controls 6.0” n添加完畢。添加完畢。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.5 第第5步：為窗體添加公共對(duì)話框。步：為窗體添加公共對(duì)話框。 n公

50、共對(duì)話框的實(shí)現(xiàn)的功能：公共對(duì)話框的實(shí)現(xiàn)的功能： 顯示文件打開對(duì)話框顯示文件打開對(duì)話框Show Open 顯示文件保存對(duì)話框顯示文件保存對(duì)話框Show Save 顯示顏色對(duì)話框顯示顏色對(duì)話框ShowColor 顯示字體對(duì)話框顯示字體對(duì)話框ShowFont 顯示打印對(duì)話框顯示打印對(duì)話框ShowPrinter n將將Common Dialog控件添加到工具箱：工程控件添加到工具箱：工程部件部件 MicroSoft Common Dialog Control 6.0 (如圖如圖8-4 所示所示) VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.5 第第5步：為窗體

51、添加公共對(duì)話框。步：為窗體添加公共對(duì)話框。 圖8-4添加Common Dialog控件 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.5 第第5步：為窗體添加公共對(duì)話框。步：為窗體添加公共對(duì)話框。 n單擊工具箱中單擊工具箱中 該控件在窗體該控件在窗體 上畫出該控件。上畫出該控件。 （注意：該控（注意：該控 件是后臺(tái)運(yùn)行，件是后臺(tái)運(yùn)行， 所以程序運(yùn)行所以程序運(yùn)行 后不會(huì)顯示，后不會(huì)顯示， 類似于類似于Timer控控 件）如圖件）如圖8-5所所 示。示。 圖8-5工具箱 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.6

52、 第第6步：步： 部分例程序部分例程序 nPrivate Sub baocun_Click()保存按鈕的代碼保存按鈕的代碼 nCommonDialog1.ShowSave nR1.SaveFile (CommonDialog1.FileName) nEnd Sub nPrivate Sub dakai_Click()打開命令按鈕的代碼打開命令按鈕的代碼 nCommonDialog1.ShowOpen nR1.LoadFile (CommonDialog1.FileName) nEnd Sub nPrivate Sub Form_Load() 設(shè)置公共對(duì)話框的默認(rèn)文件類型設(shè)置公共對(duì)話框的默認(rèn)文件

53、類型 nCommonDialog1.Filter = 文檔文件文檔文件 *.txt|*.txt|全部文件全部文件|*.* nEnd Sub VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.6 第第6步：步： 部分例程序部分例程序 nPrivate Sub lingcunwei_Click()另存為按鈕的代碼另存為按鈕的代碼 nCommonDialog1.ShowSave nR1.SaveFile (CommonDialog1.FileName) nEnd Sub nPrivate Sub xinjian_Click()新建按鈕的代碼新建按鈕的代碼 nR1.

54、Text = nEnd Sub n其他代碼在老師的指導(dǎo)下完成其他代碼在老師的指導(dǎo)下完成 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.6 第第6步：步： 部分例程序部分例程序 n項(xiàng)目總結(jié)：項(xiàng)目總結(jié)： n菜單編輯器的使用菜單編輯器的使用 n公共對(duì)話框的使用公共對(duì)話框的使用 n編程實(shí)現(xiàn)屬性設(shè)置編程實(shí)現(xiàn)屬性設(shè)置 nRichTextBox的使用的使用 n文件的打開方法文件的打開方法 n操作練習(xí)操作練習(xí) n編寫程序，建立一個(gè)文件打開對(duì)話框，然后通過這個(gè)對(duì)話框選擇編寫程序，建立一個(gè)文件打開對(duì)話框，然后通過這個(gè)對(duì)話框選擇 可執(zhí)行文件，并執(zhí)行它。例如，程序運(yùn)行后，在對(duì)話

55、框中，選擇可執(zhí)行文件，并執(zhí)行它。例如，程序運(yùn)行后，在對(duì)話框中，選擇 windows下的下的“計(jì)算器計(jì)算器” 程序，然后執(zhí)行這個(gè)程序，打開程序，然后執(zhí)行這個(gè)程序，打開“計(jì)算計(jì)算 器器”。 n編寫程序，在窗體上顯示一行信息，通過自己定義的顏色對(duì)話框編寫程序，在窗體上顯示一行信息，通過自己定義的顏色對(duì)話框 和字體對(duì)話框改變這行信息的顏色和字體和字體對(duì)話框改變這行信息的顏色和字體. VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.6 第第6步：步： 部分例程序部分例程序 n在窗體上建立一個(gè)通用對(duì)話框，在窗體上建立一個(gè)通用對(duì)話框，1個(gè)文本框和個(gè)文本框和3個(gè)命令個(gè)命令

56、 按鈕，在文本框中輸入一段文本（漢字），然后實(shí)現(xiàn)按鈕，在文本框中輸入一段文本（漢字），然后實(shí)現(xiàn) 以下操作：以下操作： o通過字體對(duì)話框把文本框中的文字設(shè)置為黑體，字體樣式設(shè)通過字體對(duì)話框把文本框中的文字設(shè)置為黑體，字體樣式設(shè) 置為粗體，字體大小設(shè)置為置為粗體，字體大小設(shè)置為24，該操作在第一個(gè)命令按鈕的，該操作在第一個(gè)命令按鈕的 事件過程實(shí)現(xiàn)。事件過程實(shí)現(xiàn)。 o通過顏色對(duì)話框把文本框中的文字的前景顏色設(shè)置為紅色。通過顏色對(duì)話框把文本框中的文字的前景顏色設(shè)置為紅色。 該操作在第二個(gè)命令按鈕的事件過程實(shí)現(xiàn)。該操作在第二個(gè)命令按鈕的事件過程實(shí)現(xiàn)。 o通過顏色對(duì)話框把文本框中的文字的背景顏色設(shè)置為黃色

57、。通過顏色對(duì)話框把文本框中的文字的背景顏色設(shè)置為黃色。 該操作在第三個(gè)命令按鈕的事件過程實(shí)現(xiàn)。該操作在第三個(gè)命令按鈕的事件過程實(shí)現(xiàn)。 VBVB程序設(shè)計(jì)項(xiàng)目化教程程序設(shè)計(jì)項(xiàng)目化教程中國水利水電出版社中國水利水電出版社 8.6 第第6步：步： 部分例程序部分例程序 n在窗體上畫一個(gè)文本框，把它的在窗體上畫一個(gè)文本框，把它的Multiline屬性設(shè)置為屬性設(shè)置為True；通過菜單命令向文；通過菜單命令向文 本框中輸入信息并對(duì)文本框中的的文本進(jìn)行格式化。按下述要求建立菜單程序：本框中輸入信息并對(duì)文本框中的的文本進(jìn)行格式化。按下述要求建立菜單程序： o菜單程序含有菜單程序含有3個(gè)主菜單，分別為個(gè)主菜單，分別為“輸入信息輸入信息”、“顯示信息顯示信息”和格式。其中：和格式。其中：“輸入輸入 信息信息”包括兩個(gè)菜單命令：包括兩個(gè)菜單命令：“輸入輸入”、“退出退出”； n“顯示信息顯示信息”包括兩個(gè)菜單命令：包括兩個(gè)菜單命令：“顯示顯示”、“清除清除”； n“格式格式”包括包括5個(gè)菜單命令：個(gè)菜單命令：“正常正?！薄ⅰ?/p>