Discussion :

[seanjohn42]

Bonjour à tous,

J'ai quelques problèmes avec l'utilisation de la fonction Focus.
J'ai un plateau de jeu avec des pions, j'utilise une procédure (que je vais appeler procPlacementPion) qui fait avancer mon pion selon un nombre de cases passé en paramètre. Voilà en gros le fonctionnement de la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub procPlacementPion(ByVal intNbCases As Integer)
	dim i as Integer
	For i = 0 To intNbCases - 1
		' Calcul de la nouvelle position
		' Placement du pion
 
		btnPion.Focus()
	Next
End Sub

En fait je veux donner le focus au bouton du pion à chaque déplacement (pour les personnes qui n'ont pas une résolution d'écran assez importante pour afficher la totalité du plateau et qui n'ont pas le pion en vue au moment du déplacement).
Le problème que je rencontre est que le seul focus pris en compte est le dernier.
Il doit y avoir un aspect de la fonction Focus que je ne connais pas. Elle n'est pas instantanée ? Il faut que toutes les instructions soient finies pour "voir" le résultat ?

Merci à ceux qui me liront.

[mactwist69]

Tu peux faire un :

Code :

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

Form.Refresh

et un sleep de 0.1 secondes entre chaque mouvement

[seanjohn42]

Merci de ta réponse.

En fait j'ai déjà essayé le Form.Refresh après le focus. Je vois bien que le refresh est fait (le graphisme "clignotte", ce qui d'ailleurs sur le jeu ne fait pas très beau plusieurs fois de suite), mais le pion reste toujours hors écran jusqu'à la fin de mes instructions.

[mactwist69]

Ah d'accord.... tu as des scroll bar, et tu pensais qu'en mettant focus, alors ca se déplacerai tout seul pour afficher la case c'est ça ?

[seanjohn42]

Oui, c'est pas le cas ?
En fait effectivement je me rend compte que c'est pas vraiment ce qui me faut parce que si le bouton a déjà le focus il va rien se passer ?
Il faut que j'agisse directement sur les scrollbars.

[seanjohn42]

Du coup je viens de trouver ScrollControlIntoView() et c'est bon ça marche parfaitement.
Merci pour ton aide.

[mactwist69]

Exactly mon amis !

Si tu mets le focus sur un bouton, ce que ça va faire, c'est que derrière si tu appuies sur "Enter", et bien il va cliquer.

PAs de souci