IDinIndexRebarGadget

Синтаксис

Function IDinIndexRebarGadget(ByVal gadget As Long, ByVal ID As Integer) As integer

Описание

Получает индекс вкладки по его ID. Эта функция будет работать только если при добавлении вкладок с помощью функции AddRebarGadget в параметре IDinNumber указан идентификатор!

Параметры

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

ID - идентификатор, присвоенный при добавлении вкладки с помощью AddRebarGadget

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Hello",10,10,300,200) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
StringGadget(4,10,10,100,20,"String")
ButtonGadget(5,20,100,200,20,"Get index tab with ID = 8")
RebarGadget(3)
AddRebarTab(3,2,6,"44",0)
AddRebarTab(3,1,7,"55",1)
AddRebarTab(3,4,8,"66",2)
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=EventGadget Then
     Select Case EventNumber
        Case 5
           ? IDinIndexRebarGadget(3,8)
     End Select
  EndIf
Loop

Результат

2

Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents