Discussion :

[biboulou]

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

[laedit]

Ajoute tout simplement un booléen qui sera à False par défaut et qui se mettra à True lors de la connection.

Il te suffira ensuite de faire un test lors de la connexion : if(isConnected == false) et lors de la déconnection if(isConnected == true).