Ouvrir Automatiquement la liste d'une ComboBoxRésolu

Question

Bonjour tout le monde !

J'ai une DateTimePicker ( mais je pense que le problème est le même avec une ComboBox) que j'affiche que sous certaines conditions.

Lorsque je l'affiche, j'aimerais ouvrir automatiquement le calendrier ( la liste déroulante dans le cas d'une ComboBox).

Comment faire ?

Merci !

Renfield · Accepted Answer

et voilà:
    Private Const WM_LBUTTONDOWN As Int32 = &H201
    Private Const WM_LBUTTONUP As Int32 = &H202

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With KryptonDateTimePicker1
            SendMessage(.Handle, WM_LBUTTONDOWN, 1, .Width - 10 + &H50000)
            SendMessage(.Handle, WM_LBUTTONUP, 1, .Width - 10 + &H50000)
        End With
    End Sub



Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

je pense à un SendMessage CB_SHOWDROPDOWN

Renfield - Admin CodeS-SourceS - MVP Visual Basic

SonicDusbir · Answer

SendMessage ya pas en VB.NET.

Désolé j'aurais peut être du re-précisé que j'étais en VB.NET, sous visual studio 2008

Renfield · Answer

y'a pas en .Net... euh..... si ^^

fort heureusement d'ailleurs...

suffit de la déclarer, comme toutes les APIs

Renfield - Admin CodeS-SourceS - MVP Visual Basic

SonicDusbir · Answer

Tu pourrais m'expliquer davantage car je ne suis pas au point sur les APIs.

Merci.

ucfoutu · Answer

Bonjour,
tu étais en fait invité à utiliser une fonction d'une librairie de l'Api de Windows (pas "une api")
Si tu n'es pas encore familiarisé avec l'utilisation de telles fonctions, voilà un site qui te sera utile, mais cela implique une lecture et une étude  :

http://allapi.mentalis.org/apilist/SetStretchBltMode.shtml

Si, par contre, tu estimes que tout cela est trop complexe pour toi, juste un rappel :
Une combobox n'est jamais rien d'autre qu'une espèce de "communion" entre une zone éditable (une textbox fait l'affaire) et une zone de liste (une listbox fait l'affaire).
Une listbox est toujours, elle, "déroulée".
Voilà ! à toi de choisir entre :
- l'apprentissage de l'utilisation des fonctions de l'Api de Windows (et la fonction qui t'a été signalée fera l'affaire)
et
- rester "collé" à ce que t'offre VB et substituer un ensemble textbox + listbox à ta combobox et gérer cet ensemble.
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

"une fonction de..." bien de me recadrer là dessus,  depuis le temps je fais plus gaffe ^^

++ jmfoutu

Renfield - Admin CodeS-SourceS - MVP Visual Basic

ucfoutu · Answer

Bonsoir, renfield,

la volonté n'était pas celle d'un "recadrage", mais tout bêtement, en "resituant" les choses de manière plus précise, d'en permettre une approche plus parlante. Comprendre (et utiliser intelligemment) les fonctions de l'Api de Windows passe, j'en suis convaincu, par la nécessité de bien voir de quoi est composée cette API : de libairies distinctes (classées par vocations principales) contenant, chacun d'elles, une ou plusieurs fonctions.

Ce que je viens d'exposer là, Renfield, ne l'est pas à ton intention (je n'ai, de très loin,  absolument rien à t'apprendre, bien au contraire), mais surtout à celle des forumeurs qui passeront par là (ils auront ainsi une meilleure vision des choses et des mécanismes à mettre en oeuvre pour les utiliser). C'est la seule raison qui fait que je n'hésite pas (tant pis pour mes doigts) à m'exprimer chaque fois complètement en ce qui concerne ces fonctions de l'Api de Windows.

Qu'ils apprennent que ces fonctions répondent aux mêmes principes que toutes les autres fonctions (qu'elles reçoivent des paramètres et retournent une valeur) est le 1er pas. Qu'ils apprennent ensuite que leur utilisation passe par leur déclaration (nom de la fonction et nom de la librairie) en respectant des règles alors particulières de déclaration est le second. Une fois celà bien "ancré", tout est déjà beaucoup moins ésotérique et beaucoup moins décourageant.



___________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

SonicDusbir · Answer

Bon c'est pas évident les API quand même 

J'ai récupéré la déclaration de SendMessage, mais par contre après je ne vois pas trop comment l'utiliser avec le CB_SHOWDROPDOWN, car je ne comprend pas trop ce qu'est ce dernier.

Merci de m'éclairer

ucfoutu · Answer

Il ne s'agit là que d'une constante spécifiant le message à envoyer à ta combo.
Va lire ici :

http://support.microsoft.com/kb/124057/fr

et rappelle-toi que, sous VB.Net (que je ne pratique pas) les long deviennent des Integer (à remplacer l'un par l'autre, donc).

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

ucfoutu · Answer

