GetTextRebarGadget

Синтаксис

Function GetTextRebarGadget(ByVal gadget As Long, ByVal index As Long) As String

Описание

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

Параметры

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

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

Платформы

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)
? GetTextRebarGadget(3,2)
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=EventGadget Then
  EndIf
Loop

Результат

66

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator