vb里面图片怎么使按钮上面图片交替显示的代码

是要这样的代码?像这样的代码适合制作自定义漂亮的按钮


     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(花篮,Me.Width,Me.Height)
    End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!