在VB中,可以使用按钮的MouseEnter
和MouseLeave
事件来实现按钮图片的交换。以下是一个示例代码:
Private Sub Button1_MouseEnter(sender As Object, e As EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.Image2 '设置鼠标悬停时的图片
End Sub
Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.Image1 '设置鼠标离开时的图片
End Sub
在上述代码中,Button1
为需要设置的按钮的名称,Image1
和Image2
分别为按钮的两个不同图片(可以使用My.Resources.ImageName
来引用项目中的资源图片)。
当鼠标指针移入按钮范围时,会触发MouseEnter
事件,即将按钮的背景图片设置为Image2
;当鼠标指针移出按钮范围时,会触发MouseLeave
事件,即将按钮的背景图片设置为Image1
。