' 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