Part One 56 страница

Дата добавления: 2015-08-30; просмотров: 497

1 Создайте новый проект. Присвойте ему имя «Диалоговые окна».

2 Форме проекта присвойте имя Frm1FO. В заголовке Caption введите текст «Диалоговые функция и оператор»

3 Щелкните два раза по форме и программном окне формы запишите следующий код:

Private Sub Form_Load()

Dim result as single

‘Диалоговая функция

Result = MsgBox("Это окно сообщений(функция)")

‘ Диалоговый оператор

MsgBox("Это окно сообщений(оператор)")

End Sub

3 Запустите приложение. На экране монитора появится форма с сообщением Рис 1.

· Автоматически в окно будет добавлена кнопка «Ok».

· Окно с сообщением появляется точно по центру экрана.

4 Нажмите кнопку Ok. На экране появится сообщение, но от оператора. Обратите внимание на то, что сообщение идет под заголовком проекта, а не формы, где оно создано.

5 Нажмите кнопку. На экране появится форма. Завершите работу приложения, нажав кнопку закрытия окна. Сохраните форму.

Размещение текста в окнах сообщений.

Текст в окне сообщений можно запрограммировать. Текст может быть любой длины. Текст автоматически будет размещаться в несколько строк в зависимости от ширины окна сообщений. Если формат размещения текста Вас не устраивает, то в нужных местах необходимо вручную установить символ перехода на новую строку с помощью функции Chr$(10).

Chr$() – это функция VB, которая в качестве результата возвращает символ, соответствующий указанному ASCII- коду. Например, ASCII - код 10 соответствует коду перехода на другую строку, ASCII – код 13 –символ возврата каретки.