項目8制作簡單記事本

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

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

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

4、B程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n8.1.1 高級文本框控件高級文本框控件n高級文本框控件高級文本框控件(RichTextBox)可用于輸入和編輯文本，它同時可用于輸入和編輯文本，它同時提供了比常規(guī)的提供了比常規(guī)的TextBox控件更高級的格式特性。控件更高級的格式特性。n從前幾章可以知道，對從前幾章可以知道，對Text控件只能進行單一的文字格式設(shè)置?？丶荒苓M行單一的文字格式設(shè)置。使用使用RichTextBox控件可以實現(xiàn)多種文字格式、段落等的設(shè)置，控件可以實現(xiàn)多種文字格式、段落等的設(shè)置，還可以插入圖形，可真正構(gòu)

5、成一個像還可以插入圖形，可真正構(gòu)成一個像Word一樣的字處理軟件。一樣的字處理軟件。n要使用要使用RichTextBox控件，必須打開控件，必須打開“部件部件”對話框，選擇對話框，選擇“Microsoft Rich TextBox Controls 6.0”，將控件添加到工具，將控件添加到工具箱。箱。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n1、文件操作方法、文件操作方法n用用LoadFile和和SaveFile方法，可以方便地為方法，可以方便地為RichTextBox控件打開或保存文件。控件打開或保存文件。n（1）

6、LoadFile方法方法n格式：對象格式：對象.LoadFile 文件標(biāo)識符，文件類型文件標(biāo)識符，文件類型n功能：功能：LoadFile方法能夠?qū)⒎椒軌驅(qū)TF文件或文本文件裝入控件中。文件或文本文件裝入控件中。n說明：說明：n文件類型取值文件類型取值0或或rtfRTF時為時為RTF文件文件(缺省缺省)。n文件類型取文件類型取1或或rtfTEXT時為文本文件。時為文本文件。n過程存放在標(biāo)準(zhǔn)模塊中，利用過程存放在標(biāo)準(zhǔn)模塊中，利用CommonDialog控件提供路徑名?？丶峁┞窂矫?。n（2）SaveFile方法方法n格式：對象格式：對象.SaveFile(文件標(biāo)識符，文件類型文件標(biāo)識符，文件類

7、型)n功能：該方法能夠?qū)⒖丶械奈臋n保存在功能：該方法能夠?qū)⒖丶械奈臋n保存在RTF文件或文本文件中。文件或文本文件中。n例如：下面語句把文檔以例如：下面語句把文檔以RTF格式保存在格式保存在D盤盤My子目錄的子目錄的T1.txt文件中。文件中。n RichTextBox1.SaveFile(D:myT1.txt,rtfTEXT)n完整的保存文件的完整的保存文件的FileSaveProc過程，可參照過程，可參照FileOpenProc過程，請讀者自行過程，請讀者自行完成。完成。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識

8、n2、常用格式化屬性、常用格式化屬性nRichTextBox控件提供了一控件提供了一些屬性，可對該控件中任何些屬性，可對該控件中任何部分的文本使用不同的格式。部分的文本使用不同的格式。例如可以將文本變?yōu)榇煮w或例如可以將文本變?yōu)榇煮w或斜體，改變文本的顏色，創(chuàng)斜體，改變文本的顏色，創(chuàng)建上標(biāo)或下標(biāo)。可以調(diào)整段建上標(biāo)或下標(biāo)?？梢哉{(diào)整段落的左右縮進值，還可以使落的左右縮進值，還可以使用懸掛式縮進。為了壓縮篇用懸掛式縮進。為了壓縮篇幅，列出了常用格式屬性如幅，列出了常用格式屬性如表表8-1所示所示： 表8-1RichTextBox常用屬性分類分類屬性屬性值類值類型型說明說明選中文本SelText Sels

9、tart Sellength意義同Text控件對應(yīng)屬性字體、字號Selfontname selfontsize當(dāng)前選定的文本的字體字號字型Selbold SelItalic SelUnderline SelStrikethru邏輯量粗體、斜體、下劃線、刪除線上、下標(biāo)SelCharoffset整型0上標(biāo)0下標(biāo)以Twip為單位顏色SelColor整型縮排SelIndex SelRightIndentSelHaningIndent數(shù)值型縮排單位以ScalMode 決定對齊SelAlignment整型0 左 1右 2中VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.

10、1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n3、插入圖像、插入圖像n格式：對象格式：對象.OLEObjects.Add索引索引，關(guān)鍵字關(guān)鍵字，文件標(biāo)識符，文件標(biāo)識符n功能：在功能：在RichTextBox控件中，可插入（控件中，可插入（*.bmp）圖像文件。）圖像文件。n說明：說明：nOLEObjects是一個集合，包括一組添加到是一個集合，包括一組添加到RichTextBox控件的控件的對象。對象。n“索引索引”和和“關(guān)鍵字關(guān)鍵字”分別表示添加的元素編號和標(biāo)識，可省略，分別表示添加的元素編號和標(biāo)識，可省略，但逗號不能省。但逗號不能省。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國

11、水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n8.1.2 通用對話框的使用通用對話框的使用n通用對話框是一種通用對話框是一種ActiveX控件，它隨同控件，它隨同VB提供給程序設(shè)計人員。在一提供給程序設(shè)計人員。在一般情況下，啟動般情況下，啟動VB后，在工具箱中沒有通用對話框控件。為了把通用對后，在工具箱中沒有通用對話框控件。為了把通用對話框控件加到工具箱中，其操作步驟如下：話框控件加到工具箱中，其操作步驟如下：n執(zhí)行執(zhí)行“工程工程”菜單中的菜單中的“部件部件”命令，打開命令，打開“部件部件”對話框。對話框。n在對話框中，選擇在對話框中，選擇“控件控件”選項卡，然后在控件列表框中，選擇選

12、項卡，然后在控件列表框中，選擇“Microsoft Common Dialog Control 6.0”，如圖，如圖8-3所示。所示。n單擊單擊“確定確定”按鈕，通用對話框立即被加到工具箱中，如圖按鈕，通用對話框立即被加到工具箱中，如圖8-2所示。所示。n通用對話框的默認名稱通用對話框的默認名稱(Name屬性屬性)為為CommonDialogX(X為為1，2，3)。n通用對話框控件為程序設(shè)計人員提供了幾種不同類型的對話框，利用這通用對話框控件為程序設(shè)計人員提供了幾種不同類型的對話框，利用這些對話框，可以獲取所需要的信息，打開文件、將文件存盤、選擇顏色、些對話框，可以獲取所需要的信息，打開文件、

13、將文件存盤、選擇顏色、選擇字體、打印、幫助。這些對話框與選擇字體、打印、幫助。這些對話框與Windows本身及許多應(yīng)用程序具本身及許多應(yīng)用程序具有相同的風(fēng)格。對話框的類型可以通過有相同的風(fēng)格。對話框的類型可以通過Action屬性設(shè)置，也可以用相應(yīng)屬性設(shè)置，也可以用相應(yīng)的方法設(shè)置。的方法設(shè)置。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n1、通用對話框的基本屬性、通用對話框的基本屬性n（1）Action屬性屬性n該屬性直接決定打開何種類型的對話框。該屬性直接決定打開何種類型的對話框。n1Open：打開文件對話框；：打開文件

14、對話框；n2Save As：另存為對話框；：另存為對話框；n3Color：顏色對話框；：顏色對話框；n4Font：字體對話框；：字體對話框；n5Printer：打印機對話框；：打印機對話框；n6Help：幫助對話框。：幫助對話框。n該屬性不能在屬性窗口中設(shè)置，只能在程序中賦值，用于調(diào)出相該屬性不能在屬性窗口中設(shè)置，只能在程序中賦值，用于調(diào)出相應(yīng)的對話框。應(yīng)的對話框。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n（2）DialogTitle屬性屬性n該屬性用來設(shè)置對話框的標(biāo)題，可以是任意字符串。在默認情況該屬性用來設(shè)置對話

15、框的標(biāo)題，可以是任意字符串。在默認情況下，下，“打開打開”對話框的標(biāo)題是對話框的標(biāo)題是“打開打開”，“另存為另存為”對話框的標(biāo)對話框的標(biāo)題是題是“另存為另存為”。n通用對話框的屬性設(shè)置不僅可以在屬性窗口中設(shè)置，也可以在屬通用對話框的屬性設(shè)置不僅可以在屬性窗口中設(shè)置，也可以在屬性頁對話框中設(shè)置。打開屬性頁對話框的方法是：在窗體上的通性頁對話框中設(shè)置。打開屬性頁對話框的方法是：在窗體上的通用對話框控件上單擊右鍵，在彈出的快捷菜單中，選擇用對話框控件上單擊右鍵，在彈出的快捷菜單中，選擇“屬性屬性”命令，通用對話框控件屬性頁對話框中，有命令，通用對話框控件屬性頁對話框中，有5個選項卡，對不同個選項卡，

16、對不同類型的對話框設(shè)置屬性，就要選擇不同的選項卡。例如，要對字類型的對話框設(shè)置屬性，就要選擇不同的選項卡。例如，要對字體對話框進行設(shè)置，就選定體對話框進行設(shè)置，就選定“字體字體”選項卡。選項卡。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n2、通用對話框的方法、通用對話框的方法n為了打開通用對話框，為了打開通用對話框，VB還提供了一組方法，用來打開通用對話還提供了一組方法，用來打開通用對話框，對話框類型及方法如表框，對話框類型及方法如表8-2所示。這些方法是：所示。這些方法是：nShowOpen：打開文件對話框；：打開文

17、件對話框；nShowSave：打開另存為對話框；：打開另存為對話框；nShowColor：選擇顏色對話框；：選擇顏色對話框；nShowFont：選擇字體對話框；：選擇字體對話框；nShowPrinter：打開打印對話框；：打開打印對話框；nShowHelp：調(diào)出幫助對話框。：調(diào)出幫助對話框。 VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n 表表8-2 對話框類型及方法對話框類型及方法n通用對話框的使用方式有：打開對話框、另存為對話框、顏色對通用對話框的使用方式有：打開對話框、另存為對話框、顏色對話框、字體對話框、打印機對

18、話框和幫助對話框的使用方法。話框、字體對話框、打印機對話框和幫助對話框的使用方法。對話框類型Action屬性值方法打開打開1ShowOpen另存為另存為2ShowSave顏色顏色3ShowColor字體字體4ShowFont打印打印5ShowPrinter幫助幫助6ShowHelpVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n3、打開、打開(Open)對話框?qū)υ捒騨（1）文件對話框的結(jié)構(gòu)）文件對話框的結(jié)構(gòu)n文件對話框分為兩種，即打開文件對話框分為兩種，即打開(Open)文件對話框和另存為文件對話框和另存為(Save As

19、)文件對話框。文件對話框。通用對話框的重要用途之一，就是從用戶那里獲得文件名信息。打開文件對話框通用對話框的重要用途之一，就是從用戶那里獲得文件名信息。打開文件對話框可以讓用戶指定一個文件，由程序來實現(xiàn)；而用保存文件對話框可以指定一個文可以讓用戶指定一個文件，由程序來實現(xiàn)；而用保存文件對話框可以指定一個文件，并以這個文件名保存當(dāng)前文件。從結(jié)構(gòu)上來說，件，并以這個文件名保存當(dāng)前文件。從結(jié)構(gòu)上來說，“打開打開”和和“另存為另存為”對話對話框是類似的。如圖框是類似的。如圖8-1所示：所示： 圖8-1“打開”對話框VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1

20、第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n各部分的作用如下：各部分的作用如下：n對話框標(biāo)題：通用對話框的標(biāo)題，通過對話框標(biāo)題：通用對話框的標(biāo)題，通過DialogTitle屬性設(shè)置。屬性設(shè)置。n文件夾：用來顯示文件夾。單擊右端的箭頭，將顯示驅(qū)動器和文文件夾：用來顯示文件夾。單擊右端的箭頭，將顯示驅(qū)動器和文件夾的列表，可以在該列表中選擇所需要的文件夾。件夾的列表，可以在該列表中選擇所需要的文件夾。n選擇文件夾級別：單擊一次該按鈕回退一個文件夾級別。選擇文件夾級別：單擊一次該按鈕回退一個文件夾級別。n新文件夾：用來建立新文件夾。新文件夾：用來建立新文件夾。n文件列表模式：選擇是否以列表方式顯示文件和文件夾。文

21、件列表模式：選擇是否以列表方式顯示文件和文件夾。n文件細節(jié)：顯示文件的詳細情況，包括文件名、文件大小、建立文件細節(jié)：顯示文件的詳細情況，包括文件名、文件大小、建立(修改修改)日期、時間及屬性等。日期、時間及屬性等。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.1 第第1步：基礎(chǔ)知識步：基礎(chǔ)知識n文件列表：在該區(qū)域顯示的是文件列表：在該區(qū)域顯示的是“文件夾文件夾”欄內(nèi)文件夾的子目錄，欄內(nèi)文件夾的子目錄，列出了準(zhǔn)備使用的文件或文件夾，單擊其中的文件名將選擇該文列出了準(zhǔn)備使用的文件或文件夾，單擊其中的文件名將選擇該文件，所選擇的文件名將在件，所選擇的文件名將在“

