Gadget ›› GetGadgetText

GetGadgetText

構文

text = GetGadgetText(gadget, [option=1])

Function GetGadgetText(ByVal gadget As Long) As String

説明

ガジェットから、テキストを取得します。

TextGadget,StringGadget,ButtonGadget, EditorGadget,OptionGadget,CheckBoxGadget

オプション

gadget - ガジェット番号

option - バッファのテキストを調整するためのオプション。
デフォルトは（1）で、1024 文字を取得します。

1 1024
2 2048
3 4096
4 8192
5 16384
6 32768
7 66000

7 を超えて設定すると、100 000文字になります。

プラットホーム

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
        Print GetGadgetText(1)
      Case 2
        Print GetGadgetText(2)
    End Select
  EndIf

Loop

http://mneniya.ucoz.ru/