1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Private Sub b7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b7.Click
b7Clicked = True
If b7.Text = "Stop sending" Then
b7.Text = "Send Data"
FormTimer.Interval = vbNull
' TextBox1... : ici le code pour bloquer le défilement des infos
ElseIf b7.Text = "Send Data" Then
b7.Text = "Stop sending"
With comm
.comPort = SerialPort1
.PortName = SerialPort1.PortName
.CurrentTransmissionType = CommManager.TransmissionType.Hex
End With
'ici le code pour relancer le défilement des infos
End If
FormTimer.Interval = 1
b7Clicked = False
End Sub |
Partager