' Gambas class file
PUBLIC SUB Button1_Click()
Message.Info("Hello, this is the Info Message", "OK")
END
PUBLIC SUB Button2_Click()
SELECT Message.Question("Hello, This is the Question Message!
Do you like it?", "yes", "no", "don't know")
'Select an expression to compare and execute the code enclosed in the corresponding
'matching CASE statement.
CASE 1
Label2.Text="fine"
CASE 2
Label2.Text = "That's a pitty!"
CASE 3
Label2.Text = "I'm sure you like it!"
END SELECT
END
This miniprogram just shows the use of a messagebox.
You need 1 commandbutton to get the program going.
The Code
PUBLIC SUB Button1_Click()
Message.Info("Hello ! How are you ?")
END
-- ReinerHoffmann - 31 Jan 2004