GetCountTabRebarGadget

Gadget ›› RebarGadget ››
Parent Previous Next

GetCountTabRebarGadget

Синтаксис

Function GetCountTabRebarGadget(ByVal gadget As Long) As Integer

Описание

Получает кол-во вкладок в RebarGadget

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("",10,10,300,300) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
RebarGadget(3)
AddRebarTab(3,2)
AddRebarTab(3,1)
? GetCountTabRebarGadget(3)
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

2

Created with the Personal Edition of HelpNDoc: Free EPub producer