《Visual Basic程序設(shè)計(jì)（第4版）》第9章 菜單和工具欄設(shè)計(jì)

單元九菜單和工具欄設(shè)計(jì)

單元九菜單和工具欄設(shè)計(jì)菜單設(shè)計(jì)1工具欄設(shè)計(jì)2滾動(dòng)條控件

ScrollBar39.1菜單設(shè)計(jì)9.1.1菜單的兩種基本類型1.下拉式菜單

下拉式菜單是一種典型的窗口式菜單，一般通過單擊窗口菜單欄中的菜單標(biāo)題的方式打開。2.彈出式菜單彈出式菜單（也稱右鍵菜單、快捷菜單），是當(dāng)用戶在一個(gè)對(duì)象上單擊右鍵時(shí)顯示出來的菜單，可以在窗口的某個(gè)位置顯示，因此，用戶可以利用彈出式菜單更方便快捷地操作。

9.1.2下拉式菜單的程序設(shè)計(jì)利用菜單編輯器可以在窗體中建立下拉式菜單，設(shè)計(jì)步驟為：

(1)新建一個(gè)窗體，并設(shè)計(jì)用戶界面。

(2)利用菜單編輯器設(shè)計(jì)各菜單項(xiàng)。

(3)利用代碼編輯窗口編寫每一菜單項(xiàng)的事件過程。

(4)運(yùn)行調(diào)試各菜單命令。1.建立簡(jiǎn)單的下拉式菜單在窗體上建立下拉式菜單。

(1)在VB中，菜單是一個(gè)控件。

(2)菜單控件不在VB的工具箱中，需要在VB的“菜單編輯器”中進(jìn)行菜單的設(shè)計(jì)。

(3)進(jìn)入菜單編輯器可以通過下面4種方法：?jiǎn)螕簟肮ぞ摺辈藛巍安藛尉庉嬈鳌泵睢螕艄ぞ邫谥械摹安藛尉庉嬈鳌卑粹o。在窗體上單擊右鍵，在快捷菜單中選擇“菜單編輯器”。按下快捷鍵Ctrl+E。2.常用的下拉式菜單程序設(shè)計(jì)利用下拉式菜單為標(biāo)簽中的文本內(nèi)容設(shè)置不同的字體和風(fēng)格。建立用戶界面及設(shè)置對(duì)象屬性。

PrivateSubsong_Click()Label1.FontName="宋體"EndSubPrivateSubli_Click()Label1.FontName="隸書"EndSubPrivateSubkai_Click()Label1.FontName="楷體_GB2312"EndSubPrivateSubhei_Click()Label1.FontName="黑體"EndSubPrivateSubbld_Click()bld.Checked=Notbld.CheckedLabel1.FontBold=bld.CheckedEndSubPrivateSubItl_Click()Itl.Checked=NotItl.CheckedLabel1.FontItalic=Itl.CheckedEndSubPrivateSubUndrln_Click()Undrln.Checked=NotUndrln.CheckedLabel1.FontUnderline=Undrln.CheckedEndSub3.動(dòng)態(tài)菜單的程序設(shè)計(jì)設(shè)計(jì)菜單程序。

建立用戶界面。PrivateSubMain_Click()IfText1.Text=“”Then

Size(1).Enabled=False

Size(2).Enabled=FalseSize(3).Enabled=FalseElseSize(1).Enabled=TrueSize(2).Enabled=TrueSize(3).Enabled=TrueEndIfEndSubPrivateSubSize_Click(IndexAsInteger)SelectCaseIndexCase1

Size(3).Checked=FalseSize(2).Checked=FalseSize(1).Checked=TrueText1.FontSize=10Case2

Size(1).Visible=True

Size(1).Checked=FalseSize(3).Checked=FalseSize(2).Checked=TrueText1.FontSize=12Ifa=1ThenUnloadSize(4)a=0EndIf

Case3

Size(2).Checked=FalseSize(1).Checked=FalseSize(3).Checked=TrueText1.FontSize=14Size(1).Visible=FalseIfa=0ThenLoadSize(4)a=1Size(4).Visible=TrueSize(4).Caption="16"ElseSize(4).Checked=FalseEndIfCase4

