fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

GUI_Test (Buttons, TextControls)

Uploader:	Lothar 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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.