GetGadgetText

Синтаксис

Function GetGadgetText(ByVal gadget As Long) As String

Описание

Позволяет получать текст из гаджетов: TextGadget , StringGadget , ButtonGadget , EditorGadget , OptionGadget , CheckBoxGadget , SpinGadget , GroupGadget

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("",10,10,130,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
           Print GetGadgetText(1)
        Case 2
           Print GetGadgetText(2)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source