科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件Visual Basic .Net打造个性化菜单

Visual Basic .Net打造个性化菜单

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

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

关键字:

  • 评论
  • 分享微博
  • 分享邮件
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运行。

  程序就可以得到图05所示的运行界面。

  四.总结:

  Visual Basic .Net中实现绘制菜单最重要的是掌握DrawItem事件和MeasureItem事件用法及其绘制菜单时所要使用到的各种图形图象方法,如:绘制名称,色彩填充等。当然在绘制菜单时,首先把菜单项的"OwnerDraw"属性设定为"True"。因为这是触发DrawItem事件和MeasureItem事件的前提。本文实现的菜单虽不美观,但本文介绍的方法却是很实用的,在上述项目的基础上进行一定的修改,如再调用其他的绘制方法,一定可以完成一个更美观的菜单来。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章