1 2 InputBox(Приглашение$, Заголовок$,[ПоУмолчанию]) - презентация

1 1

2 2 InputBox(Приглашение$, Заголовок$,[ПоУмолчанию])

3 3

4 4

5 5 DIM a AS String DIM b AS Byte a = InputBox("Введите ваше имя и фамилию:", "Регистрация") Label1.Text = "Уважаемый(ая) " & a & " Вы готовы к проверке знаний? " & " Конец регистрации "

6 6 DIM a AS String DIM b AS String a = InputBox("Введите ваше имя и фамилию:", "Регистрация") Label1.Text = "Уважаемый(ая) " & a & " Вы готовы к проверке знаний? " & " Конец регистрации " Message.Info("Уважаемый(ая) " & a & " Вы готовы к проверке знаний? " & " Конец регистрации", " Окей!") END PUBLIC SUB Button2_Click() ME.Close END

7 7 Класс message STATIC FUNCTION Message ( Текст_Сообщения AS String [, Текст_Кнопки AS String ] ) AS Integer

8 8 Каждое окно сообщения может иметь до трех кнопок. Первая кнопка обычно – по умолчанию. Последняя кнопка по умолчанию отменяет диалог. Закрытие окна Messagebox возвращает индекс нажатой кнопки.

9 9

10 10 PUBLIC SUB btnInfo_Click() 'Пример сообщения Info DIM $PictureWidth AS String 'Ширина картинки DIM $MessageText AS String 'текст сообщения $PictureWidth = picObject.Width '$PictureWidth = ширина картинки $MessageText = "Ширина картинки - " & $PictureWidth Message.Info($MessageText, "Окей!") 'выводим сообщение и обзываем кнопку END

11 11 Delete Эта функция Gambas предназначена для вывода сообщения об удалении чего- нибудь. Шаблон вызова :

12 12 PUBLIC SUB btnDelete_Click() 'Сообщение Удалние SELECT Message.Delete("Удалить картинку с формы проекта Gambas?", "Да!", "нет", "не знаю") CASE 1 picObject.Delete 'Удаляем картинку с формы ' Обратите внимание, CASE 2 и 3 нет. Просто это та же отмена. END SELECT CATCH 'Обработка ошибок Message.Info("Нету такой картинки! =(") END

13 13 Error Функция призвана выводить сообщение об ошибке. Умеет показывать на форме сообщения до трех кнопок. вот шаблон вызова этой функции в Gambas: STATIC FUNCTION Error ( Текст_Сообщения AS String [, Кнопка1 AS String, Кнопка2 AS String, Кнопка3 AS String ] ) AS Integer

14 14 PUBLIC SUB btnError_Click() 'Сообщение об ошибке. Message.Error("ошибка в программе. Сейчас будет синий экран") END

15 15 question Выводит Message Box с вопросом. Возвращает индекс кнопки. Максимальное кол-во кнопок – 3. данетНе знаю

16 16 STATIC FUNCTION Question ( Текст_Сообщения AS String [, Кнопка1 AS String, Кнопка2 AS String, Кнопка3 AS String ] ) AS Integer

17 17 PUBLIC SUB btnQuestion_Click() 'Сообщение как вопрос. SELECT Message.Question("Gambas?", "да", "Нет", "не знаю") CASE 1 ' обработка выбора "да" Message.Info("Здесь обрабатываем нажатие 'да") CASE 2 Message.Info("Здесь обрабатываем нажатие 'Нет'") CASE 3 Message.Info("Здесь обрабатываем нажатие 'не знаю'") END SELECT END

18 18 Warning Выводит сообщение типа «ВНИМАНИЕ!!!», и призванно привлечь внимание пользователя, например, к совершаемому в данный момент действию.

19 19 STATIC FUNCTION Warning ( Message AS String [, Button1 AS String, Button2 AS String, Button3 AS String ] ) AS Integer PUBLIC SUB btnInfo5_Click() Message.Warning("ВНИМАНИЕ!!! В Gambas это работает как и все остальные...") END