《Visual Basic.NET程序设计教程》第11章 界面设计

第11章界面设计本章要点：菜单的设计下拉式菜单弹出式菜单工具栏的设计对话框的设计状态栏的设计111.1菜单的设计菜单分为：下拉式菜单和弹出式菜单11.1.1下拉式菜单1．下拉式菜单的结构主菜单栏主菜单标题子菜单子菜单标题菜单命令分隔条22.下拉式菜单的设计步骤使用MenuStrip控件设计下拉式菜单的主要步骤如下：1）单击工具箱中的MenuStrip控件，在窗体的任意位置拖动鼠标将其添加到窗体上。菜单编辑框MenuStrip控件32）在菜单编辑框中输入各菜单标题，或单击菜单编辑框旁边的下拉箭头，从下拉列表中选择要创建的菜单项的类型。下拉列表包含的选项如下：MenuItem：建立一个普通的菜单项。ComboBox：建立一个具有组合框样式的菜单项。TextBox：建立一个具有文本框样式的菜单项。Separator：表示建立一个分隔条。要建立分隔条，可以在菜单编辑框中键入一个连字符(-)，或从下拉列表中选择Separator。43）给各菜单项命名并设置有关属性。每个菜单项是一个ToolStripMenuItem类型的对象，因此具有其属性、事件和方法。

要对菜单项进行编辑，可以右击已经添加的菜单项，使用快捷菜单命令实现。例如，使用“转换为”命令可以改变菜单项的类型，使用“插入”命令可以在当前菜单项之前插入新的菜单项，使用“删除”命令可以删除当前菜单项。4）编写各菜单命令的Click事件过程，实现相应的功能。53.菜单项的属性1）Text：在菜单项中显示的文字。可以用该属性为菜单项定义一个访问键。如果在该属性中的某个字母前插入&符号，则该字母会带有下划线。运行时，对于主菜单项，同时按Alt键和该字母就可以打开其子菜单；对于已经打开的子菜单，直接按下该字母键相当于用鼠标单击对应的菜单项。2）Checked：获取或设置在菜单项旁边有、无√符号。如果有则为True，没有则为False。3）CheckOnClick：获取或设置菜单项是否应在被单击时自动显示为选中（在菜单项前打√）或未选中。如果是则为True，否则为False。64）DisplayStyle：表示是否在菜单项上显示文本和图像。是ToolStripItemDisplayStyle枚举类型，有以下取值：None：菜单项既不显示图像，也不显示文本。Text：菜单项只显示文本。Image：菜单项只显示图像。ImageAndText：菜单项同时显示图像和文本。5）Image：在菜单项上显示的图像。6）ImageScaling：指示是否根据菜单项自动调整其上的图像的大小。是ToolStripItemImageScaling枚举类型，有以下取值：None：指定菜单项上的图像的大小不自动调整为适合菜单项的大小。SizeToFit：指定菜单项上的图像的大小自动调整为适合菜单项的大小。77）ShortcutKeys：获取或设置与菜单项关联的快捷键。如“Ctrl+A”、“Ctrl+K”等。注意，不能给顶级菜单项设置快捷键。8）ShowShortcutKeys：指示是否允许在菜单项上显示快捷键。如果允许显示快捷键，则为True，否则为False。9）还可以通过设置MenuStrip控件的Items属性添加主菜单项；或通过设置菜单项的DropDownItems属性添加子菜单项。81）MenuStrip控件的Items属性的Add方法：用于添加主菜单项2）菜单项的DropDownItems属性的Add方法：用于添加下拉菜单项3）菜单项的Remove方法或RemoveAt方法：用于删除菜单项4.菜单项的方法9【例11-1】设计菜单界面，各主菜单及其子菜单如下图。其中，“格式”菜单下的菜单项“粗体、斜体、下划线、删除线”具有复选功能，可以在两种状态之间切换。编写有关代码实现各菜单项的功能。10界面设计：1）新建一个Windows窗体应用程序项目，向窗体上添加一个MenuStrip控件，使用默认名称MenuStrip1。在窗体上设计各菜单项，并设置相关属性，各菜单项属性设置见P219表11-12）向窗体上添加一个文本框，使用其默认名称TextBox1，在其Text属性中录入一些文字。11代码设计：1）“文件”菜单下的各菜单项的代码：见例11-22）“编辑”菜单下的菜单项功能：PrivateSubtxtCopy_Click(…)HandlestxtCopy.ClickTextBox1.Copy()'复制EndSubPrivateSubtxtCut_Click(…)HandlestxtCut.ClickTextBox1.Cut()'剪切EndSubPrivateSubtxtPaste_Click(…)HandlestxtPaste.ClickTextBox1.Paste()'粘贴EndSub123）“格式”菜单下的“字体”和“背景颜色”菜单项的功能见例11-7、例11-8。“格式”菜单下的其它菜单项的Click事件过程：'左对齐PrivateSubtxtleft_Click(…)Handlestxtleft.ClickTextBox1.TextAlign=HorizontalAlignment.LeftEndSub'居中PrivateSubtxtCenter_Click(…)HandlestxtCenter.ClickTextBox1.TextAlign=HorizontalAlignment.CenterEndSub'右对齐PrivateSubtxtRight_Click(…)HandlestxtRight.ClickTextBox1.TextAlign=HorizontalAlignment.RightEndSub13'粗体PrivateSubtxtBold_Click(…)HandlestxtBold.ClickIftxtBold.CheckedThen

