在VB中,可以使用按鈕的MouseEnter
和MouseLeave
事件來實現(xiàn)按鈕圖片的交換。以下是一個示例代碼:
Private Sub Button1_MouseEnter(sender As Object, e As EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.Image2 '設(shè)置鼠標(biāo)懸停時的圖片
End Sub
Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.Image1 '設(shè)置鼠標(biāo)離開時的圖片
End Sub
在上述代碼中,Button1
為需要設(shè)置的按鈕的名稱,Image1
和Image2
分別為按鈕的兩個不同圖片(可以使用My.Resources.ImageName
來引用項目中的資源圖片)。
當(dāng)鼠標(biāo)指針移入按鈕范圍時,會觸發(fā)MouseEnter
事件,即將按鈕的背景圖片設(shè)置為Image2
;當(dāng)鼠標(biāo)指針移出按鈕范圍時,會觸發(fā)MouseLeave
事件,即將按鈕的背景圖片設(shè)置為Image1
。