vb.net图片上移 vb中如何让image移动

VB.NET中如何实现当鼠标移动到按钮上，按钮的背景图片就变换一张，鼠标移开，又变回原来的背景图。

Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Button1.BackgroundImage = My.Resources.a

    End Sub

  Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

      Button1.BackgroundImage = My.Resources.b

    End Sub

  Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave

      Button1.BackgroundImage = My.Resources.a

    End Sub

End Class

当然，你先得制作两张大小一样的图片

相关问答

Q1: vb.net图片按钮如何实现?用什么控件?

用Button控件就可以了 修改BackgroundImage 属性 类似这样

Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")

如果要实现动态效果的话需要2个图片当Button1_MouseHover事件时也就是鼠标停留在button上的时候显示一个图片,当Button1_MouseLeave事件时,也就是鼠标离开button时显示原来的图片,这样就是动态的了.

Q2: 在VS2008中，如何让VB.net中的图片动起来

不是语言让图片动起来的，而是图片本身就能动，例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动，而不是图片本身内容的动作，那么不是vb.net的功能必须用java脚本来实现。

Q3: 请帮我写一个VB中用Move方法上下左右移动图片的代码

Private Sub Command1_Click()

Picture1.Move Picture1.Left + 100 '右移

End Sub

Private Sub Command2_Click()

Picture1.Move Picture1.Left - 100 '左移

End Sub

Private Sub Command3_Click()

Picture1.Move Picture1.Left, Picture1.Top + 100 '下移

End Sub

Private Sub Command4_Click()

Picture1.Move Picture1.Left, Picture1.Top - 100 '上移

End Sub

Q4: VB图片移动问题

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode  Image1.Tag Then '第二次按下某键可以不执行语句

        Select Case KeyCode

            Case 37 '左

                Image1.Picture = LoadPicture("C:\图片A.jpg")

                Image1.Left = Image1.Left - 50

            Case 38 '上

                Image1.Picture = LoadPicture("C:\图片C.jpg")

                Image1.Top = Image1.Top - 50

            Case 39 '右

                Image1.Picture = LoadPicture("C:\图片B.jpg")

                Image1.Left = Image1.Left + 50

            Case 40 '下

                Image1.Picture = LoadPicture("C:\图片D.jpg")

                Image1.Top = Image1.Top + 50

        End Select

        Image1.Tag = KeyCode

    End If

End Sub

Private Sub Form_Load()

    Image1.Tag = 1

End Sub

Q5: vb.net中实现listview控件任意显示图标，例如：在button事件中使排序在后面的某一个图标移到最前面显示

LZ你可以考虑下用ImageButton 这个是专门显示图片的button！可以把字写在图片上这样可以实现你想要的效果！

关于vb.net图片上移和vb中如何让image移动的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。