22、文件名文件名”欄內(nèi)顯示出來。如果當(dāng)前顯欄內(nèi)顯示出來。如果當(dāng)前顯示的文件列表中沒有所需要的文件，可雙擊其中的文件夾顯示下示的文件列表中沒有所需要的文件，可雙擊其中的文件夾顯示下一級的文件或文件夾。一級的文件或文件夾。n文件類型：指定要打開或要保存的文件的類型，該類型由通用對文件類型：指定要打開或要保存的文件的類型，該類型由通用對話框的話框的Filter屬性確定。屬性確定。n文件名：所選擇的或輸入的文件名。用文件名：所選擇的或輸入的文件名。用“打開打開”或或“另存為另存為”對對話框都可以指定一個文件名，所指定的文件名在該欄內(nèi)顯示，單話框都可以指定一個文件名，所指定的文件名在該欄內(nèi)顯示，單擊擊“打開

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

24、B程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.2 第第2步：設(shè)計窗體步：設(shè)計窗體n相應(yīng)的控件及屬性如表相應(yīng)的控件及屬性如表8-6所示：所示： 表8-6相應(yīng)的控件及屬性控件名稱控件名稱屬性名稱屬性名稱屬性值屬性值控件名稱控件名稱屬性名稱屬性名稱屬性值屬性值窗體（Form1）Caption記事本文本框（RichTextBox）Text清空Width自定Width自定Height自定Height自定MaxButtonFalseNameR1MinButtonFalseVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體

25、上添加菜單欄步：在窗體上添加菜單欄n菜單對我們來說是非常熟悉的，在菜單對我們來說是非常熟悉的，在Windows環(huán)境下，幾乎所有的環(huán)境下，幾乎所有的應(yīng)用軟件都是通過菜單來實現(xiàn)各種操作。菜單用于給命令進行分應(yīng)用軟件都是通過菜單來實現(xiàn)各種操作。菜單用于給命令進行分組，使用戶能夠更方便、更直觀地訪問這些命令。組，使用戶能夠更方便、更直觀地訪問這些命令。n下拉式菜單是一種典型的窗口式菜單。窗口是指屏幕上一個特定下拉式菜單是一種典型的窗口式菜單。窗口是指屏幕上一個特定的矩形區(qū)域。它可以從屏幕上消失，也可以重新顯示在屏幕上，的矩形區(qū)域。它可以從屏幕上消失，也可以重新顯示在屏幕上，各個窗口之間也允許覆蓋。下拉

26、式菜單自上而下在屏幕上各個窗口之間也允許覆蓋。下拉式菜單自上而下在屏幕上“下拉下拉”一個個窗口菜單，供用戶選擇或輸入信息。在一個個窗口菜單，供用戶選擇或輸入信息。在Windows及各種應(yīng)及各種應(yīng)用軟件中，下拉式菜單得到了廣泛的應(yīng)用。用軟件中，下拉式菜單得到了廣泛的應(yīng)用。n在下拉式菜單系統(tǒng)中，一般有一個主菜單，其中包括若干選擇項。在下拉式菜單系統(tǒng)中，一般有一個主菜單，其中包括若干選擇項。主菜單的每一項又主菜單的每一項又“下拉下拉”出下一級菜單，這樣逐級下拉，用一出下一級菜單，這樣逐級下拉，用一個個窗口的形式彈出在屏幕上，操作完畢即可從屏幕上消失，并個個窗口的形式彈出在屏幕上，操作完畢即可從屏幕上

27、消失，并恢復(fù)原來的屏幕狀態(tài)?；謴?fù)原來的屏幕狀態(tài)。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄n彈出式菜單是一種小型的菜單，它可以在窗體的某個地方顯示出彈出式菜單是一種小型的菜單，它可以在窗體的某個地方顯示出來，對程序事件作出響應(yīng)。通常用于對窗體中某個特定區(qū)域有關(guān)來，對程序事件作出響應(yīng)。通常用于對窗體中某個特定區(qū)域有關(guān)的操作或選項進行控制，例如用來改變某個文本區(qū)的字體屬性等。的操作或選項進行控制，例如用來改變某個文本區(qū)的字體屬性等。與下拉式菜單不同，彈出式菜單不需要在窗口頂部下拉打開，而與下拉式菜單不同

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

29、欄n對于可視語言對于可視語言(如如VB、VFP、VC等等)來說，菜單的設(shè)計要簡單和直觀得多，來說，菜單的設(shè)計要簡單和直觀得多，因為它省去了屏幕位置計算，也不需要保存和恢復(fù)屏幕區(qū)域。全部設(shè)計因為它省去了屏幕位置計算，也不需要保存和恢復(fù)屏幕區(qū)域。全部設(shè)計都在一個窗口中完成。利用這個窗口，可以建立下拉式菜單，最多可達都在一個窗口中完成。利用這個窗口，可以建立下拉式菜單，最多可達6層。層。n在在VB中，設(shè)計菜單是通過菜單編輯器，即菜單設(shè)計窗口來完成的。打開中，設(shè)計菜單是通過菜單編輯器，即菜單設(shè)計窗口來完成的。打開菜單編輯器有以下菜單編輯器有以下4種方法：種方法：n(1)在在VB主設(shè)計窗口中，選擇主設(shè)計

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

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

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

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

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

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

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

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

38、顯示。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄n有效：是一個檢查框，該檢查框決定菜單項是否可選有效：是一個檢查框，該檢查框決定菜單項是否可選(有效有效)。當(dāng)該檢。當(dāng)該檢查框被選中時，表示菜單項的查框被選中時，表示菜單項的Enabled屬性為屬性為True，為默認狀態(tài)，程序，為默認狀態(tài)，程序執(zhí)行時菜單高亮度顯示，是可選的；如果該項沒有被選中，執(zhí)行時菜單高亮度顯示，是可選的；如果該項沒有被選中，Enabled屬屬性為性為False，在程序執(zhí)行時該菜單項變成灰色，表示不能被用戶選擇。，在程序執(zhí)行時該菜單

