bonjours à tous
je debut en vb et la je coinse betement
j'ai fait un prog qui communique avec une interface via le port com
j'ai fait un bouton connecter et un autre deconnecter
le probleme si je clic deux fois sur connecter j'ai une erreur il faut que j'arrive à blocquer le bouton un seul clic
et c'est la meme chose pour le boutton deconecter
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub Command1_Click(Index As Integer) 'boutton conection Form1.Caption = "App1" With MSComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 2 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True 'ouverture du port End With End Sub Private Sub Command2_Click(Index As Integer) 'boutton deconection MSComm1.PortOpen = False 'Ici on ferme le port de communication
Partager