Size(2).Checked=FalseSize(3).Checked=FalseSize(4).Checked=TrueText1.FontSize=16EndSelectEndSub9.1.3彈出式菜單的程序設(shè)計(jì)設(shè)計(jì)彈出式菜單的步驟可以分為兩步：

(1)使用菜單編輯器建立菜單，此步驟與前面介紹的建立下拉菜單的方法一樣，只是必須把主菜單的“可見”欄Visible屬性設(shè)置為False，其子菜單項(xiàng)的Visible屬性不要設(shè)置為False。

(2)利用窗體的PopupMenu方法顯示彈出式菜單。[〈窗體名〉.]PopupMenu〈菜單名〉[,Flags[,x[,y[,Boldcommand]]]]為文本框增加一個(gè)彈出式菜單，該菜單中包含3個(gè)選項(xiàng)，分別是“紅色”、“藍(lán)色”和“綠色”，單擊相應(yīng)的選項(xiàng)后可以改變文本框中文字的顏色。

(1)建立用戶界面。

添加一個(gè)文本框控件Text1。在“菜單編輯器”窗口中添加一個(gè)標(biāo)題為“顏色”、名為“Color”的主菜單。向其中添加“紅色”（Red）、“藍(lán)色”（Blue）和“綠色”（Green）的3個(gè)菜單項(xiàng)。將頂級(jí)菜單的Visible屬性設(shè)為False（將“可見”前面的“√”去掉，使其不可見），

(2)編寫事件代碼。PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then

PopupMenuColor,4Or2

EndIfEndSubPrivateSubRed_Click()Text1.ForeColor=vbRedEndSubPrivateSubBlue_Click()Text1.ForeColor=vbBlueEndSubPrivateSubGreen_Click()Text1.ForeColor=vbGreenEndSub返回目錄9.2工具欄設(shè)計(jì)9.2.1手工方式設(shè)計(jì)工具欄

手工制作工具欄的一般步驟和注意事項(xiàng)：

(1)在窗體界面上，添加一個(gè)圖片框，將該圖片框作為工具按鈕的容器。

(2)設(shè)置圖片框的Align屬性以便控制工具欄（圖片框）在窗體中的位置。當(dāng)改變窗體的大小時(shí)，圖片框（Align屬性值非0）會(huì)自動(dòng)地改變大小以適應(yīng)窗體的寬度或高度。

(3)選定圖片框，在圖片框中添加需在工具欄中顯示的控件。通常使用的控件有：命令按鈕、圖形方式的單選按鈕和復(fù)選框按鈕、下拉列表框等。

(4)設(shè)置控件屬性。通常在工具按鈕上通過不同的圖像來表示對(duì)應(yīng)的功能，還可以設(shè)置按鈕的ToolTipText屬性為工具按鈕添加工具提示。

(5)編寫代碼。由于工具按鈕通常用于提供對(duì)其他（菜單）命令的快捷訪問，所以一般都是在其Click事件代碼中調(diào)用對(duì)應(yīng)的菜單命令。為文本框添加一個(gè)簡(jiǎn)單的工具欄。通過工具欄中的按鈕，改變文本字體的大小。

(1)建立用戶界面。在窗體中添加一個(gè)作為容器使用的圖片框，在其中添加由3個(gè)命令按鈕組成的按鈕組Command1(0)～Command1(2)。再增加一個(gè)文本框控件Text1。

(2)設(shè)置對(duì)象屬性。將圖片框的Align屬性設(shè)為1（圖片框貼于窗體的頂部）。按鈕的Caption屬性分別設(shè)為“10”、“12”和“14”。文本框Text1的MultiLine屬性設(shè)為“True”，允許多行顯示，將ScrollBars屬性設(shè)為2（帶垂直滾動(dòng)條）。

(3)編寫事件代碼。PrivateSubCommand1_Click(indexAsInteger)n=indexSelectCasenCase0Text1.FontSize=10Case1Text1.FontSize=12Case2Text1.FontSize=14EndSelectEndSub9.2.2使用Toolbar控件設(shè)計(jì)工具欄利用Toolbar制作工具欄，單擊工具欄中的“加粗”、“斜體”、“下劃線”按鈕，就能執(zhí)行相應(yīng)的操作，工具按鈕帶有對(duì)應(yīng)的工具提示。

