Visual Basic .Net打造个性化菜单

ChinaItLab

佚名

2006-5-10

保存本文

推荐给好友

收藏本页

欢迎进入.NET社区论坛，与200万技术人员互动交流 >>进入

　　这样通过菜单编辑器就完成了一个非常普通的菜单，下面就对此菜单进行改造，在改造之前，要先设定项目中的三个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运行程序，可得到如图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所示界面：