VB.Net 使用图片做菜单项

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

在使用Menu时候，对于菜单项（ToolStripItem）可以使用Image属性来设置在菜单项前面的图片，但是却不能使整个菜单项显示图片。其实通过ToolStripItem的Paint (重绘)可以实现。
设计时窗体，其中菜单项1使用了Image属性：

 代码如下：

    Dim bmp As Bitmap
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim width As Integer
        Dim height As Integer

        width = tsmi2.Width
        height = tsmi2.Height
        bmp = New Bitmap(width, height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.Clear(Color.White)
        Dim f As New Font("宋体", 10)
        Dim p As New Pen(New SolidBrush(Color.Red), 2)
        g.DrawRectangle(p, New Rectangle(2, 1, width - 2, height - 2))
        g.DrawString("这是一次测试", f, New SolidBrush(Color.Red), New Point(10, 4))
        g.Dispose()
    End Sub

    Private Sub tsmi2_Paint(sender As Object, e As PaintEventArgs) Handles tsmi2.Paint
        e.Graphics.DrawImage(bmp, New Point(0, 0))
    End Sub

运行结果：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录