(1)建立用戶界面。①添加Toolbar控件。選擇“工程”菜單→“部件”，打開“部件”對(duì)話框，選中MicrosoftWindowsCommonControls6.0，單擊“確定”按鈕。②雙擊工具箱中的Toolbar控件向窗體中添加工具欄控件，雙擊其中的“ImageList”按鈕向窗體中添加圖像列表控件。③向窗體中添加一個(gè)文本框控件Text1。

(2)設(shè)置對(duì)象屬性。①將文本框Text1的MultiLine屬性設(shè)為True，將ScrollBars屬性設(shè)為2。②指向ImageList控件，單擊右鍵，在快捷菜單中選擇“屬性”，打開“屬性頁”對(duì)話框，選擇“圖像”選項(xiàng)卡，單擊“插入圖片”按鈕，選出需要的圖像。③在窗體工具欄上單擊右鍵，在“屬性頁”對(duì)話框，在“圖像列表”選項(xiàng)中選取ImageList1，建立與圖像列表框的關(guān)聯(lián)。選擇“按鈕”選項(xiàng)卡，單擊其中的“插入按鈕”按鈕，向工具欄中添加3個(gè)工具按鈕，索引值分別為1、2、3，關(guān)鍵字分別為B、I、U，對(duì)應(yīng)圖像的索引值分別為1、2、3，將工具提示文本分別設(shè)為“粗體”、“斜體”、“下劃線”。

(3)編寫事件代碼。PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Text1.FontBold=TrueCase2Text1.FontItalic=TrueCase3Text1.FontUnderline=TrueEndSelectEndSub返回目錄9.3滾動(dòng)條控件ScrollBar9.3.1滾動(dòng)條控件的類型

有水平和垂直兩種，可以通過水平滾動(dòng)條（HScrollBars）和垂直滾動(dòng)條（VScrollBars）工具建立。9.3.2滾動(dòng)條控件的程序設(shè)計(jì)1.簡(jiǎn)單的滾動(dòng)條設(shè)計(jì)在窗體上建立一個(gè)滾動(dòng)條控件，當(dāng)拖動(dòng)滾動(dòng)條時(shí)，在文本框中顯示滑塊當(dāng)前位置代表的值。(1)建立用戶界面和設(shè)置對(duì)象屬性。(2)編寫事件代碼。PrivateSubHScroll1_Change()HScroll1.Max=200HScroll1.Min=1HScroll1.SmallChange=1HScroll1.LargeChange=5Text1.Text=HScroll1.ValueEndSub2.設(shè)計(jì)調(diào)色板利用滾動(dòng)條控制色彩，并且返回色彩的RGB值。

(1)建立應(yīng)用程序用戶界面。先增加一個(gè)框架Frame1，激活Frame1后，在其中增加一個(gè)圖片框Picture1，一個(gè)文本框Text1，一個(gè)水平滾動(dòng)條控件數(shù)組HScroll1(0)～HScroll1(2)和一個(gè)標(biāo)簽控件數(shù)組Label1(0)～Label1(2)。

(2)設(shè)置對(duì)象屬性。對(duì)象屬性屬性值Hscroll1(0)～Hscroll1(2)LargeChange32SmallChange4Max0Min255Value255Label1(0)～Label1(2)Caption依次為：紅、綠、藍(lán)Frame1Caption利用滾動(dòng)條控制色彩Text1TextColor=RGB(255,255,255)

(3)編寫事件代碼。PrivateSubHScroll1_Change(IndexAsInteger)Picture1.BackColor=RGB(HScroll1(0),HScroll1(1),HScroll1(2))

r=LTrim(Str(HScroll1(0)))g=LTrim(Str(HScroll1(1)))

b=LTrim(Str(HScroll1(2)))Text1.Text="Color=RGB("&r&","&g&","&b&")"EndSubPrivateSubText1_GotFocus()Text1.SelStart=10EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thena=InStr(10,Text1.Text,",")b=InStr(a+1,Text1.Text,",")c=InStr(b+1,Text1.Text,")")HScroll1(0)=Val(Mid(Text1.Text,11,a–10))HScroll1(1)=Val(Mid(Text1.Text,a+1,b–a))HScroll1(2)=Val(Mid(Text1.Text,b+1,c–b–1))EndIfEnd