Actualisation Text Box

Question

Bonjour, j'ai un sub OnRead_Click() dans lequel j'ai le code suivant : Citation: Private Sub OnRead_Click() Call description("9 ans", "damien") Dim Value As Long Dim temp As Integer temp = 0 While temp < 200 Value = DlPortReadPortUchar(Val(TextAddr)) If OptionDec Then TextValue = Value Else TextValue = "&H" + Hex(Value) End If Sleep (25) temp = temp + 1 If Value = 207 Then Text1.Text = Text1.Text + "1" End If If Value = 199 Then Text1.Text = Text1.Text + "0" End If Wend End Sub Il change la valeur de Text1.Text. Le probleme est qu'il change sa valeur seulemement à la fin de l'execution de OnRead_Click() : je souhaiterais, a chaque passage dans le while, actualisé la valeur de Text1.Text. Merci de votre aide ++

cs_Exploreur · Answer

Salut,

Est là propriété Refresh d'un textbox ? Text1.Refresh.

A+
Exploreur

NHenry · Answer

Bonjour

Sinon essaye DoEvents çà chaque fois que tu veux rafraichir, mais cela pourra aussi être utilisé pour pouvoir utiliser ton interface (boutons, menus, ...) durant l'execution de ta procédure.

Il est plus facile de batiser quelqu'un que de le convertir.(surtout en programmation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

dalsk · Answer

Merci de vos réponse !
J'ai put finir mon projet qui consister à receptioner un signal  (DCF 77 ) qui provient d'allemagne qui contient le signal horaire, le faire passer sur le pc par le port parallelle, et l'interpreter grace à un programme réalisé en visual Basic ;).
A propos de ma question, j'ai finalement utilisé le moins possible de While, que j'ai remplacé par des timers car cela permet de ne pas bloquer l'interface.
Merci encore @++

Actualisation Text Box

3 réponses

Votre réponse

Discussions similaires