Private Sub EnableTimer()
Timer1.Enabled = True
End Sub
Private Sub SerialPort1_DataReceived(...) Handles ...
Timer1.Invoke(New Action(AddressOf EnableTimer))
End Sub
tmrTimeOut.Enabled = Truemais, hélas, la procédure _Tick associée ne se lance pas, alors que si je lance le timer sans avoir démarré ma comm, elle se lance bien.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO.PortsDans le Form1_Load, un saut dans une Sub "InitPortSerie" dans lequel je fais :
Public Class Form1
Private WithEvents PortSerie As System.IO.Ports.SerialPort
If Not PortSerie Is Nothing Then PortSerie = NothingAprès avoir ouvert mon port, j'envoie un code à mon automate pour qu'il commence à faire les envois.
PortSerie = New System.IO.Ports.SerialPort
With PortSerie
.PortName = "COM7" ...
tmrTimeOut.Enabled = True
Friend Delegate Sub SimpleDelegate()Puis, la petite Sub d'action :
Private Sub tmrTimeOut_Enable()Et dans le PortSerie_DataReceived, j'ai remplacé le fameux
tmrTimeOut.Enabled = True
End Sub
tmrTimeOut.Enabled = Truepar
Me.BeginInvoke(New SimpleDelegate(AddressOf tmrTimeOut_Enable))