在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
。