PanelGadgetGetCursel

Синтаксис

Function PanelGadgetGetCursel(ByVal gadget As Long) As Long

Описание

Позволяет получить выбранную вкладку PanelGadget

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,dd,ff
Dim pan(20) As HWND
hwnd=OpenWindow("PanelGadget",10,10,500,500) : CenterWindow(hwnd)
PanelGadget(1,0,0)
For a As Integer=0 To 20
  Var b=Str(a)
  pan(a)=AddPanelGadgetItem(1,a,b)
Next
HideWindow(pan(0),0)
Do
  event=WaitEvent
  If event=EventRBDown Then ' click mouse in the client main window
     ? PanelGadgetGetCursel(1)
  EndIf
Loop Until event=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation