VB.NET菜单设计初级入门

五．绘制个性化菜单：

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

　　1. 启动Visual Studio .Net。

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

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

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

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

　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在“E:\VS.NET项目”目录中就产生了名称为“自己画菜单”的文件夹，并在里面创建了名称为“自己画菜单”的项目文件。

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

　　一个MainMenu组件，名称为“MainMenu1”。

　　8. 选中“MainMenu1”组件，单击鼠标右键，在弹出的菜单中选择“编辑菜单”。并按照图01所示界面设计菜单：

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

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

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

　　这样通过菜单编辑器就完成了一个非常普通的菜单，下面就对此菜单进行改造，在改造之前，要先设定项目中的三个MenuItem类实例的OwnerDraw属性值为“True”。因为只有此属性值为“True”才会触发绘制菜单时所需要的DrawItem事件和MeasureItem事件。之后再在上面项目的基础上执行下一步操作：

　　把Visual Stuido .Net的当前窗口切换到Form1.vb的代码编辑窗口，并在InitializeComponent过程之后添加下列代码，下列代码是绘制“文件”菜单项，其作用是改变“文件”菜单项的字体、大小和菜单项的，其具体的绘制方法请参考下列代码中的注释：

Private Sub MenuItem1_DrawItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.DrawItemEventArgs ) Handles MenuItem1.DrawItem 　Dim rfBound As RectangleF = New RectangleF ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到RectangleF类型实例中 　Dim rfBound1 As Rectangle = New Rectangle ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到Rectangle类型实例中 　'Rectangle类型实例和RectangleF类型实例差不多，但在后面代码中绘制菜单的函数是有区别的 　e.Graphics.FillRectangle(New SolidBrush(Color.LightGreen), rfBound) '以LightGreen色彩填充MenuItem1菜单项对应的矩形区域 　Dim s As MenuItem = CType ( sender , MenuItem ) 　Dim s1 As String = s.Text 　'获得MenuItem1菜单项的名称 　Dim sfTemp As StringFormat = New StringFormat ( ) 　sfTemp.Alignment = StringAlignment.Center 　'设定要画的菜单名称的对齐方式，中间对齐 　e.Graphics.DrawString ( s1 , New Font ( "宋体" , 10 , FontStyle.Bold ) , New SolidBrush ( Color.Black ) , rfBound , sfTemp ) 　'以中间对齐方式、指定字体、大小，在指定的矩形区域重画菜单 　If e.State = ( DrawItemState.NoAccelerator Or DrawItemState.Selected ) Then '根据菜单项的当前绘制状态来绘制菜单项 　e.Graphics.FillRectangle ( New SolidBrush ( Color.LightYellow ) , rfBound ) '对菜单项所在的矩形区域进行色彩填充 　e.Graphics.DrawString ( s1 , New Font ( "宋体" , 10 , FontStyle.Bold ) , New SolidBrush ( Color.Black ) , rfBound , sfTemp ) 　'对菜单项名称绘制 　End If 　e.DrawFocusRectangle ( ) 　'在 DrawItemEventArgs参数得到矩形范围内绘制聚焦框。 　e.Graphics.DrawRectangle ( New Pen ( New SolidBrush ( Color.Black ) , 1 ) , rfBound1 ) 　'对菜单项的矩形区域绘制矩形框 End Sub

　　操作完成后，保存修改。此时再单击快捷键F5运行程序，可得到如图09所示的界面：

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

　　可见绘制的“文件”菜单项并没有完全显示出来，并且后面的菜单项也没有显示。这是因为菜单项的显示区域并没有设定，而缺省的空间又不能完全显示造成的。设定菜单项的显示区域大小是通过MeasureItem事件来完成的。具体操作是在MenuItem1的DrawItem事件后添加下列代码，下列代码是是定义MenuItem1的MeasureItem事件，在此事件中设定菜单项的宽度（当然也可以设定高度等）：

Private Sub MenuItem1_MeasureItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.MeasureItemEventArgs ) Handles MenuItem1.MeasureItem 　e.ItemWidth = 60 　'设定菜单项的宽度 End Sub

　　保存上述修改后，单击快捷键F5运行程序可得到图10所示界面：

图10：【自己画菜单】运行界面之三

　　可见“文件”菜单项就算绘制出来了，由于其他菜单项没有绘制处理，所以也未显示。其他菜单项的绘制方法和“文件”菜单项的绘制方法基本相似，以下是在上述完成的基础上，对其他菜单项进行绘制，从而得到图11所示菜单的具体实现步骤：

图11：【自己画菜单】运行界面之四

　　1. 在Form1.vb中的MenuItem1的MeasureItem事件处理程序之后添加下列代码，下列代码是定义MenuItem2的DrawItem事件，其功能是对“新建”菜单项重新绘制：

Private Sub MenuItem2_DrawItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.DrawItemEventArgs ) Handles MenuItem2.DrawItem 　Dim rfBound As RectangleF = New RectangleF ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到RectangleF类型实例中 　Dim rfBound1 As Rectangle = New Rectangle ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到Rectangle类型实例中 　'Rectangle类型实例和RectangleF类型实例差不多，但在后面代码中绘制菜单的函数是有区别的 　e.Graphics.FillRectangle ( New SolidBrush ( Color.LightGray ) , rfBound ) 　Dim s As MenuItem = CType ( sender , MenuItem ) 　Dim s1 As String = s.Text 　'获得菜单项对应的文本名称 　Dim sfTemp As StringFormat = New StringFormat ( ) 　sfTemp.Alignment = StringAlignment.Center 　'设定文本在矩形区域的对齐方式 　sfTemp.LineAlignment = StringAlignment.Center 　Dim rcText As RectangleF = rfBound 　rcText.Width -= 5 　e.Graphics.DrawString ( s1 , New Font ( "宋体" , 10 ) , New SolidBrush ( Color.Blue ) , rcText , sfTemp ) 　e.Graphics.DrawRectangle ( New Pen ( New SolidBrush ( Color.LightGray ) ) , rfBound1 ) 　If e.State = ( DrawItemState.NoAccelerator Or DrawItemState.Selected ) Then 　　e.Graphics.FillRectangle ( New SolidBrush ( Color.LightYellow ) , rfBound ) 　　e.Graphics.DrawString ( s1 , New Font ( "宋体" , 10 , FontStyle.Bold Or FontStyle.Underline ) , New SolidBrush ( Color.Red ) , rcText , sfTemp ) 　　e.Graphics.DrawRectangle ( New Pen ( New SolidBrush ( Color.Black ) ) , rfBound1 ) 　　e.DrawFocusRectangle ( ) 　End If End Sub

　　2. MenuItem2的DrawItem事件处理代码之后添加下列代码，下列代码是定义MenuItem2的MeasureItem事件，在此事件中实现设定“新建”菜单项的长度和高度：

Private Sub MenuItem2_MeasureItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.MeasureItemEventArgs ) Handles MenuItem2.MeasureItem 　e.ItemWidth = 60 　'设定菜单项的宽度 　e.ItemHeight = 30 　'设定菜单项的高度 End Sub

　　3. 在完成上述操作步骤后，再在MenuItem2的MeasureItem事件处理程序之后添加下列代码，下列代码是定义MenuItem3的DrawItem事件，其功能是对“打开”菜单项重新绘制：

Private Sub MenuItem3_DrawItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.DrawItemEventArgs ) Handles MenuItem3.DrawItem 　　Dim rfBound As RectangleF = New RectangleF ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到RectangleF类型实例中 　　Dim rfBound1 As Rectangle = New Rectangle ( e.Bounds.X , e.Bounds.Y , e.Bounds.Width - 1 , e.Bounds.Height ) 　　'根据DrawItemEventArgs参数获得菜单项矩形区域并存储到Rectangle类型实例中 　　'Rectangle类型实例和RectangleF类型实例差不多，但在后面代码中绘制菜单的函数是有区别的 　　Dim s As MenuItem = CType ( sender , MenuItem ) 　　Dim s1 As String = s.Text 　　Dim sfTemp As StringFormat = New StringFormat ( ) 　　sfTemp.Alignment = StringAlignment.Center 　　sfTemp.LineAlignment = StringAlignment.Center 　　Dim rcText As RectangleF = rfBound 　　rcText.Width -= 5 　　e.Graphics.DrawString ( s1 , New Font ( "Veranda" , 10 ) , New SolidBrush ( Color.Blue ) , rcText , sfTemp ) 　　e.Graphics.DrawRectangle ( New Pen ( New SolidBrush ( Color.LightGray ) ) , rfBound1 ) 　　If e.State = ( DrawItemState.NoAccelerator Or DrawItemState.Selected ) Then 　　　e.Graphics.FillRectangle ( New SolidBrush ( Color.LightYellow ) , rfBound ) 　　　e.Graphics.DrawString ( s1 , New Font ( "Veranda" , 10 , FontStyle.Bold Or FontStyle.Underline ) , New SolidBrush ( Color.Red ) , rcText , sfTemp ) 　　　e.Graphics.DrawRectangle ( New Pen ( New SolidBrush ( Color.Black ) ) , rfBound1 ) 　　　e.DrawFocusRectangle ( ) 　　End If End Sub

　　4. MenuItem3的DrawItem事件处理代码之后添加下列代码，下列代码是定义MenuItem3的MeasureItem事件，在此事件中实现设定“新建”菜单项的长度和高度：

Private Sub MenuItem3_MeasureItem ( ByVal sender As Object , ByVal e As System.Windows.Forms.MeasureItemEventArgs ) Handles MenuItem3.MeasureItem 　e.ItemWidth = 60 　'设定菜单项的宽度 　e.ItemHeight = 30 　'设定菜单项的高度 End Sub

　　在上述步骤都正确完成后，本文介绍的手工绘制菜单就完成，此时单击快捷键F5运行。程序就可以得到图11所示的运行界面。

　　六．总结：

　　本文主要内容是介绍VB.NET设计和创建菜单，其中不仅介绍了使用菜单设计器来静态设计菜单，还介绍了使用MainMenu类、MenuItem类和ContextMenu类动态创建菜单的实现方法。在动态创建时，首先要了解要创建的菜单类型，是下拉菜单，首先要创建一个MainMenu实例；是弹出菜单，首先要创建一个ContextMenu实例。然后根据菜单中的组成结构，即菜单项中的父子关系，创建出相应菜单，最后就是显示出菜单，如果是下拉菜单，指派给Form的Menu属性，如果是弹出菜单，指派给可视组件或Form的ContextMenu属性，这样动态创建菜单才能够显示出来，动态创建菜单的工作才算完成。

　　此外还介绍了在Visual Basic .Net中绘制个性化菜单的实现方法和注意事项，在绘制个性化菜单时最重要的是掌握DrawItem事件和MeasureItem事件用法，及绘制菜单时所要使用到的方法，虽然本文绘制的菜单并不美观，但你可以通过本文介绍的方法来修改，从而实现更美观、更有个性的菜单。最后请记住，在绘制菜单时，首先把菜单项的“OwnerDraw”属性设定为“True”。

查看本文来源