VBNET菜单设计初级入门Word格式文档下载.docx

VBNET菜单设计初级入门Word格式文档下载.docx

《VBNET菜单设计初级入门Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VBNET菜单设计初级入门Word格式文档下载.docx（17页珍藏版）》请在冰点文库上搜索。

可得图01所示界面

图01：

利用菜单设计器设计下拉菜单

　　9.在图01所示的"

请在此处输入"

中，按由上至下顺序输入"

文件（&

F）"

、"

新建（&

N）"

-"

打开（&

O）"

后，此时设计后的菜单如图02所示：

图02：

利用菜单设计器设计后的下拉菜单

　　在VB.NET中"

&

"

符号和VB中的"

符号所起的作用完全一致，作用是为菜单设定快捷键。

符号作用是在菜单项之间设立分割。

　　10.这样一个简单的下拉菜单就完成了。

如果您的应用程序中还需要加入其他菜单，可以仿效上述方法，在图02中的"

区域中输入相应的菜单的名称就可以了。

　　下面是就利用VisualBasic.Net的菜单设计器来设计弹出菜单的一般步骤。

　　1.在上述项目中，从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入一个ContextMenu组件，名称为ContextMenu1。

　　2.选中"

ContextMenu1"

可得图03所示界面：

图03：

利用菜单设计器设计弹出菜单

　　3.在图03所示的"

上下文菜单"

下的"

请在此输入"

拷贝（&

C）"

剪切（&

X）"

粘贴（&

V）"

后，此时设计后的菜单如图04所示：

图04：

利用菜单设计器设计后的弹出菜单

　　4.选定Form1的属性选项卡，并设定Form1的"

ContextMenu"

的属性值为"

　　5.此时单击快捷键"

F5"

运行程序，在程序窗体中单击鼠标右键，则弹出上面设计的弹出菜单，具体如图05所示：

图05：

在应用程序中使用上述设计好的菜单

　　6.对于其他组件一般也都有"

属性，只需把组件的"

属性值设置为设计好的弹出菜单名称，这样当在此组件中单击鼠标右键，就会弹出对应的弹出菜单。

二．MainMenu类、MenuItem类和ContextMenu类：

　　虽然使用菜单设计器能够设计出各种菜单，但要真正掌握VB.NET中的菜单编程，还必须了解并灵活使用MainMenu类、MenuItem类和ContextMenu类。

其中MainMenu类和ContextMenu类所起的作用是相似的，它们的作用是提供一个菜单项容器，里面可以存放各种菜单项。

　　MainMenu类表示的是下拉菜单的结构，里面存放的菜单项其实就是MenuItem实例。

在创建完MainMenu实例后，必须要把此实例绑定到要显示此菜单的Form中，下拉菜单才能够显示，而要实现这种绑定其实非常简单，只需把MainMenu实例分配给Form的Menu属性就可以了。

　　ContextMenu类表示当用户在控件或窗体的特定区域上单击鼠标右键时弹出的菜单结构。

可视控件和Form窗体一般都有ContextMenu属性。

要显示ContextMenu实例，只需把ContextMenu实例分配给要显示此弹出菜单的可视组件或Form窗体的ContextMenu属性就可以了。

多个组件可共同使用一个ContextMenu实例。

MenuItem类表示的是MainMenu和ContextMenu中的每一个菜单项。

显示创建的MenuItem实例，必须使用MainMenu或ContextMenu中的"

Add"

方法把MenuItem实例加入。

若要创建子菜单，可以使用父MenuItem实例的"

方法把MenuItem实例添加到其MenuItems属性中。

　　MenuItem类还提供一些属性用以设定菜单项的外观和功能。

若要显示菜单项旁边的选中标记，可以使用Checked属性。

Shortcut属性可用于设定此菜单项对应的键盘组合键。

　　下面就通过下面一个示例来具体了解上面三个类的使用方法。

三．使用MainMenu类、MenuItem类和ContextMenu类动态创建菜单：

　　下面就利用mainMenu类、MenuItem类和ContextMenu类动态创建图05所示的由菜单设计器设计出的菜单，其中包括下拉菜单和弹出菜单。

下面是具体步骤：

　　5.在【名称】文本框中输入【动态创建菜单】。

动态创建菜单"

　　7.把VisualStudio.Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应操作：

　　二个Button组件，名称分别为Button1和Button2，并在这二个组件拖入窗体后，分别设定这二个组件的"

Text"

属性值为"

创建下拉菜单"

和"

创建弹出菜单"

之后再分别双击，这样VisualBasic.Net会在Form1.vb中分别产生这二个组件的Click事件对应的处理代码。

　　8.把VisualBasic.Net的当前窗口切换到Form1.vb的代码编辑窗口，并用下拉代码替换Form1.vb中的Button1的Click事件对应的处理代码，下拉代码的作用是动态创建图05中的下拉菜单：

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

　DimMainMenu1AsMainMenu=NewMainMenu（）

　'

创建一个MainMenu实例

　DimmyMenuItem1AsMenuItem=NewMenuItem（）

　DimmyMenuItem2AsMenuItem=NewMenuItem（）

　DimmyMenuItem3AsMenuItem=NewMenuItem（）

　DimmyMenuItem4AsMenuItem=NewMenuItem（）

　myMenuItem1.Text="

　myMenuItem2.Text="

　myMenuItem3.Text="

　myMenuItem4.Text="

创建四个MenuItem实例，并进行相应设置

　myMenuItem1.MenuItems.Add（myMenuItem2）

　myMenuItem1.MenuItems.Add（myMenuItem3）

　myMenuItem1.MenuItems.Add（myMenuItem4）

以myMenuItem1是myMenuItem2、myMenuItem3和myMenuItem4的父菜单项

　MainMenu1.MenuItems.Add（myMenuItem1）

在MainMenu实例中加入MainItem实例

　Me.Menu=MainMenu1

把MainMenu1指派给Form的的Menu属性，这样下拉菜单才能够显示

　Button1.Enabled=False

EndSub

　　9.用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码，下拉代码的作用是动态创建图05中的弹出菜单：

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

　DimContextMenu1AsContextMenu=NewContextMenu（）

创建一个ContextMenu实例

创建三个MenuItem实例，并进行相应设置

　ContextMenu1.MenuItems.Add（myMenuItem1）

　ContextMenu1.MenuItems.Add（myMenuItem2）

　ContextMenu1.MenuItems.Add（myMenuItem3）

在ContextMenu1中加入MenuItem

　Me.ContextMenu=ContextMenu1

把ContextMenu1指派给Form的ContextMenu属性，显示弹出菜单

　Button2.Enabled=False

　　10.至此【动态创建菜单】项目的全部工作就完成了，单击快捷键"

运行程序，单击程序中的【创建下拉菜单】按钮，则创建出图04所示的下拉菜单；

单击程序中的【创建弹出菜单】，则动态创建出图05所示的弹出菜单。

　　如果您要创建的菜单中的菜单项还有子菜单，可以根据菜单项中的父子关系，把子菜单项加入到父菜单项，然后再把父菜单项加入上一级的菜单项或MainMenu和ContextMenu实例中，下面代码作用是创建图06所示的下拉菜单，如果是弹出菜单，其做法类似：

DimMainMenu1AsMainMenu=NewMainMenu（）

'

DimmyMenuItem1AsMenuItem=NewMenuItem（）

DimmyMenuItem2AsMenuItem=NewMenuItem（）

DimmyMenuItem3AsMenuItem=NewMenuItem（）

DimmyMenuItem4AsMenuItem=NewMenuItem（）

DimmyMenuItem5AsMenuItem=NewMenuItem（）

DimmyMenuItem6AsMenuItem=NewMenuItem（）

myMenuItem1.Text="

myMenuItem2.Text="

myMenuItem3.Text="

myMenuItem4.Text="

myMenuItem5.Text="

新建项目"

myMenuItem6.Text="

新建文件"

myMenuItem2.MenuItems.Add（myMenuItem5）

myMenuItem2.MenuItems.Add（myMenuItem6）

myMenuItem2是myMenuItem5和myMenuItem6的父菜单项

myMenuItem1.MenuItems.Add（myMenuItem2）

myMenuItem1.MenuItems.Add（myMenuItem3）

myMenuItem1.MenuItems.Add（myMenuItem4）

MainMenu1.MenuItems.Add（myMenuItem1）

Me.Menu=MainMenu1

图06：

动态创建存在子菜单的下拉菜单

四．.NetFrameWorkSDK为在VB.Net绘制菜单提供的工具：

　　.NetFrameWorkSDK为VisualBasic.Net实现个性化菜单提供了许多工具。

其中最重要是二个事件及其参数：

DrawItem事件和其中的DrawItemEventArgs参数，MeasureItem事件和其中的MeasureItemEventArgs参数。

　　1.DrawItem事件和其中的DrawItemEventArgs参数：

　　DrawItem事件是当菜单项的OwnerDraw属性设置为True并且发出绘制菜单项的请求时才发生。

个性化菜单制作的处理方法就是在此事件中完成的。

在DrawItem事件处理程序中将接收一个DrawItemEventArgs类型的参数，它包含与此事件相关的数据，这些数据对绘制菜单是很重要的。

表01是DrawItemEventArgs类型参数提供特定于此事件的信息。

属性

说明

BackColor

获取所绘制的项的背景色。

Bounds

获取表示所绘制项的边界的矩形。

Font

获取分配给所绘制项的字体。

ForeColor

获取所绘制项的前景色。

Graphics

获取要在其上绘制项的图形表面。

Index

获取所绘制项的索引值。

State

获取所绘制项的状态。

　　　　　　　　　表01：

DrawItemEventArgs类型参数提供DrawItem事件特定的信息

　　2.MeasureItem事件和其中的MeasureItemEventArgs参数：

　　触发MeasureItem事件必须将菜单项的OwnerDraw属性设置为True，个性化菜单制作可通过此事件来获取、设定菜单项的大小等。

MeasureItem事件处理程序中接收一个MeasureItemEventArgs类型的参数，此参数对获取、设定菜单项的大小是非常重要的。

表02是MeasureItemEventArgs类型参数提供MeasureItem事件的特定信息。

获取要测量的Graphics对象。

获取、设置需要有高度和宽度的项索引。

ItemHeight

获取、设置由Index指定的项高度。

ItemWidth

获取、设置由Index指定的项

　　　　　　　表02是MeasureItemEventArgs类型参数提供MeasureItem事件的特定信息

五．绘制个性化菜单：

　　先执行以下操作步骤，下列步骤是通过菜单编辑器设计一个简单的菜单，为后面重新绘制做基础：

　　1.启动VisualStudio.Net。

　　2.选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　　3.将【项目类型】设置为【VisualBasic项目】。

　　4.将【模板】设置为【Windows应用程序】。

　　5.在【名称】文本框中输入【自己画菜单】。

　　6.在【位置】的文本框中输入【E:

自己画菜单"

　　7.把VisualStudio.Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件：

　　一个MainMenu组件，名称为"

　　8.选中"

并按照图01所示界面设计菜单：

图07：

【自己画菜单】项目设计界面之一

　　9.此时保存上述步骤，并单击快捷键F5，则得到图08所示界面：

图08：

【自己画菜单】运行界面之一

　　这样通过菜单编辑器就完成了一个非常普通的菜单，下面就对此菜单进行改造，在改造之前，要先设定项目中的三个MenuItem类实例的OwnerDraw属性值为"

True"

因为只有此属性值为"

才会触发绘制菜单时所需要的DrawItem事件和MeasureItem事件。

之后再在上面项目的基础上执行下一步操作：

　　把VisualStuido.Net的当前窗口切换到Form1.vb的代码编辑窗口，并在InitializeComponent过程之后添加下列代码，下列代码是绘制"

文件"

菜单项，其作用是改变"

菜单项的字体、大小和菜单项的，其具体的绘制方法请参考下列代码中的注释：

PrivateSubMenuItem1_DrawItem（ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DrawItemEventArgs）HandlesMenuItem1.DrawItem

　DimrfBoundAsRectangleF=NewRectangleF（e.Bounds.X,e.Bounds.Y,e.Bounds.Width-1,e.Bounds.Height）

根据DrawItemEventArgs参数获得菜单项矩形区域并存储到RectangleF类型实例中

　DimrfBound1AsRectangle=NewRectangle（e.Bounds.X,e.Bounds.Y,e.Bounds.Width-1,e.Bounds.Height）

根据DrawItemEventArgs参数获得菜单项矩形区域并存储到Rectangle类型实例中

Rectangle类型实例和RectangleF类型实例差不多，但在后面代码中绘制菜单的函数是有区别的

　e.Graphics.FillRectangle（NewSolidBrush（Color.LightGreen）,rfBound）

以LightGreen色彩填充MenuItem1菜单项对应的矩形区域

　DimsAsMenuItem=CType（sender,MenuItem）

　Dims1AsString=s.Text

获得MenuItem1菜单项的名称

　DimsfTempAsStringFormat=NewStringFormat（）

　sfTemp.Alignment=StringAlignment.Center

设定要画的菜单名称的对齐方式，中间对齐

　e.Graphics.DrawString（s1,NewFont（"

宋体"

10,FontStyle.Bold）,NewSolidBrush（Color.Black）,rfBound,sfTemp）

以中间对齐方式、指定字体、大小，在指定的矩形区域重画菜单

　Ife.State=（DrawItemState.NoAcceleratorOrDrawItemState.Selected）Then

根据菜单项的当前绘制状态来绘制菜单项

　e.Graphics.FillRectangle（NewSolidBrush（Color.LightYellow）,rfBound）

对菜单项所在的矩形区域进行色彩填充

对菜单项名称绘制

　EndIf

　e.DrawFocusRectangle（）

在DrawItemEventArgs参数得到矩形范围内绘制聚焦框。

　e.Graphics.DrawRectangle（NewPen（NewSolidBrush（Color.Black）,1）,rfBound1）

对菜单项的矩形区域绘制矩形框

　　操作完成后，保存修改。

此时再单击快捷键F5运行程序，可得到如图09所示的界面：

图09：

【自己画菜单】运行界面之二

　　可见绘制的"

菜单项并没有完全显示出来，并且后面的菜单项也没有显示。

这是因为菜单项的显示区域并没有设定，而缺省的空间又不能完全显示造成的。

设定菜单项的显示区域大小是通过MeasureItem事件来完成的。

具体操作是在MenuItem1的DrawItem事件后添加下列代码，下列代码是是定义MenuItem1的MeasureItem事件，在此事件中设定菜单项的宽度（当然也可以设定高度等）：

PrivateSubMenuItem1_MeasureItem（ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MeasureItemEventArgs）HandlesMe