' 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
Эта мини-программа только показывает использование окна сообщений (messagebox).
Вам нужно 1 клавишу управления (commandbutton) для запуска программы.
Код
PUBLIC SUB Button1_Click()
Message.Info("Hello ! How are you ?")
END
-- ReinerHoffmann - 31 Jan 2004