PanelGadgetSetCursel

Синтаксис

sub PanelGadgetSetCursel(ByVal gadget As Long, ByVal item As Long)

Описание

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

Параметры

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

item - индекс вкладки(начинаются с нуля)

Платформы

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
     PanelGadgetSetCursel(1,10)
  EndIf
Loop Until event=EventClose

Результат

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