Visual Basic .Net打造个性化菜单

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

菜单（Menu）是程序界面的重要架构部件，自从有了可视化编程工具，使用其中的菜单编辑器就可以方便、快捷的编辑、设计菜单。

作者：阿虎来源：天极开发 2007年11月9日

关键字：

把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运行程序，可得到如图03所示的界面：

图03：【Visual Basic .Net编程之DIY--自己画菜单】运行界面之二

　　可见绘制的"文件"菜单项并没有完全显示出来，并且后面的菜单项也没有显示。这是因为菜单项的显示区域并没有设定，而缺省的空间又不能完全显示造成的。设定菜单项的显示区域大小是通过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运行程序可得到图04所示界面：