Nicola Pievani
35 lines
1.9 KiB
VB.net
35 lines
1.9 KiB
VB.net
Public Class AssemblyPageV
|
|
|
|
Private DoorButton_Static_Background As SolidColorBrush = New BrushConverter().ConvertFrom("#FFD07606")
|
|
Private DoorButton_Static_Border As SolidColorBrush = New BrushConverter().ConvertFrom("#000000")
|
|
Private DoorButton_MouseOver_Background As SolidColorBrush = New BrushConverter().ConvertFrom("#3CD07606")
|
|
Private DoorButton_MouseOver_Border As SolidColorBrush = New BrushConverter().ConvertFrom("#FF3C7FB1")
|
|
|
|
Private Sub RightJamb_MouseEnter(sender As Object, e As Input.MouseEventArgs) Handles LeftRightJamb.MouseEnter, TopRightJamb.MouseEnter, RightRightJamb.MouseEnter
|
|
TopRightJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
LeftRightJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
RightRightJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
End Sub
|
|
|
|
Private Sub RightJamb_MouseLeave(sender As Object, e As Input.MouseEventArgs) Handles LeftRightJamb.MouseLeave, TopRightJamb.MouseLeave, RightRightJamb.MouseLeave
|
|
TopRightJamb.BorderBrush = DoorButton_Static_Border
|
|
LeftRightJamb.BorderBrush = DoorButton_Static_Border
|
|
RightRightJamb.BorderBrush = DoorButton_Static_Border
|
|
End Sub
|
|
|
|
Private Sub LeftJamb_MouseEnter(sender As Object, e As Input.MouseEventArgs) Handles LeftLeftJamb.MouseEnter, TopLeftJamb.MouseEnter, RightLeftJamb.MouseEnter
|
|
If LeftJambChk.IsChecked Then
|
|
TopLeftJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
LeftLeftJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
RightLeftJamb.BorderBrush = DoorButton_MouseOver_Border
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LeftJamb_MouseLeave(sender As Object, e As Input.MouseEventArgs) Handles LeftLeftJamb.MouseLeave, TopLeftJamb.MouseLeave, RightLeftJamb.MouseLeave
|
|
TopLeftJamb.BorderBrush = DoorButton_Static_Border
|
|
LeftLeftJamb.BorderBrush = DoorButton_Static_Border
|
|
RightLeftJamb.BorderBrush = DoorButton_Static_Border
|
|
End Sub
|
|
|
|
End Class
|