Public Class Button
#Region "Dichiarazioni"
Dim normal As Image
Dim over As Image
Dim press As Image
#End Region
#Region "Proprietà"
Public Property Normal_image() As Image
Get
Normal_image = normal
End Get
Set(ByVal value As Image)
normal = value
pulsante.Image = normal
End Set
End Property
Public Property Over_image() As Image
Get
Over_image = over
End Get
Set(ByVal value As Image)
over = value
End Set
End Property
Public Property Press_image() As Image
Get
Press_image = press
End Get
Set(ByVal value As Image)
press = value
End Set
End Property
#End Region
#Region "Azioni pulsante"
Private Sub pulsante_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pulsante.MouseEnter
pulsante.Image = over
End Sub
Private Sub pulsante_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pulsante.MouseDown
pulsante.Image = press
End Sub
Private Sub pulsante_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pulsante.MouseUp
pulsante.Image = over
End Sub
Private Sub pulsante_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pulsante.MouseLeave
pulsante.Image = normal
End Sub
#End Region
End Class