Private Static Sub MSComm1_OnComm() ' Sélectionne en fonction de la propriété CommEvent. Select Case MSComm1.CommEvent ' Messages d'événement. Case comEvReceive Buffer = MSComm1.Input 'Debug.Print "Réception - " & StrConv(Buffer, vbUnicode) If InStr(Buffer, "Laphraseavirer") > 0 Then Buffer = Replace(Buffer, "Laphraseavirer", "") End If ShowData txtTerm, Buffer Case comEvSend Case comEvCTS End Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question