Private Sub chkTPCalcActive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTPCalcActive.CheckedChanged
Dim GageConfiguration As String
If TPFormLoaded = True Then
TPFormLoaded = False
Exit Sub
End If
If Me.chkTPCalcActive.Checked = True Then
' If TPCalcSwitchState = True Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
'ElseIf TPCalcSwitchState = True or Then
'ActivateTPCalculation = False
'GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
'serialCOMDiscover.WriteLine(GageConfiguration)
'System.Threading.Thread.Sleep(1000)
' End If
'TPCalcSwitchState = True
ElseIf Me.chkTPCalcActive.Checked = False Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
End If
End Sub
Private Sub chkTPCalcActive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTPCalcActive.CheckedChanged
chkTPCalcActions()
end Sub
Sub chkTPCalcActions()
Dim GageConfiguration As String
If TPFormLoaded = True Then
TPFormLoaded = False
Exit Sub
End If
If Me.chkTPCalcActive.Checked = True Then
' If TPCalcSwitchState = True Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
'ElseIf TPCalcSwitchState = True or Then
'ActivateTPCalculation = False
'GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
'serialCOMDiscover.WriteLine(GageConfiguration)
'System.Threading.Thread.Sleep(1000)
' End If
'TPCalcSwitchState = True
ElseIf Me.chkTPCalcActive.Checked = False Then
ActivateTPCalculation = True
TPCalcSwitchState = True
GageConfiguration = ("<@:L" & GageID & "08<GAGE,P>")
serialCOMDiscover.WriteLine(GageConfiguration)
System.Threading.Thread.Sleep(1000)
End If
End Sub
so you may want to move all the code into a separate (eg) chkTPCalcActions function, which is called from _CheckedChanged
in that way, you can set the checkbox on form load (from a previous settings or similar) and then call the chkTPActions to do other updates