Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class VariablesForPLC
- Implements INotifyPropertyChanged
- Private ModeSta1, ModeSta2, ModeSta3, ModeSta4, ModeSta5, ModeSta6 As Boolean
- Public Event ThePropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
- Protected Sub NotifyPropertyChanged(ByVal value As Boolean)
- RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs(value))
- End Sub
- Property Sta1Mode() As Boolean
- Get
- Return ModeSta1
- End Get
- Set(ByVal value As Boolean)
- ModeSta1 = value
- RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs("Sta1Mode"))
- End Set
- End Property
- Private Sub btnModeSta1_Checked(sender As Object, e As RoutedEventArgs) Handles btnModeSta1.Checked
- If btnModeSta1.IsChecked = True Then
- StationModes.Sta1Mode = True
- ElseIf btnModeSta1.IsChecked = False Then
- StationModes.Sta1Mode = False
- End If
- RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs(StationModes.Sta1Mode))
- rectFocus.Focus()
- End Sub
- <ni:LED x:Name="NiLED1" HorizontalAlignment="Left" Height="23" Margin="191.973,373.934,0,0" VerticalAlignment="Top" Width="23" FalseBrush="#FF3A3A3C" TrueBrush="#FFC8D10A" Style="{DynamicResource LEDStyle1}" IsTabStop="False" Focusable="False" Value="{Binding Sta1Mode, Mode=OneWay}">
- <ni:LED.FalseContent>Off</ni:LED.FalseContent>
- <ni:LED.TrueContent>On</ni:LED.TrueContent>
- </ni:LED>
Add Comment
Please, Sign In to add comment