Discussion :

[rober]

Bonsoir,
comment perdre le focus qui se trouve sur la zone de texte d'un combobox au demarrage de mon prog
Merci

[ProgElecT]

en donnant le focus a un autre objet

Code :

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

MeAutreOjet.Setfocus

[rober]

j'ai bien essaye mais ma form quand elle est chargee il ny a que une frame sur laquelle il y a le combobox.
si je met le focus sur un controle qui n'est pas visible j'ai une erreur

[ProgElecT]

Une solution pas des plus élégante mais qui fonctionne
Mettre un CommadButton sur la form

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Load()
CmdFocus.Left = -CmdFocus.Width
CmdFocus.TabStop = False
Me.Visible = True
CmdFocus.SetFocus
End Sub

[rober]

j'ai essaye et ca marche mais pour mon appli je voulais demarrer avec un combo et ensuite en clickant sur le combo texte faire apparaitre un deuxieme combo

example
je demarre avec un combo client apparent
je selectionne le client
un combo apparait avec la liste des projets du client selectionne

le pb c'est que si le combo client a le focus et bien le combo projet est apparent

[ProgElecT]

example
je demarre avec un combo client apparent
je selectionne le client
un combo apparait avec la liste des projets du client selectionne

mettre le comboResultat.visible=False
dans Private Sub ComboChoix_Click()
recuperer ComboChoix.text, agire en consequence, je supose remplire comboResultat, puis rendre le resultat visible par comboResultat.visible=True

[rober]

je viens de voir que tu es de Yaute!!!!!!!!!!!

pour repondre a ta suggestion
comboResultat.visible=False

le ComboChoix a deja le focus au chargement de la form
je voudrais en faisant ComboChoix_Click()
demander comboResultat.visible
mais il est visible sans cliquer dessus

[ProgElecT]

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
Private Sub ComboChoix_Click()
If ComboChoix.Text = "Votre choix" Then Exit Sub
ComboChoix.RemoveItem (0) 'pour faire disparaitre l'infos
'...........analyse, agire suivant ComboChoix.ListIndex  .....
ComboResultat.Visible = True
End Sub
Private Sub Form_Activate()
CmdFocus.SetFocus
End Sub
Private Sub Form_Initialize()
CmdFocus.Left = -CmdFocus.Width
CmdFocus.TabStop = False
ComboChoix.Clear
ComboChoix.AddItem "Votre choix"
ComboChoix.AddItem "Choix N°1"
ComboChoix.AddItem "Choix N°2"
ComboChoix.AddItem "Choix N°3"
ComboChoix.ListIndex = 0
ComboResultat.Visible = False
End Sub

[rober]

Je reviens a la charge avec mon pb focus
j'ai beau tourner dans tous les sens mon ne truc ne fonctionne pas

Je resume
je voudrais charge au demarrage la form sur laquelle il y a un combobox "client" et un bouton sur lequel j'ai mis le focus
avec un action click sur le combo client doit apparaitre un autre combo "projet" qui avait une prorite visible=false

CA NE MARCHE PAS le combo "projet apparait au demarrage de la form

mon code:

Code :

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

1
2
3
4
Private Sub Combo_client_click()
Frame_choix_projet.Visible = True
Combo_projet.Visible = True
End Sub

[ProgElecT]

Bonsoir

Je ne comprend pas le problem,
dans Form_Load, il suffit de mettre la propriété Combo_projet.Visible = False(derniere ligne de commande avant le End Sub),
par la suite, lors du choix dans combo client, l'action par l'utilisateur lors du click, là faire apparaitre le Combo_projet avec Combo_projet.Visible = Ture

[rober]

Eureka j'ai trouve

dans mon code quelque part j'avais laisse combo_projet.visible=true

JE SUIS UNE GROSSE TACHE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Merci quand meme de votre aide