Et il se peut que la propriété hwnd n'existe pas sous VB.Net (il s'agit du handle de ta combo).
Sous VB.Net, c'est d'ailleurs peut-être tout simplement une propriété handle (ta_combo.handle)
Mais tu seras renseigné sur ce point en frappant handle dans ton aide en ligne ..

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

Fausse route.
et pas de message spécifique.

on a bien un DTM_CLOSEMONTHCAL mais Vista et >
http://msdn.microsoft.com/en-us/library/bb761753(VS.85).aspx

faut trouver un autre moyen.

(je suis sur le coup)

Renfield - Admin CodeS-SourceS - MVP Visual Basic

SonicDusbir · Answer

Pour l'instant j'ai écrit ça :
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Long

    Private Const CB_SHOWDROPDOWN As Integer = &H14F

Et pour l'utilisation :
SendMessage(ComboBox_Softs.Handle, CB_SHOWDROPDOWN, True, IntPtr.Zero)

Mais ça ne fait rien

Renfield · Answer

Merci Spy++

Ensemble, simulons un click :


    Private Const WM_LBUTTONDOWN As Int32 = &H201

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With DateTimePicker1
            SendMessage(.Handle, WM_LBUTTONDOWN, 1, .Width - 10 + &H8000 * .Height)
        End With
    End Sub

Renfield - Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

salut,

ou en moins propre (c'est à dire sans API)


        DateTimePicker1.Focus()
        ' oubien
        DateTimePicker1.Select()

        SendKeys.SendWait("%{DOWN}")


du pareil au même remarque... 

[hr]

SonicDusbir · Answer

Ce n'est pas mieux ça fait toujours rien

ucfoutu · Answer

Cer ne serait pas le type du handle ?
=>>> du genre .Handle.toint32  (ou quelquechose du genre ?)
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

SonicDusbir · Answer

La réponse de PCPT fonctionne sur une combobox, mais pas sur mon datetimepicker.

L'argument de SendKeys.SendWait("%{DOWN}") a changé ?

PCPT · Answer

c'est sur un datetimepicker en vb2008 que j'ai essayé dans l'event _click d'un bouton
ta form ne bloque aucune pression clavier?

le contrôle est bien visible au moment de l'appel?

SonicDusbir · Answer

Effectivement sur un DateTimePicker standard ça fonctionne.

Le problème est que j'utilise le composant issue de la suite Krypton http://www.componentfactory.com/download.php

D'habitude il n'y a pas de différence pour les évènements mais apparemment si  Ou pire il y a un bug sur celui-ci.

Comment as tu fait pour trouver l'évènement clavier correspondant ?

ucfoutu · Answer

Ton outil contient peut-être une ou plusieurs fenêtres filles. Si tel est le cas, la chose devient complexe car il va d'abord falloir les énumérer puis tenter de leur envoyer une séquence de click, tour à tour, jusqu'à trouver la bonne ....
On peut voir une image de ton DTPicker (tel qu'il est avant déroulement) ?


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

testé avec ton KryptonDateTimePicker....

ca fonctionne.

    Private Const WM_LBUTTONDOWN As Int32 = &H201

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With KryptonDateTimePicker1
            SendMessage(.Handle, WM_LBUTTONDOWN, 1, .Width - 10 + &H50000)
        End With
    End Sub

Renfield - Admin CodeS-SourceS - MVP Visual Basic

ucfoutu · Answer

Ne serait-il pas plus orthodoxe de :
-1) déterminer quelle est la fenêtre qui doit avoir le focus pour cet outil (classe, nom, etc...) en s'y plaçant (et l'écrire sur une feuille de papier)
- 2) (maintenant qu'on en connait les caractéristiques pour cet outil) :
aller à la pêche du handle concerné (à l'aide de ce que l'on connaît maintenant) et utiliser sendmessage avec ce handle là

Ce serait beaucoup plus propre, à mon sens.


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

j'avoue ne pas avoir saisi ta remarque, ucfoutu ...

si elle concerne le code que j'ai soumis ce matin, le SendMessage joue bien avec le Handle du DateTimePicker

on clique ici en fait à 10 pixels de la bordure droite, et 5 de la bordure haute.
c'est un peu hasardeux, peut etre, selon le theme ou differentes propriétés du controle, mais tel qu'il arrive de base, on clique bel et bien sur le bouton.

enfin, on clique, non, on dit au controle que l'on a cliqué...


Renfield - Admin CodeS-SourceS - MVP Visual Basic

ucfoutu · Answer

Je sais...
Ce que j'aime moins, c'est le click "géographique", qui devrait pouvoir être remplacé par un message envoyé à la "sous-fenêtre" concernée (dont on a extrait le handle).
Cette discussion ressemble un peu (pas exactement, mais...) à celle tenue ici :
http://www.vbfrance.com/forum/sujet-CAPTER-HANDLE-TOOLBAR_1387574.aspx
en ajoputant que le demandeur, dans cette discussion-là, est également le dépositaire d'une source qui permet de déterminer les caractéristiques d'une sous-fenêtre.
A voir...
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

SonicDusbir · Answer

Effectivement cela fonctionne avec ton code Renfield.

Mais le problème est que je dois cliquer quand même 2 fois pour pouvoir sélectionner une date. Or le but de cette opération était d'économiser un clic pour une meilleure cohérence de mon interface.

Une solution ?

ucfoutu · Answer

Pour que tu me comprennes mieux (et bien que celà n'ait pas vraiment grand chose à voir avec SON contrôle) :
Voici, par exemple, comment extraire le handle de la seule zone éditable d'une combo.

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long

Public Function GetComboBoxEdithWnd(ByVal hwnd As Long) As Long
   GetComboBoxEdithWnd = FindWindowEx(hwnd, 0, "EDIT", vbNullString)
End Function

Private Sub Form_Load()
 MsgBox GetComboBoxEdithWnd(Combo1.hwnd) & "  " & Combo1.hwnd
End Sub

Regarde ce que l'on a utilisé dans cet exemple ( "EDIT"). C'est ce genre de renseignement, qu'il faudrait pouvoir extraire en ce qui concerne SON DtPicker.
Une fois ce handle-là obtenu, tout devrait alors être très simple.
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

c'est .Handle....

son controle est pas composé d'un EDIT (j'ai téléchargé la suite Krypto)



Mais le problème est que je dois cliquer quand même 2 fois pour pouvoir sélectionner une date. Or le but de cette opération était d'économiser un clic pour une meilleure cohérence de mon interface. 


Attends, quel est le but final ?

tu voulais pouvoir afficher le calendar, c'est chose faite.


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

y'a pas de sous fenetre, en somme, c'est juste un container unique, dans lequel tout est dessiné

Renfield - Admin CodeS-SourceS - MVP Visual Basic

SonicDusbir · Answer

Effectivement je n'ai pas pensé à le précisé je m'en excuse.

Quand ma DateTimePicker s'affiche, je veux que s'ouvre automatiquement le calendrier et qu'on puisse sélectionner une date directement via un seul clic donc.
Sinon je dois faire un clic pour afficher le calendrier, puis un clic pour sélectionner la date. Ici malgré que le calendrier est affiché je dois en refaire quand même un avant de pouvoir sélectionner une date.

Renfield · Answer

rendu là, ce qu'il reste a faire ne doit pas être si terrible...

le tout est de trouver le Handle du Calendar, chose qui t'es je pense fournie via les propriétés du controle (je l'ai pas installé là, au boulot)

et de lui donner le focus.

Renfield - Admin CodeS-SourceS - MVP Visual Basic

ucfoutu · Answer

Tu es en train de venir, doucement mais sûrement, à ce que je tentais d'exprimer, Renfield 
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

SonicDusbir · Answer

Alors j'ai essayer divers trucs, mais rien ne fonctionne.
Par contre, si juste après avoir afficher mon calendrier, j'affiche une MsgBox, et bah après avoir fait OK pour celle-ci, je peux sélectionner directement ma date.

Donc que se passe-t-il comme évènement lors de la disparition de ma MsgBox ?
Je n'aurais plus qu'à le reproduire comme ça...

Merci !

ucfoutu · Answer

Ce n'est pas la disparition de ta msgbox, qui "restitue", mais son appel, qui empêche la suite des instructions de ton contrôle (une msgbox est modale), ce qui fait que le focus reste où il se trouvait (sur ton calendar, donc).
C'est ce que je pense 

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

SonicDusbir · Answer

Oui mais alors pourquoi je perd le focus du calendrier alors qu'il ne se passe rien ensuite ?

PCPT · Answer

SonicDusbir -> l'interférence se fait justement par le click du bouton

le code de renfield est sans doute correct, voici juste une autre manière qui fonctionne chez moi (toujours avec le simple datetimepicker



    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", SetLastError:=True)> Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Integer
    End Function
    Sub DropBox(ByVal hBoxHandle As IntPtr)
        'oBox peut être =>
        '       ComboBox
        '       DateTimePicker
        '       KryptonDateTimePicker

        Const WM_SYSKEYDOWN As Int32 = &H104
        SendMessage(hBoxHandle, WM_SYSKEYDOWN, Keys.Down, 0)
    End Sub



    Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
        DropBox(DateTimePicker1.Handle)
    End Sub



une fois le calendrier déployé, une seule pression suffit à sélectionner la date et à le refermer

Renfield · Answer

ne fonctionne pas.

perso, j'ai pas trouvé une seule touche du clavier qui déplie le calendar (Down et F4 comprises)

Renfield - Admin CodeS-SourceS - MVP Visual Basic

SonicDusbir · Answer

Moi aussi j'ai tester toutes les touches du clavier rien ne fonctionne pour déplier le calendrier.
Et je confirme chez moi le code de PCPT ne fonctionne pas.

Par contre nickel ton code Renfield ! Merci !

Merci à tous en tous cas, je n'aurais jamais trouvé tout seul.

Ouvrir Automatiquement la liste d'une ComboBox

38 réponses

Votre réponse

Discussions similaires