XL 2016 Quelle API pour savoir si une ListBox (UserForm ou ActiveX) a sa ScrollBar Verticale présente ?

[Dudu2]

Bonjour les XLDNautes,

Si on peut, sans API, savoir si une ComboBox a son ascenseur affiché grâce à la différence (ComboBox.ListCount - ComboBox.ListRows) ce n'est pas possible avec les ListBoxes.
Certes on connaît son ListBox.TopIndex mais il n'existe pas de ListBox.BottomIndex.
Un approximation est possible avec la ListBox.Font.Size mais ça reste imprécis.

Reste l'API qui pourrait indiquer la présence d'une Vertical ScrollBar mais mes essais sont restés infructueux.
Merci pour toute suggestion.

 

[patricktoulon]

bonjour
a tu essayé avec

Declare PtrSafe Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWnd As LongPtr, ByVal Point As LongLong) As LongPtr

j'essaie ton fichier et reviens

 

[patricktoulon]

sur feuille ok mais sur userform non

 

[Dudu2]

ChildWindowFromPoint ça ne donne rien non plus.
En fait, il faudrait passer par EnumChildWindows avec un moyen sûr de reconnaitre la fenêtre qu'on cherche, et ça je n'ai ps trouvé.

 

[Dudu2]

Mais bon, tanpis, je crois qu'on ne trouvera jamais le Handle d'un Control de manière fiable sur des configs différentes Office Version / 32 ou 34 Bits / Windows version.

 

[patricktoulon]

ben normalement avec enumwindow tu teste la classe qui est "F3 MDCPOPUP 6xxxxxxxxx" pour les combobox
je suppose que l'on doit bien retrouver le nom avec une api quelconque

donne moi ta fonction enumwindow je vais faire des tests

 

[Dudu2]

Tu l'as dans le fichier.

Par contre il faut revoir toute la séquence de la CallBack function.

 

[patricktoulon]

et oui par ce que moi même en partant du (userform)getactivewindow )avec enumwindow je n'ai rien
je vais voir ton code et je reviens

 

[patricktoulon]

puré la enum ca en fait un paquet

 

[Dudu2]

Ah oui sur la fenêtre Excel, ça défile !

 

[patricktoulon]

ben en fait ca m'étonne que ca fonctionne chez toi la enum
par ce que par exemple ici

  EnumChildWindows WH, AddressOf EnumChildWindowsFunc, 0
    GetControlHandleByEnumChildWindows = ControlHandle

le return te donnera toujours 0 car il est exécuté sans attendre la enumproc car elle est en addressof

 

[Dudu2]

Je me suis aussi posé la question mais les traces disent le contraire:

Debug.Print "Avant EnumChildWindows"
    EnumChildWindows WH, AddressOf EnumChildWindowsFunc, 0
Debug.Print "Après EnumChildWindows"
    GetControlHandleByEnumChildWindows = ControlHandle

Private Function EnumChildWindowsFunc(ByVal ChildWH As LongPtr, Param As Long) As Boolean
    Dim ChildWR As RECT
    Dim ClassName As String
   
    EnumChildWindowsFunc = True
   
ClassName = GetClassNameStr(ChildWH)
Debug.Print ClassName & " " & GetWindowName(ChildWH)

Avant EnumChildWindows
EXCEL2
MsoCommandBar Barre d'état
MsoWorkPane Barre d'état
NUIPane
NetUIHWND
EXCEL2
MsoCommandBar Ribbon
MsoWorkPane Ribbon
NUIPane
NetUIHWND
NetUICtrlNotifySink
NetUICtrlNotifySink
RICHEDIT60W Calibri
NetUICtrlNotifySink
RICHEDIT60W 11
NetUICtrlNotifySink
RICHEDIT60W Standard
EXCEL;
ComboBox
Edit
EXCEL<
NUIScrollbar Vertical
NetUIHWND
EXCELG
EXCELG
EXCELG
EXCELG
EXCEL2
EXCEL2
XLDESK
EXCEL7 GetControlHandleMethods.xlsm
NUIScrollbar Vertical
NetUIHWND
NUIScrollbar Horizontal
NetUIHWND
XLCTL
XLCTL
XLCTL
F3 Server e0780000
F3 Server e0780000
EXCEL6
MsoWorkPane
MsoWorkPane
Après EnumChildWindows

 

[patricktoulon]

a oui la enumprocfunct fonctionne ya pas de soucis mais ton return doit te retourner le first handle a mon avis
en tout cas sur userform (la preuve en est) que le curseur fini au coin haut et gauche du desktop

 

[patricktoulon]

je pense avoir déterminé pourquoi windowfrompoint en 64 ne fonctionne pas
si je ne me trompe pas ça résoudrait ton problème non ?

 

[Dudu2]

Ça permettrait de trouver le Handle des Controls, ce qu'on cherche à faire depuis des lustres.
Maintenant, pour revenir à la question initiale de la présence d'une Vertical ScrollBar, reste à savoir si, avec ce Handle, on peut obtenir l'information de sa présence ou de son absence.

 

[Dudu2]

je pense avoir déterminé pourquoi windowfrompoint en 64 ne fonctionne pas

Tu veux dire ça ?

WindowFromPoint doesn't work correctly on 64bit .NET Framework

I wrote the easy test program by C# and .NET 4.0. [DllImport("user32.dll")] static extern IntPtr WindowFromPoint(int xPoint, int yPoint); Point pt = MousePosition; IntPtr w = WindowFromPoint(pt....

stackoverflow.com