Salut, j'ai trouvé ça, peut être que ça va t'aider.
Private Sub Com1_Click()
'commande pour la gestion des ports On Error GoTo ErrHandler frmAnalyseur.MSComm1.CommPort = 1 Port = 1 Port_com = True Com1.Checked = True Com2.Checked = False Com3.Checked = False SaveSetting "Analyseur", "variables", "port", Port communication Exit Sub ErrHandler: If Port = 1 & com = True Then MsgBox "Le Port COM1 est déja ouvert", vbInformation Exit Sub End If MsgBox "Le Port COM1 ne peut etre ouvert", vbInformation Com1.Checked = False
End Sub
|