GetExplorerListGadgetCurentItem

Синтаксис

Function GetExplorerListGadgetCurentItem(byval gadget As long) As Integer

Описание

Получает самый последний выделенный пользователем пункт. Сохраняет его до следующего выделения.

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HWND LWHwnd
CenterWindow(OpenWindow("",10,10,440,400))
ExplorerListGadget(1,10,10)
ButtonGadget(2,10,330,100,20,"Get Item")
Do
Var ev = WaitEvent()
Select Case ev
 Case eventclose
  Exit Do
 Case eventgadget
  If eventnumber = 2  Then
   MessBox("",Str(GetExplorerListGadgetCurentItem(1)))
  EndIf
End Select
Loop

Created with the Personal Edition of HelpNDoc: Full featured Help generator