39、項變成灰色，表示不能被用戶選擇。n可見：是一個檢查框，該檢查框確定菜單項是否可見。若該檢查框被可見：是一個檢查框，該檢查框確定菜單項是否可見。若該檢查框被選中，表示該菜單項的選中，表示該菜單項的Visible屬性為屬性為True，即菜單項可見。若該檢查框，即菜單項可見。若該檢查框沒被選中，表示該菜單項的沒被選中，表示該菜單項的Visible屬性為屬性為False，即菜單項不可見。，即菜單項不可見。n顯示窗口列表：當(dāng)該選項被設(shè)置為顯示窗口列表：當(dāng)該選項被設(shè)置為“On”(框內(nèi)有框內(nèi)有“”)時，將顯示當(dāng)時，將顯示當(dāng)前打開一系列子窗口。用于多文檔應(yīng)用程序。前打開一系列子窗口。用于多文檔應(yīng)用程序。n（2

40、）編輯區(qū)）編輯區(qū)n編輯區(qū)共有編輯區(qū)共有7個按鈕，用來對輸入的菜單項進行簡單的編輯。菜單在數(shù)據(jù)個按鈕，用來對輸入的菜單項進行簡單的編輯。菜單在數(shù)據(jù)區(qū)輸入，在菜單項顯示區(qū)顯示。區(qū)輸入，在菜單項顯示區(qū)顯示。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄n（3）菜單項顯示區(qū)）菜單項顯示區(qū)n位于位于“菜單編輯器菜單編輯器”窗口的下部，輸入的菜單項在這里顯示出來，并通窗口的下部，輸入的菜單項在這里顯示出來，并通過內(nèi)縮符號過內(nèi)縮符號(.)，表明菜單項的層次。條形光標(biāo)所在的菜單項是，表明菜單項的層次。條形光標(biāo)所在的菜單

41、項是“當(dāng)前當(dāng)前菜單項菜單項”。n說明：說明：n“菜單項菜單項”是一個總的名稱，它包括是一個總的名稱，它包括4個方面的內(nèi)容：菜單名個方面的內(nèi)容：菜單名(菜單標(biāo)菜單標(biāo)題題)、菜單命令、分隔線和子菜單。、菜單命令、分隔線和子菜單。n內(nèi)縮符號由內(nèi)縮符號由4個點組成，它表明菜單項所在的層次，一個內(nèi)縮符號個點組成，它表明菜單項所在的層次，一個內(nèi)縮符號(4個個點點)表示一層，兩個內(nèi)縮符號表示一層，兩個內(nèi)縮符號(8個點個點)表示兩層，最多為表示兩層，最多為20個點，即個點，即5個內(nèi)個內(nèi)縮符號，它后面的菜單項是第六層。如果一個菜單項前面沒有內(nèi)縮符號，縮符號，它后面的菜單項是第六層。如果一個菜單項前面沒有內(nèi)縮符號

42、，則該菜單為菜單名，即菜單的第一層。則該菜單為菜單名，即菜單的第一層。n只有菜單名沒有菜單項的菜單稱為只有菜單名沒有菜單項的菜單稱為“頂層菜單頂層菜單”，在輸入這樣的菜單，在輸入這樣的菜單項時，通常在后面加上一個嘆號項時，通常在后面加上一個嘆號(！)。n除分隔線外，所有的菜單項都可以接收除分隔線外，所有的菜單項都可以接收Click事件。事件。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄n2、如圖、如圖8-3所示設(shè)置各菜單項。所示設(shè)置各菜單項。n 注意：（注意：（1）、菜單編輯器必須在設(shè)計視圖下才能用，

43、在編程視）、菜單編輯器必須在設(shè)計視圖下才能用，在編程視圖下是不能使用的。圖下是不能使用的。n （2）、所有菜單項的名稱命名規(guī)則同變量的命名規(guī)則相同。）、所有菜單項的名稱命名規(guī)則同變量的命名規(guī)則相同。n（3）、主菜單項不允許添加快捷鍵。）、主菜單項不允許添加快捷鍵。n（4）、菜單項的分級是靠省略號來區(qū)分的。）、菜單項的分級是靠省略號來區(qū)分的。n（5）、菜單項的名稱不能相同，否則作為控件數(shù)組。）、菜單項的名稱不能相同，否則作為控件數(shù)組。n3、各菜單項的屬性值如表、各菜單項的屬性值如表8-7所示。所示。(如果空白則是默認設(shè)置如果空白則是默認設(shè)置)n （本部分由學(xué)生根據(jù)表中數(shù)據(jù)獨立完成）（本部分由學(xué)生

44、根據(jù)表中數(shù)據(jù)獨立完成）VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄圖8-3各菜單項VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄n表表8-7各菜單項的屬性值各菜單項的屬性值說明說明標(biāo)題標(biāo)題名稱名稱快捷鍵快捷鍵其他其他主菜單項主菜單項1文件（&W）wenjian無子菜單項11新建（&N）xinjianCtrl+N子菜單項12打開（&O）dakaiCtrl+O子菜單項13保存（&S）

45、baocunCtrl+S子菜單項14L1無子菜單項15頁面設(shè)置（&U）yemian無子菜單項16打印（&P）dayinCtrl+P子菜單項17L2無子菜單項18退出（&X）tuichu無VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄主菜單項主菜單項2編輯（&E）bianji無子菜單項21撤銷（&U）chexiaoCtrl+Z無效子菜單項22L3無子菜單項23剪切（&T）jianqieCtrl+X無效子菜單項24復(fù)制（&C）fuzhiCtrl+C無效

46、子菜單項25粘貼（&P）zhantie Ctrl+V子菜單項26刪除（&L）shanchuDel無效子菜單項27L4子菜單項28查找（&F）chaozhaoCtrl+F無效子菜單項29查找下一個（&N）xiayigeF3無效子菜單項210替換（&R）tihuanCtrl+H子菜單項211轉(zhuǎn)到（&G）zhuandaoCtrl+GVBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.3 第第3步：在窗體上添加菜單欄步：在窗體上添加菜單欄子菜單項212L5子菜單項213全選（&A）quanxuanCtrl+A子菜單

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

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

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

50、ommon Dialog控件VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.5 第第5步：為窗體添加公共對話框。步：為窗體添加公共對話框。n單擊工具箱中單擊工具箱中該控件在窗體該控件在窗體上畫出該控件。上畫出該控件。（注意：該控（注意：該控件是后臺運行，件是后臺運行，所以程序運行所以程序運行后不會顯示，后不會顯示，類似于類似于Timer控控件）如圖件）如圖8-5所所示。示。 圖8-5工具箱VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.6 第第6步：步： 部分例程序部分例程序 nPrivate Sub baocun_Cli

51、ck()保存按鈕的代碼保存按鈕的代碼nCommonDialog1.ShowSavenR1.SaveFile (CommonDialog1.FileName)nEnd SubnPrivate Sub dakai_Click()打開命令按鈕的代碼打開命令按鈕的代碼nCommonDialog1.ShowOpennR1.LoadFile (CommonDialog1.FileName)nEnd SubnPrivate Sub Form_Load() 設(shè)置公共對話框的默認文件類型設(shè)置公共對話框的默認文件類型nCommonDialog1.Filter = 文檔文件文檔文件 *.txt|*.txt|全部文件

52、全部文件|*.*nEnd Sub VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.6 第第6步：步： 部分例程序部分例程序nPrivate Sub lingcunwei_Click()另存為按鈕的代碼另存為按鈕的代碼nCommonDialog1.ShowSavenR1.SaveFile (CommonDialog1.FileName)nEnd SubnPrivate Sub xinjian_Click()新建按鈕的代碼新建按鈕的代碼nR1.Text = nEnd Subn其他代碼在老師的指導(dǎo)下完成其他代碼在老師的指導(dǎo)下完成VBVB程序設(shè)計項目化教程程序設(shè)計項

53、目化教程中國水利水電出版社中國水利水電出版社8.6 第第6步：步： 部分例程序部分例程序n項目總結(jié)：項目總結(jié)：n菜單編輯器的使用菜單編輯器的使用n公共對話框的使用公共對話框的使用n編程實現(xiàn)屬性設(shè)置編程實現(xiàn)屬性設(shè)置nRichTextBox的使用的使用n文件的打開方法文件的打開方法n操作練習(xí)操作練習(xí)n編寫程序，建立一個文件打開對話框，然后通過這個對話框選擇編寫程序，建立一個文件打開對話框，然后通過這個對話框選擇可執(zhí)行文件，并執(zhí)行它。例如，程序運行后，在對話框中，選擇可執(zhí)行文件，并執(zhí)行它。例如，程序運行后，在對話框中，選擇windows下的下的“計算器計算器” 程序，然后執(zhí)行這個程序，打開程序，然后

54、執(zhí)行這個程序，打開“計算計算器器”。n編寫程序，在窗體上顯示一行信息，通過自己定義的顏色對話框編寫程序，在窗體上顯示一行信息，通過自己定義的顏色對話框和字體對話框改變這行信息的顏色和字體和字體對話框改變這行信息的顏色和字體.VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程中國水利水電出版社中國水利水電出版社8.6 第第6步：步： 部分例程序部分例程序n在窗體上建立一個通用對話框，在窗體上建立一個通用對話框，1個文本框和個文本框和3個命令個命令按鈕，在文本框中輸入一段文本（漢字），然后實現(xiàn)按鈕，在文本框中輸入一段文本（漢字），然后實現(xiàn)以下操作：以下操作：o通過字體對話框把文本框中的文字設(shè)置為黑體，字

55、體樣式設(shè)通過字體對話框把文本框中的文字設(shè)置為黑體，字體樣式設(shè)置為粗體，字體大小設(shè)置為置為粗體，字體大小設(shè)置為24，該操作在第一個命令按鈕的，該操作在第一個命令按鈕的事件過程實現(xiàn)。事件過程實現(xiàn)。o通過顏色對話框把文本框中的文字的前景顏色設(shè)置為紅色。通過顏色對話框把文本框中的文字的前景顏色設(shè)置為紅色。該操作在第二個命令按鈕的事件過程實現(xiàn)。該操作在第二個命令按鈕的事件過程實現(xiàn)。o通過顏色對話框把文本框中的文字的背景顏色設(shè)置為黃色。通過顏色對話框把文本框中的文字的背景顏色設(shè)置為黃色。該操作在第三個命令按鈕的事件過程實現(xiàn)。該操作在第三個命令按鈕的事件過程實現(xiàn)。VBVB程序設(shè)計項目化教程程序設(shè)計項目化教程

56、中國水利水電出版社中國水利水電出版社8.6 第第6步：步： 部分例程序部分例程序n在窗體上畫一個文本框，把它的在窗體上畫一個文本框，把它的Multiline屬性設(shè)置為屬性設(shè)置為True；通過菜單命令向文；通過菜單命令向文本框中輸入信息并對文本框中的的文本進行格式化。按下述要求建立菜單程序：本框中輸入信息并對文本框中的的文本進行格式化。按下述要求建立菜單程序：o菜單程序含有菜單程序含有3個主菜單，分別為個主菜單，分別為“輸入信息輸入信息”、“顯示信息顯示信息”和格式。其中：和格式。其中：“輸入輸入信息信息”包括兩個菜單命令：包括兩個菜單命令：“輸入輸入”、“退出退出”；n“顯示信息顯示信息”包括兩個菜單命令：包括兩個菜單命令：“顯示顯示”、“清除清除”；n“格式格式”包括包括5個菜單命令：個菜單命令：“正常正?！?/p>