Discussion :

[lbar012001]

bonjour
je souhaite, lorsque ma souris passe au niveau de ma liste déroulante que celle ci se déroule et que ma souris prenne la main dessus pour pouvoir sélectionner la valeur souhaité etc etc
ainsi il n'y aura plus besoin de cliquer sur la fleche en haut a droite du controle pour le derouler
aussi sera t il possible de faire sauter cette petite fleche, ou alors faudra bricoler
merci
a+
laurent

[Invité]

Bonjour

Il suffit d'agir sur l'évènement MouseMove de ta liste déroulante.

Voici un petit exemple :

Code :

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

1
2
3
4
5
Private Sub cboLaListe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Me.cboLaListe
        .Dropdown
    End With
End Sub

Pour le triangle, il faut que tu positionnes dessus un contrôle rectangle sans bord, et avec la couleur de fond comme celle de ton formulaire.

Starec

[lbar012001]

merci starec pour ces bon conseils

pour cacher le triangle, j'avais pensé à ça aussi, du bricolage quoi

pour le survol aussi, mais l'aide access est mal foutue sur ce controle et je ne pensais pas c'etait si simple

bonne journee
laurent

[lbar012001]

a tout hasard si tu connaisssais comment faire un truc du style dropup quand ma souris quitte ce controle...en attendant je cherche !

[Invité]

Re

a tout hasard si tu connaisssais comment faire un truc du style dropup quand ma souris quitte ce controle...en attendant je cherche !

C'est possible.

Il faut rajouter une ligne au premier code que je t'ai donné, ce qui donne :

Code :

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

1
2
3
4
5
6
Private Sub cboLaliste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Me.cboLaliste
        .SetFocus
        .Dropdown
    End With
End Sub

Ensuite sur l'èvenement MouseMove de la zone détail de ton formulaire tu mets le focus sur un autre contrôle.

Code :

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

1
2
3
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.cmdTest.SetFocus
End Sub

Si bien sûr ta liste déroulante est directement sur la zone détail, si par exemple elle est sur un rectangle, il faut le faire sur l'évènement MouseMove de celui-ci.

Pour la flêche de la liste déroulante, il n'y a pas de propriété pour la faire disparaitre, il faut donc passer par l'astuce du rectange.

Starec

[lbar012001]

merci starec,
ça marche parfaitement

laurent

[wulfram]

Si tu fais un setfocus sur le MouseMove du détail, tu ne risques pas de rendre inutilisable le formulaire ? (genre la souris vite bloquée sur le contrôle cmd)