SetTextRebarGadget

Синтаксис

sub SetTextRebarGadget(ByVal gadget As Long, ByVal index As Integer, ByVal text As String)

Описание

Устанавливает текст во вкладке RebarGadget под нужным индексом

Параметры

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

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

text - новая строка текста

Платформы

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")
StringGadget(4,10,10,100,20,"Button")
RebarGadget(3)
AddRebarTab(3,2,5,"44",0)
AddRebarTab(3,1,6,"55",1)
AddRebarTab(3,4,7,"66",2)
SetTextRebarGadget(3,2,"7")
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator