[VB2005] Probleme de Focus

**Danyel** · 25/07/2007, 01h20

Bonsoir All,

J'ai un probleme avec l'affectation de focus sur des boutons.
Alors j'arrive à donner le focus, mais uniquement lors du premier appel, mais apres, c'est tjrs la premiere selection qui revient.

Alors pour etre plus clair, je vous donne un exemple :
-J'appelle une form (y) à partir d'une autre form (x).
- Sur la form y, il y a 3 boutons (a/b/c).
- Selon l'appel de la form x, je defini si a,b,c doit avoir le focus ou non.

Alors jusqu'à la, no problemo, j'y arrive en faisant comme cela :

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
18
19
 
If Venu = 1 Then
            Button_1.TabIndex = 0
            Button_2.TabIndex = 1
            Button_3.TabIndex = 2
            Button_1.Focus()
ElseIf Venu = 2 Then
            Button_1.TabIndex = 2
            Button_2.TabIndex = 0
            Button_3.TabIndex = 1
            Button_2.Focus()
ElseIf Venu = 3 Then
            Button_1.TabIndex = 1
            Button_2.TabIndex = 2
            Button_3.TabIndex = 0
            Button_3.Focus()
Else
            Button_1.Focus()
End If

Le probleme survient lors des futurs et autres appels de la form y, car apres avoir ferme la form y et ouvert un autre fois y, il ne donne le focus qu'au bouton du premier appel de la form !!!
En clair, si lors du premier appel de y, je defini le bouton b comme focus, il affiche le focus sur b sans probleme, mais pour tous les autres appels, meme si je defini a ou c, il continue de definir le focus sur b ... et je vois pas le pourquoi du comment ???

Merci pour votre aide.
Danyel.

**max44410** · 25/07/2007, 04h00

Déjà commence par faire un selon cas ...

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
18
19
20
21
22
23
Select case (Venue)
 
case "1"
            Button_1.TabIndex = 0
            Button_2.TabIndex = 1
            Button_3.TabIndex = 2
            Button_1.Focus()
 
case "2"
            Button_1.TabIndex = 2
            Button_2.TabIndex = 0
            Button_3.TabIndex = 1
            Button_2.Focus()
 
case "3"
            Button_1.TabIndex = 1
            Button_2.TabIndex = 2
            Button_3.TabIndex = 0
            Button_3.Focus()
case Else:
            Button_1.Focus()
 
End Select

je ne suis pas sur de la syntaxe... à vérifier, mais cela corespond mieux a ton code que des eslseif

**Danyel** · 25/07/2007, 04h23

lol merci, mais dans mon code il y a deja le select case, j'ai tape le code ci-dessus à la volée et pour donner un exemple

Mais ca prouve que la premiere pensee n'est pas souvent la meilleure

**Danyel** · 25/07/2007, 17h44

Personne n'a une solution pour ce petit probleme de focus ?

**jerem59300** · 25/07/2007, 19h42

Il faudrait que tu nous donnes dans quel événement tu fais ce bout de code... car si tu le fais au form_load le probleme est le suivant : utilisant des form.hide et form.show l'événement load ne se reproduit pas... Mieux vaut donc utiliser un visibleChanged comme événement... Je pense que deux ans apres tu ne verras jamais la réponse mais si jamais cela peut aider quelqu'un

**Danyel** · 25/07/2007, 19h57

Effectivement, c'est bien dans le form_load.

Merci pour ton info, mais peux tu en dire plus sur l'événement load ne se reproduit pas... ???
C'est le mot reproduit que je ne comprends pas car le form_load est bien execute.

Merci pour ton aide.

**Kelpan** · 25/07/2007, 21h33

L'évenement Load ne se produit qu'une seule fois par instance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim frmEcran As New Form
 
frmEcran.Show
'=> Evenement Load déclenché
 
frmEcran.Hide
'...
 
frmEcran.Show
'=> L'évenement Load n'est plus déclenché ...

Par contre, comme dis par "jerem", tu peux mettre ton code dans l'évenement VisibleChanged ou Activate.

**Danyel** · 25/07/2007, 21h46

Ah ok j'ai compris ce qu'il voulais dire, mais ca ne rentre pas en compte, car je ne hide pas la form, je la close.

Je pense qu'il doit y avoir qq chose a decharger ou a reinitialiser ... mais je vois pas.

Sinon j'appelle la form y comme cela :

Code :

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

1
2
Venu = x                               'x = a/b/c
Form_y.ShowDialog()

Et je ferme la form y comme cela :

Code :

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

Me.Close()

Meme si je debute en .net, je pense que tout a l'air correct.
(suis presque sur qu'il faut un dispose qq part et de qq chose, mais alors là

)

**Danyel** · 26/07/2007, 00h44

Je viens de faire qq tests, et je viens de m'apercevoir que faire :

Code :

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

Button.Focus()

ne donne pas le focus en tant que tel, car si on demande s'il est focused, la reponse est false.

...
Je m'embourbe complet

**Pol63** · 26/07/2007, 08h09

il faut ptete attendre que la fenetre soit affichée reellement avant de mettre le focus

sinon comment form2 recupère la variable qui vient de form1 ?
il nous faudrait ton code, et le vrai !
par si tu fais que nous donner du code que t'as pas écrit, on va faire que corriger du code qui ne corrige pas ton problème

**Danyel** · 26/07/2007, 16h52

Le code vous l'avez tous, car il n'y a que cela.
Et le code de l'ensemble fonctionne sans probleme, SAUF la commande focus sur le bouton !!!
Je vous redonne en entier.

Appel

Code :

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

1
2
3
Public Venu As Integer = 0
Venu = x                               'x = (0/1/2)
Form_y.ShowDialog()

Load

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
18
19
20
21
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Select Case Venu
            Case 1
                Button_1.TabIndex = 0
                Button_2.TabIndex = 1
                Button_3.TabIndex = 2
                Button_1.Focus()
            Case 2
                Button_1.TabIndex = 2
                Button_2.TabIndex = 0
                Button_3.TabIndex = 1
                Button_2.Focus()
            Case 3
                Button_1.TabIndex = 1
                Button_2.TabIndex = 2
                Button_3.TabIndex = 0
                Button_3.Focus()
        End Select
 
End Sub

Franchement rien de bien complique, le choix Venu se fait sans aucun probleme car les tabindex sont biens mis à jour.
Mais le focus à partir du deuxieme appel ...

**Danyel** · 26/07/2007, 16h56

Pour controler, j'ai fait un test a partir d'une nouvelle solution vide, avec juste les 2 forms, un appel par bouton sur x et 3 boutons sur y pour focus ... resultat identique ... pense qu'il y a un bug dans vb2005 (ou qq chose d'autre qui garde l'etat du focus pour les futurs appels en empechant la maj)