Guest User

Untitled

a guest
May 21st, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.49 KB | None | 0 0
  1. Public Class VariablesForPLC
  2. Implements INotifyPropertyChanged
  3. Private ModeSta1, ModeSta2, ModeSta3, ModeSta4, ModeSta5, ModeSta6 As Boolean
  4. Public Event ThePropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
  5.  
  6. Protected Sub NotifyPropertyChanged(ByVal value As Boolean)
  7. RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs(value))
  8. End Sub
  9.  
  10. Property Sta1Mode() As Boolean
  11. Get
  12. Return ModeSta1
  13. End Get
  14. Set(ByVal value As Boolean)
  15. ModeSta1 = value
  16. RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs("Sta1Mode"))
  17. End Set
  18. End Property
  19.  
  20. Private Sub btnModeSta1_Checked(sender As Object, e As RoutedEventArgs) Handles btnModeSta1.Checked
  21. If btnModeSta1.IsChecked = True Then
  22. StationModes.Sta1Mode = True
  23. ElseIf btnModeSta1.IsChecked = False Then
  24. StationModes.Sta1Mode = False
  25. End If
  26. RaiseEvent ThePropertyChanged(Me, New PropertyChangedEventArgs(StationModes.Sta1Mode))
  27. rectFocus.Focus()
  28.  
  29. End Sub
  30.  
  31. <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}">
  32. <ni:LED.FalseContent>Off</ni:LED.FalseContent>
  33. <ni:LED.TrueContent>On</ni:LED.TrueContent>
  34. </ni:LED>
Add Comment
Please, Sign In to add comment