SetGadgetText

Gadget ››
Parent Previous Next

SetGadgetText

Синтаксис

Sub SetGadgetText(ByVal gadget As long, ByRef Text As string)

Описание

Позволяет установить текст в гаджеты: TextGadget , StringGadget , ButtonGadget , EditorGadget , OptionGadget , CheckBoxGadget , SpinGadget , GroupGadget , StatusBarGadget(не разделенный на колонки)

Параметры

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

Text - любой текст

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("",10,10,100,100)
ButtonGadget(1,10,10,100,20,"buttongadget")
TextGadget(2,10,40,100,20,"textgadget")
Do
  event=WaitEvent()
  If event= eventclose Then End
  If event=eventgadget Then
     Select Case eventnumber
        Case 1
           SetGadgetText(1,"textgadget")
        Case 2
           SetGadgetText(2,"buttongadget")
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation