Bonsoir,
comment perdre le focus qui se trouve sur la zone de texte d'un combobox au demarrage de mon prog
Merci
Bonsoir,
comment perdre le focus qui se trouve sur la zone de texte d'un combobox au demarrage de mon prog
Merci
en donnant le focus a un autre objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part MeAutreOjet.Setfocus
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
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
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
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
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
mettre le comboResultat.visible=Falseexample
je demarre avec un combo client apparent
je selectionne le client
un combo apparait avec la liste des projets du client selectionne
dans Private Sub ComboChoix_Click()
recuperer ComboChoix.text, agire en consequence, je supose remplire comboResultat, puis rendre le resultat visible par comboResultat.visible=True
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
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
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
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
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
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
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
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
Partager