TextBox1.Font=NewFont(TextBox1.Font,FontStyle.Bold

OrTextBox1.Font.Style)Else

TextBox1.Font=NewFont(TextBox1.Font,NotFontStyle.Bold

AndTextBox1.Font.Style)EndIfEndSub“斜体、下划线、删除线”菜单项代码类似，略。14154．菜单的动态增减（1）可以使用以下方法实现在运行时动态增加菜单项：1）使用MenuStrip控件的Items属性的Add方法，可以将新的菜单项添加到主菜单项集合中。例：设已经使用MenuStrip1控件设计了一些菜单项，以下代码可以添加一个新的主菜单项：

'创建“帮助”主菜单DimNewMainMenuAsNewToolStripMenuItem()NewMainMenu.Text="帮助"MenuStrip1.Items.Add(NewMainMenu)162）对指定的菜单项（对象）的DropDownItems属性使用Add方法，可以为指定的菜单项添加下拉菜单项。

例：创建“帮助”主菜单，并为“帮助”主菜单添加两个新的子菜单项“技术支持”和“公司简介”。

'创建“帮助”主菜单

DimNewMainMenuAsNewToolStripMenuItem()NewMainMenu.Text="帮助"MenuStrip1.Items.Add(NewMainMenu)

'创建第一个子菜单项

DimNewSubMenu1AsNewToolStripMenuItem()NewSubMenu1.Text="技术支持"

NewMainMenu.DropDownItems.Add(NewSubMenu1)

'创建第二个子菜单项DimNewSubMenu2AsNewToolStripMenuItem()NewSubMenu2.Text="公司简介"

NewMainMenu.DropDownItems.Add(NewSubMenu2)16173）为底层菜单项（菜单命令）定义Click事件过程。例如，可以使用AddHandler语句将事件与事件处理程序相关联。AddHandler语句格式如下：

AddHandler

事件名称,AddressOf

事件过程名称例：创建“帮助”主菜单及“技术支持”和“公司简介”子菜单项，并为这两个子菜单项定义相应的Click事件过程。PrivateSubButton1_Click(…)HandlesButton1.Click

'创建“帮助”主菜单DimNewMainMenuAsNewToolStripMenuItem()

NewMainMenu.Text="帮助"MenuStrip1.Items.Add(NewMainMenu)1718

'创建第一个子菜单项

DimNewSubMenu1AsNewToolStripMenuItem()

NewSubMenu1.Text="技术支持"

NewMainMenu.DropDownItems.Add(NewSubMenu1)

'添加事件

AddHandlerNewSubMenu1.Click,AddressOf

_

NewMenu1_Click

'创建第二个子菜单项

DimNewSubMenu2AsNewToolStripMenuItem()

NewSubMenu2.Text="公司简介"

NewMainMenu.DropDownItems.Add(NewSubMenu2)

'添加事件

AddHandlerNewSubMenu2.Click,AddressOf

_

