Discussion :

[hypermc]

Bonjour à tous,

Avec l'automne qui arrive et en attendant les châtaignes chaude, je me remet à coder un peu sous VBNet. J'ai pas un gros niveau, on va dire que je me dém...e un peu

Depuis un petit moment je bute sur un problème. Au final je cherche à faire défiler des images à l'écran en laissant une touche clavier appuyée.

Pour simplifier mon problème, imaginons que je cherche à afficher le temps durant lequel on appuie sur une touche. Comme un chronomètre qui s'affiche
J'ai testé ce simple bout de code, ici j'aimerai afficher le défilement du temps d'appuie de la touche Shift gauche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
While GetAsyncKeyState(VK_LSHIFT) <> 0
         iPointeur = iPointeur + 1
         Threading.Thread.Sleep(1000)     'Pour ralentir d'une seconde (environ) à chaque fois.
         TestBox.Text = iPointeur
End While

Le problème est que dans ma TestBox je ne vois pas le défilement, je vais avoir uniquement l'affichage à la fin de mon appuie sur la touche. Ex 5 au bout de 5 secondes d'appuie de la touche, alors que j'aimerai voir 1,2...jusqu'à 5
Comprend pas pourquoi ça marche pas ???

Je précise que j'aimerai garder cette structure, car forcément à la place de ma TestBox.Text dans mon problème initial, je veux lancer des affichages d'images.

Bref je suppose que c'est tout bête mais je ne vois pas.
Merci d'avance pour votre aide.

Bien cordialement

Stéphane MC

[Phil Rob]

Bonjour,

C'est normal ...,
Pour faire simple, et de manière un peu caricaturale, disons que le contrôle de ton algorithme (la boucle While) ne s'exécute pas au même niveau que les contrôles des composants déposés sur le Form.

Probablement qu'un Refresh bien placé pourrait te dépanner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
While GetAsyncKeyState(VK_LSHIFT) <> 0
         iPointeur = iPointeur + 1
         Threading.Thread.Sleep(1000)     'Pour ralentir d'une seconde (environ) à chaque fois.
         TestBox.Text = iPointeur
 
         TextBox.Refresh
 
End While

...

[hypermc]

Bonsoir Phil Rob,

Tu es un Saint Homme, ça fonctionne

Merci aussi pour l'explication, ça me semblait pas logique, du coup je comprend mieux mon problème.

Une bonne soirée

Steph MC

[Phil Rob]

Tu es un Saint Homme...

Heureusement qu'il ne faut pas en arriver là pour obtenir quelques réussites en programmation !
Bonne soirée chez toi aussi...

[umfred]

Sinon il y a l'évènement KeyDown (sur un contrôle) qui se déclenche tant que la touche n'est pas relâchée