Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

GUI_Test (Buttons, TextControls)

Uploader:MitgliedLothar Schirm
Datum/Zeit:17.01.2015 16:41:09
Hinweis: Dieser Quelltext ist Bestandteil des Projekts Simple GUI, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

'GUI_Test.bas
'Test program for GUI.bas (textboxes and buttons)
'Jan 16, 2015

#Include "GUI.bas"

Dim Shared As Button Button_Add, Button_Close
Dim Shared As TextBox Text_a, Text_b, Text_result


Sub CreateWindow()
'Create Window

    OpenWindow                                      (250, 200, "Add two numbers")
    Var Label_a = Label_New             (20, 20, 60, 20, "a:")
    Var Label_b = Label_New             (20, 50, 60, 20, "b:")
    Button_Add = Button_New             (120, 80, 60, 20, "Add")
    Var Label_result = Label_New    (20, 110, 60, 20, "a + b:")
    Text_a = TextBox_New                    (80, 20, 100, 20, "0")
    Text_b = TextBox_New                    (80, 50, 100, 20, "0")
    Text_result = TextBox_New           (80, 110, 100, 20, "0")
    Button_Close = Button_New           (180, 170, 60, 20, "Close")

End Sub


Sub Add()
'Get a and b from textboxes, display a + b:

    Dim As Single a, b, result

    a = Val(TextBox_GetText(Text_a))
    b = Val(TextBox_GetText(Text_b))
    result = a + b
    TextBox_SetText(Text_result, Str(result))

End Sub


'Main:

CreateWindow()

Do
    If TextBox_Event(Text_a) Then TextBox_Edit(Text_a)
    If TextBox_Event(Text_b) Then TextBox_Edit(Text_b)
    If TextBox_Event(Text_result) Then TextBox_Edit(Text_result, 1) 'ReadOnly
    If Button_Event(Button_Add) Then Add()
Loop Until Button_Event(Button_Close) Or Window_Event_Close

End