NewMenu2_ClickEndSub1819'添加事件过程NewMenu1_ClickPrivateSubNewMenu1_Click(ByValobjAsObject,ByValeAsEventArgs)

MsgBox("技术支持")EndSub'添加事件过程NewMenu2_ClickPrivateSubNewMenu2_Click(ByValobjAsObject,ByValeAsEventArgs)

MsgBox("公司简介")EndSub1920（2）要删除某个菜单项，可以对Items属性或DropDownItems属性使用RemoveAt方法或Remove方法实现。例：删除以上创建的“公司简介”子菜单项：

NewMainMenu.DropDownItems.RemoveAt(1)例：删除以上创建的“帮助”主菜单：

MenuStrip1.Items.Remove(NewMainMenu)20【例11-2】在例11-1的基础上进一步实现菜单项的动态增减。要求：运行时单击“打开”菜单项在分隔线下面增加一个新的菜单项（一个由用户指定的文件名），单击“关闭”菜单项删除分隔线下面最后一个菜单项。21代码设计：1）编写“打开”菜单项的Click事件过程：PrivateSubFileOpen_Click(…)HandlesFileOpen.ClickDimOpenFileNameAsString

OpenFileName=InputBox("请输入文件名")IfTrim(OpenFileName)<>""Then

DimFileSubMenuItemAsNewToolStripMenuItem()

FileSubMenuItem.Text=OpenFileName

FileMenu.DropDownItems.Add(FileSubMenuItem)

AddHandler

FileSubMenuItem.Click,AddressOf_

MenuClick

EndIfEndSub222）编写新增的菜单项的Click事件过程，实现单击菜单项需要完成的功能，这里假设在单击文件名菜单项时显示一个消息框。代码如下：PrivateSubMenuClick(ByVal

objAsObject,_

ByValeAsEventArgs)DimMenuAsToolStripMenuItem=obj

MsgBox("打开了名称为"&Menu.Text&"的文件")EndSub

运行时，单击“打开”菜单项，首先显示一个输入框，让用户输入文件名，单击“确定”按钮之后，即在文件菜单下添加一个新的菜单项。233）编写“关闭”菜单项的Click事件过程。代码如下：PrivateSubFileClose_Click(…)HandlesFileClose.ClickDimiAsInteger

'

i用于保存下拉菜单项的总个数i=FileMenu.DropDownItems.CountIfi>2Then

'删除最后一个菜单项

FileMenu.DropDownItems.RemoveAt(i-1)EndIfEndSub

运行时，单击“关闭”菜单项，执行以上过程，删除动态增加的最后一个菜单项。2411.1.2弹出式菜单

弹出式菜单又称为“上下文菜单”或“快捷菜单”。通常，弹出式菜单通过右击鼠标打开，所以也称“右键菜单”1．弹出式菜单的设计步骤1）向窗体上添加ContextMenuStrip控件252）按照与设计下拉式菜单类似的方法设计弹出式菜单的各个菜单项，在属性窗口为各菜单项命名并设置属性。3）将ContextMenuStrip控件与有关的对象进行关联。要想在右击某对象时显示弹出式菜单，只需将该对象的ContextMenuStrip属性设置为ContextMenuStrip控件的名称即可。4）编写各个弹出式菜单项的Click事件过程，实现相应的功能。26【例11-3】在例11-2的基础上为文本框设计快捷菜单，实现对文本框内的文字进行放大或缩小，还可以修改文本框的只读属性。菜单设计：1）打开例11-2的应用程序，向窗体上添加一个ContextMenuStrip控件，使用其默认名称ContextMenuStrip1。在窗体上显示的菜单编辑框中设计文本框快捷菜单。272）按下表设置各菜单项的Name属性。Text属性Name属性说明放大ZoomIn使文本框的文字大小增加10磅缩小ZoomOut使文本框的文字大小减少10磅只读txtLock决定文本框的文字内容能否修改，运行时在“只读”和“读写”两种状态之间切换3）在文本框TextBox1的属性窗口中设置其ContextMenuStrip属性为ContextMenuStrip1，使所设计的快捷菜单与文本框相关联。28代码设计：PrivateSubZoomIn_Click(…)HandlesZoomIn.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size+10)EndSubPrivateSubZoomOut_Click(…)HandlesZoomOut.ClickIfTextBox1.Font.Size>10ThenTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size-10)Else

MsgBox("不能再缩小")EndIfEndSub29PrivateSubtxtLock_Click(…)HandlestxtLock.ClickIftxtLock.Text="只读"Then

txtLock.Text="读写"

TextBox1.ReadOnly=True

Else

txtLock.Text="只读"

TextBox1.ReadOnly=False

EndIfEndSub运行效果：3011.2工具栏的设计

设计工具栏可以使用ToolStrip控件实现。用ToolStrip控件设计工具栏步骤如下：1）向窗体上添加ToolStrip控件：ToolStrip控件312）单击下拉箭头从下拉列表中选择需要添加到工具栏的对象。3）在属性窗口设置工具栏各对象的属性。4）为各个工具栏对象编写事件过程代码，实现相应的功能。32【例11-4】为例11-3添加工具栏，实现“编辑”菜单下的复制、剪切、粘贴功能，以及“格式”菜单下的左对齐、居中、右对齐功能。33工具栏设计：1）打开例11-3的应用程序，调整窗体和文本框的大小或位置，为工具栏留出一定空间。向窗体上添加一个ToolStrip控件，使用其默认名称ToolStrip1。2）向工具栏添加两组命令按钮，并用分隔条将它们隔开。各工具栏按钮的属性设置如下表：34Name ToolTipTextCheckedCheckOnClickImageToolStripButton1复制ToolStripButton2剪切ToolStripButton3粘贴ToolStripSeparator1ToolStripButton4左对齐TrueTrueToolStripButton5居中FalseTrueToolStripButton6右对齐FalseTrue35代码设计：1）编写“复制、剪切、粘贴”按钮的Click事件过程：PrivateSubToolStripButton1_Click……

txtCopy.PerformClick()

'复制EndSubPrivateSubToolStripButton2_Click……

txtCut.PerformClick()

'剪切EndSubPrivateSubToolStripButton3_Click……

txtPaste.PerformClick()

'粘贴EndSub361）编写“左对齐、居中、右对齐”按钮的Click事件过程，实现单击时改变文本框文本的对齐方式，并使它们具有单选按钮的功能，即当按下（选择）其中一个按钮时，另外两个按钮抬起（取消选择）。PrivateSubToolStripButton4_Click……TextBox1.TextAlign=HorizontalAlignment.Left

ToolStripButton4.Checked=True'左对齐按钮按下

ToolStripButton5.Checked=FalseToolStripButton6.Checked=FalseEndSub37PrivateSubToolStripButton5_Click……TextBox1.TextAlign=HorizontalAlignment.Center

ToolStripButton4.Checked=FalseToolStripButton5.Checked=True'居中按钮按下

ToolStripButton6.Checked=FalseEndSubPrivateSubToolStripButton6_Click……TextBox1.TextAlign=HorizontalAlignment.Right

ToolStripButton4.Checked=FalseToolStripButton5.Checked=FalseToolStripButton6.Checked=True'右对齐按钮按下EndSub3811.3对话框的设计

对话框是用户和应用程序交互的重要途径，是用来显示提示信息、提供输入数据或进行选择的界面。对话框分为：预定义对话框自定义对话框使用标准窗体创建自定义对话框使用VB.NET提供的控件创建通用对话框3911.3.1自定义对话框设计自定义对话框可以按以下步骤进行：1）添加窗体。2）将窗体定义成对话框风格。例如：FormBorderStyle属性：设置为FixedDialog，则运行时不能通过拖曳窗体边框改变大小，且不显示控制菜单图标。MaximizeBox属性：设置为False，则最大化按钮无效。MinimizeBox属性：设置为False，则最小化按钮无效。403）在对话框上添加按钮。如“确定”与“取消”按钮，“是”与“否”按钮等。通常还需将对话框窗体的AcceptButton属性设置为对话框中的某个按钮，将对话框窗体的CancelButton属性设置为对话框中的另一个按钮。4）根据对话框要完成的功能在对话框上添加各种控件，如文本框、单选按钮、复选框、组合框、下拉列表框等。5）在适当的位置编写显示对话框的代码。自定义对话框由普通窗体设计而来，所以显示对话框与显示窗体方法类似。根据对话框的作用，可以有两种显示方式，即模式对话框与无模式对话框。41模式对话框：如果在打开一个对话框时，焦点不可以切换到其他窗体或对话框，则这种对话框称为模式对话框。无模式对话框：如果在打开一个对话框时，焦点可以切换到其他窗体或对话框，则这种对话框称为无模式对话框。将窗体显示为无模式对话框使用以下方法：

