The New Button Program

This program creates 2 new buttons on a form. The buttons are created just by code and do not come out of the toolbox. Alike this method you can define any other control.

You need just an empty form to get the program going.

The Code:

    STATIC PUBLIC SUB Main()
    DIM hForm AS Fmain
    hForm = NEW Fmain
    hForm.show
    END

    ' Gambas class file

    b AS Button
    b1 AS Button
    t AS Textbox

    PUBLIC SUB _New()
    b = NEW Button(ME) AS "MyButton"
    b.show
    b.Caption = "Show"
    t = NEW TextBox (ME) AS "Text"
    t.x = 200
    t.y = 200
    t.Height =100
    t.Width = 200
    t.show
    b1 = NEW Button(ME) AS "End"
    b1.Caption = "End"
    b1.x = 100
    b1.y = 100
    b1.show
    END

    PUBLIC PROCEDURE MyButton_Click()
    t.text = "My button was hit !"
    END

    PUBLIC PROCEDURE End_Click()
    ME.Close
    END

An even simpler version of the program.

    ' Gambas class file
    ' der Button wird erst im Programmablauf neu erstellt.

    b AS Button
    PUBLIC SUB _New()
    b = NEW Button(ME) AS "Button1"
    b.show
    b.Caption = "Ende"
    END

    PUBLIC PROCEDURE Button1_Click()
      ME.Close
    END

-- ReinerHoffmann - 18 Sep 2004