DeleteTabRebarGadget

Синтаксис

sub DeleteTabRebarGadget(ByVal gadget As long, ByVal Index As long)

Описание

Удаляет вкладку указанную в параметре index

Параметры

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

Index - индекс удаляемой вкладки (отсчет от нуля)

Платформы

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,90,100,100,20,"Delete 0 index")
RebarGadget(3)
AddRebarTab(3,2,5,"44",0)
AddRebarTab(3,1,6,"55",1)
AddRebarTab(3,4,7,"66",2)
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=EventGadget Then
     Select Case EventNumber
        Case 5
           DeleteTabRebarGadget(3,0)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator