|
Zase pozdě! Ale ukázka nevadí
Private Sub Button1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Me.Button1.Image = Image.FromFile("E:\NET BASIC\Bitmap\obr1.gif")
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.MouseLeave
Me.Button1.Image = Nothing
End Sub
Dodatek: Lepé bude použít Me.Button1.BackgroundImage. Pak půjde použít i Me.Button1.BackgroundImageLayout pro přizpůsobení velikosti obrázku, např. Me.Button1.BackgroundImageLayout = ImageLayout.Zoom
|