窗体名.Show()例：将窗体Form2显示为无模式对话框：

Form2.Show()将窗体显示为模式对话框使用以下方法：窗体名.ShowDialog()例：将窗体Form2显示为模式对话框：

Form2.ShowDialog()426）编写实现对话框功能的代码，如“确定”按钮和“取消”按钮的Click事件过程。不同的对话框所完成的功能不同，因此应根据实际要求编写代码。7）编写从对话框退出的代码。从对话框退出可以使用窗体的Close方法或Hide方法。

例如：Me.Close()

或：Me.Hide()

用Close方法关闭窗体对象后，将关闭在该窗体对象内创建的所有资源并且释放该窗体。而Hide方法只是将窗体隐藏起来，该窗体以及其中的资源仍留在内存中。43【例11-5】在例11-4的“编辑”菜单下添加一个“查找替换”菜单项，运行时通过单击该菜单项打开一个查找替换对话框，实现对文本框文本的简单查找和替换。界面设计：txtFind1）在“编辑”菜单下添加“查找替换”菜单项：442）使用“项目|添加Windows窗体”命令，在当前项目中添加一个新窗体Form2，将Form2设计成对话框样式：FormBorderStyle属性：FixedDialogMaximizeBox属性：FalseMinimizeBox属性：FalseButton1Button2Button3TextBox1TextBox245代码设计：1）编写窗体Form1的“查找替换”菜单项的Click事件过程，以显示对话框Form2。PrivateSubtxtFind_Click(…)HandlestxtFind.Click

Form2.Show()

'Form2显示为无模式对话框EndSub2）在Form2窗体类的声明段声明两个模块级变量：StartPos用于保存Form1的TextBox1的文本插入点；Pos用于保存在TextBox1中查找时找到的位置：

DimStartPos,PosAsInteger463）编写Form2上的“查找下一处”按钮Button1的Click事件过程，实现查找。PrivateSubButton1_Click(…)HandlesButton1.ClickPos=InStr(StartPos+1,Form1.TextBox1.Text,TextBox1.Text)

IfPos=0Then'如果没找到

MsgBox("查找完毕,已没有匹配项")

StartPos=0'将查找位置设置在最开始处

Else'如果找到，则选中找到的文本

Form1.TextBox1.Focus()Form1.TextBox1.SelectionStart=Pos-1Form1.TextBox1.SelectionLength=Len(TextBox1.Text)

'修改下次查找的起始位置

StartPos=Form1.TextBox1.SelectionStart+Len(TextBox1.Text)EndIfEndSub474）编写对话框Form2的“替换”按钮Button2的Click事件过程。PrivateSubButton2_Click(…)HandlesButton2.Click

'如果有选中的文本

IfLen(Form1.TextBox1.SelectedText)>0Then

'替换选中的文本

Form1.TextBox1.SelectedText=TextBox2.Text

'调用Button1的Click事件过程继续查找下一处

Button1.PerformClick()

EndIfEndSub5）编写对话框Form2的“取消”按钮Button3的Click事件过程，实现从对话框退出。PrivateSubButton3_Click(…)HandlesButton3.Click

Me.Close()EndSub4811.3.2通用对话框

利用VB.NET提供的通用对话框控件可以快速创建Windows风格的标准对话框。如：保存文件对话框打开文件对话框字体对话框颜色对话框……491.文件对话框包括：打开文件对话框；保存文件对话框打开文件对话框：使用OpenFileDialog控件设计保存文件对话框：使用SaveFileDialog控件设计OpenFileDialog控件和SaveFileDialog控件都是不可见控件，将它们画到窗体上之后，这些控件会显示在窗体下方的专用面板中。50文件对话框的结构：以打开文件对话框为例：标题文件位置文件名文件类型51文件对话框控件的属性、方法和事件：（1）属性1）Title：文件对话框的标题。对于打开文件对话框，默认标题为“打开”；对于保存文件对话框，默认标题为“另存为”。2）InitialDirectory：文件对话框显示的初始目录。如d:\3）FileName：获取在文件对话框中选定的文件名（包含路径和扩展名），或设置显示在对话框中的文件名。524）Filter：指定在文件对话框的文件类型列表框中所要显示的内容，即设置过滤器。Filter属性中可以设置多个过滤器，每个过滤器由描述、垂直线（|）和过滤条件组成，多个过滤器间用垂直线分隔。例如：所有文件(*.*)|*.*|Pictures(*.bmp;*.ico)|*.bmp;*.ico描述描述过滤器过滤器5）FilterIndex：表示在文件对话框中当前选定过滤器的索引。默认值为1。第一个过滤器索引为1，第二个过滤器索引为2……536）DefaultExt：获取或设置默认的文件扩展名。文件扩展名由Filter和DefaultExt属性决定。如果在文件对话框中选定了过滤器，且该过滤器指定了具体的扩展名，则使用该扩展名。如果所选定的过滤器使用了通配符代替具体的扩展名，则使用在DefaultExt属性中指定的扩展名。7）Multiselect：指示文件对话框是否允许同时选择多个文件。如果允许则为True，否则为False。8）FileNames：获取文件对话框中所有选定文件的文件名。该属性是一个String类型的数组，每个数组元素包含一个文件名，每个文件名既包含文件路径又包含文件扩展名。如果未选定文件，该属性返回一个空数组。549）CheckFileExists：指示如果用户在文件对话框中指定一个不存在的文件名时是否给出警告。如果是则为True，否则为False。10）CheckPathExists：指示如果用户在文件对话框中指定一个不存在的路径时是否给出警告。如果是则为True，否则为False。55ShowDialog：显示通用对话框。使用格式为：

控件名.ShowDialog()（2）方法

ShowDialog方法的返回值是DialogResult枚举类型。使用ShowDialog方法显示通用对话框后，如果用户在对话框中单击“确定”按钮，则ShowDialog方法返回值DialogResult.OK；否则返回值DialogResult.Cancel。例如，设已经向窗体上添加了一个名称为OpenFileDialog1的

OpenFileDialog控件，使用以下方法可以显示一个打开文件对话框。

OpenFileDialog1.ShowDialog()56FileOk：当用户单击文件对话框的“打开”或“保存”按钮时引发该事件。（3）事件57界面设计：【例11-6】在例11-5的基础上继续设计。将11-5的“文件”菜单功能改成用通用对话框控件来指定要打开的文件路径及名称。1）打开例11-5的应用程序，向窗体Form1上的添加一个OpenFileDialog控件，使用其默认名称OpenFileDialog1。2）设置OpenFileDialog1控件的以下属性：Title属性：请选择文件FileName属性：(清空)InitialDirectory属性：d:\Filter属性：AllFiles|*.*|TextFiles|*.txt58代码设计：修改“打开”菜单项的Click事件过程:PrivateSubFileOpen_Click(…)HandlesFileOpen.ClickDimOpenFileNameAsStringOpenFileDialog1.FileName=""OpenFileDialog1.ShowDialog()

OpenFileName=OpenFileDialog1.FileName

IfTrim(OpenFileName)<>""Then

DimFileSubMenuItemAsNew_

ToolStripMenuItem()

FileSubMenuItem.Text=OpenFileName

FileMenu.DropDownItems.Add(FileSubMenuItem)

AddHandler

FileSubMenuItem.Click,AddressOf_

MenuClick

EndIfEndSub592.颜色对话框颜色对话框可以使用ColorDialog控件设计。标准的颜色对话框：a)显示基本颜色b)规定自定义颜色单击展开60ColorDialog控件的属性：1）Color：获取用户在颜色对话框中选定的颜色，如果没有选定颜色，默认为黑色。或用于设置对话框的当前颜色。2）AllowFullOpen：指示用户是否可以使用颜色对话框规定自定义颜色。如果是则为True，否则为False。3）FullOpen：指示在打开颜色对话框时，是否自动显示为展开形式。如果是则为True，否则为False。只有当AllowFullOpen属性设置为True时，该属性才起作用。61界面设计：【例11-7】在例11-6的基础上继续设计，实现“格式”菜单下的“背景颜色”菜单项的功能。运行时，单击“背景颜色”菜单项打开一个颜色对话框，并用颜色对话框中选择的颜色设置文本框的背景颜色。

打开例11-6的应用程序，单击工具箱的ColorDialog按钮，在窗体Form1上的任意位置拖动鼠标添加一个ColorDialog控件，则ColorDialog控件显示在窗体下方的专用面板中，使用其默认名称ColorDialog1。62代码设计：在“背景颜色”菜单项的Click事件过程中，使用ColorDialog1控件显示一个颜色对话框，然后用ColorDialog1控件的Color属性设置文本框的背景颜色，PrivateSubbckColor_Click(…)HandlesbckColor.ClickColorDialog1.Color=TextBox1.BackColor

IfColorDialog1.ShowDialog()=DialogResult.OKThenTextBox1.BackColor=ColorDialog1.ColorEndIfEndSub633.字体对话框字体对话框可以使用工具箱的FontDialog控件设计。标准的字体对话框：64FontDialog控件常用的属性：1）AllowScriptChange：值指示在字体对话框中的“字符集”下拉列表中是否显示可选的其他字符集。如果是则为True，否则为False。2）AllowVectorFonts：指示在字体对话框中否允许选择矢量字体。如果是则为True，否则为False。3）AllowVerticalFonts：指示字体对话框是否既显示垂直字体又显示水平字体，还是只显示水平字体。如果允许显示垂直和水平字体，则为True，否则为False。654）Color：获取或设置选定字体的颜色。是Color结构类型。默认值为Black。5）Font：获取或设置选定的字体，Font类型。6）MaxSize：用户可选择的最大字体大小。默认值为0，表示字体大小没有限制。7）MinSize：用户可选择的最小字体大小。默认值为0，表示字体大小没有限制。8）ShowApply：指示字体对话框是否包含“应用”按钮。如果是则为True，否则为False。9）ShowColor：指示字体对话框是否显示颜色选择。如果是则为True，否则为False。10）ShowEffects：指示字体对话框是否包含效果选项，即是否包含删除线、下划线和颜色选项。如果是则为True，否则为False，66界面设计：【例11-8】在例11-7的基础上继续设计，实现“格式”菜单下的“字体”菜单项的功能。运行时，单击“字体”菜单项，可以打开一个字体对话框，单击字体对话框的“确定”按钮后，将其中指定的设置应用于文本框中的文字。

打开例11-7的应用程序，向窗体Form1添加一个FontDialog控件，则FontDialog控件显示在窗体下方的专用面板中，使用其默认名称FontDialog1。将FontDialog1控件的ShowColor属性设置为True，使字体对话框具有“颜色”选项。67代码设计：PrivateSubtxtFont_Click(…)HandlestxtFont.Click

'使字体对话框的字体设置与文本框的当前设置一致FontDialog1.Font=TextBox1.Font

'使字体对话框的颜色选项与文本框的文字颜色一致FontDialog1.Color=TextBox1.ForeColor

'显示字体对话框，并判断如果按下“确定”按钮，'则用字体对话框的设置修改文本框属性

IfFontDialog1.ShowDialog()=DialogResult.OKThenTextBox1.Font=FontDialog1.Font

TextBox1.ForeColor=FontDialog1.Color

EndIfEndSub6811.4状态栏的设计

通常，Windows应用程序都具有状态栏。状态栏一般显示在窗口的底部，用于显示应用程序当前的运行状态、系统状态等，并提供一些操作提示。例如:

使用VB.NET提供的状态栏控件StatusStrip可以很容易地设计状态栏。69设计状态栏可以按以下步骤进行：1）单击工具箱的StatusStrip控件，在窗体的任意位置拖动鼠标将其添加到窗体上，由于StatusStrip控件是不可见控件，因此所添加的控件会显示在窗体下方的专用面板中。状态栏StatusStrip控件702）单击下拉箭头从下拉列表中选择需要添加到