MoveTabRebarGadget

Синтаксис

Function MoveTabRebarGadget(ByVal gadget As Long, ByVal IndexMove As Integer, byval IndexNew as Integer) As integer

Описание

Перемещает вкладку indexMove в положение по индексу IndexNew. Остальные вкладки попросту сдвигаются.

Параметры

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

IndexMove - индекс перемещаемой вкладки (отсчет от нуля)

IndexNew - новый индекс для перемещаемой вкладки

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Hello",10,10,300,300) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
StringGadget(4,10,10,100,20,"String")
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
     If EventNumber=2 Then  ' click Button
        MoveTabRebarGadget(3,0,2)
     endif
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EBooks