Gadget ›› SetGadgetText

SetGadgetText

構文

SetGadgetText(gadget, text)

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

説明

ガジェット内のテキストを設定できます

TextGadget,StringGadget,ButtonGadget, EditorGadget,OptionGadget,CheckBoxGadget

オプション

gadget - ガジェット番号

Text - 任意のテキスト

プラットホーム

Windows , Linux

例:

#Include "window9.bi"
Dim As Integer cal,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

http://mneniya.ucoz.ru/