是要这样的代码?像这样的代码适合制作自定义漂亮的按钮
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim 背景图 = Button1.BackgroundImage
If 背景图 Is Nothing Then
Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\熊猫.bmp")
Button1.BackgroundImage.Tag = "熊猫"
Button1.Text = ""
Else
Dim 景图 = Button1.BackgroundImage.Tag
If 景图 = "熊猫" Then
Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\水滴.gif")
Button1.BackgroundImage.Tag = "水滴"
ElseIf 景图 = "水滴" Then
Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\双狮子.png")
Button1.BackgroundImage.Tag = "双狮子"
ElseIf 景图 = "双狮子" Then
Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\熊猫.bmp")
Button1.BackgroundImage.Tag = "熊猫"
End If
End If
Button1.Size = Button1.BackgroundImage.Size
Me.CreateGraphics.Clear(Button1.BackColor)
End Sub
这个例子不断点击按钮循环更换图片
Me.ResizeRedraw = True
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
Dim 花篮 = Image.FromFile(System.Environment.CurrentDirectory + "\\花篮.jpg")
e.Graphics.DrawImage(花篮, 0, 0, Me.Width, Me.Height)
End Sub