Microsoft Small Basic

Program Listing: MDL536
' SmallBasic Version 1.0
' Funktion:
' Autor:
' Herkunft:
' Import:
' ImportURL: http://smallbasic.com/program/?
' Extension:
' Kommentar:
' --------------------------------------------------------------------------------
' Read out Textbox

TBoxName = Controls.AddTextBox(20,20)
Button = Controls.AddButton("Auslesen",200,16)

Controls.ButtonClicked = ButtonClick

Sub ButtonClick ' Auslesen per Button
If Controls.LastClickedButton = Button Then
TBText = Controls.GetTextBoxText(TBoxName)
TextWindow.WriteLine(TBText)
EndIf
EndSub

' -----------------------------------------------------------
' -----------------------------------------------------------
' ' Alternativ oder zum Testen einfach dazu aktivieren, also das nächste ' weg

'Controls.TextTyped = OnTextInput

Sub OnTextInput ' Auslesen aus der Textbox direkt
If Controls.LastTypedTextBox = TBoxName Then
TBText = Controls.GetTextBoxText(TBoxName)
TextWindow.WriteLine(TBText)
EndIf
EndSub