GetExplorerListGadgetHwnd

Синтаксис

Function GetExplorerListGadgetHwnd(byval gadget As long) As HWND

Описание

Получает хендл окна ListView гаджета ExplorerListGadget. Может быть полезна например при выделении пункта. Поскольку при выделении пункта нужно сделать его активным , для функции SetFocus понадобится хендл ListView. Гаджет ExplorerListGadget состоит из двух окон. Функция ExplorerListGadget возвращает хендл окна владельца ListView. При использовании функции GadgetID к номеру гаджета так же будет возвращаться хендл окна владельца ListView. Сам же хендл ListView можно получить с помощью вышеописанной функции GetExplorerListGadgetHwnd.

Параметры

gadget - номер гаджета

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HWND LWHwnd
CenterWindow(OpenWindow("",10,10,440,400))
ExplorerListGadget(1,10,10)
LWHwnd  = GetExplorerListGadgetHwnd(1)
SetGadgetColor(1,&h0,&hC553B1,3)
SetGadgetFont(1, LoadFont("Courier New",10))
SendMessage(LWHwnd,LVM_SETBKCOLOR ,0,&hFFFF00)
Do:Loop Until EventClose=WaitEvent()

Результат

Created with the Personal Edition of HelpNDoc: Easily create EPub books