Класс MessageBox

Использование статического класса MessageBox похоже на использование функции MsgBox. Посмотрите на пример и справку.

If MessageBox.Show ("Do you want to exit?", _

"My Application", MessageBoxButtons.YesNo, MessageBoxIcon.Question)= _

DialogResult.Yes Then

Application.Exit

End If

Функция InputBox

Используется для ввода строк. В окне ввода выводится приглашение. Ожидается пока пользователь не введет некоторый текст и не нажмет кнопку. Возвращается введенная строка.

InputBox(prompt[, title] [, default] [, xpos] [, ypos])

Описание параметров:

Параметр	Описание
Prompt	Обязательный. Представляет строку сообщения, описывающую, что надо ввести. Максимальная длина – приблизительно1024 символа ( в зависимости от кегля). Если сообщение состоит из нескольких строк, необходимо в качестве разделителя вставлять строковую константу vbCrLf или (Chr(13) & Chr(10)) (перевод каретки и переход на новую строку). "Привет!" & vbCrLf & "Как вас зовут?"
Title	Необязательный. Строка заголовка окна сообщения. По умолчанию выводится имя приложения.
Default	Необязательный. Строка, которая появляется в окне в качестве ответа по умолчанию. Если параметр опущен, место ответа остается пустым.
Xpos	Необязательный. Расстояние в твипах левого края окна диалога от левого края экрана по горизонтали. Если параметр не указан, окно диалога центрируется по горизонтали.
Ypos	Необязательный. Расстояние в твипах верхнего края окна диалога от верхнего края экрана по горизонтали. Если парамерт не указан, окно диалога размещается на одной трети высоты экрана.

Пример

strID = InputBox("Введите ваше имя", "Регистрация клиента", "User", 100, 100)

Если нажать кнопку Отмена, то вернется пустая строка. Тогда можно присвоить значение по умолчанию.

If strID = "" Then strID = "User"

Задание №3

3.1 Добавить группу с заголовком "Задание №3".

3 .2 Кнопка Find All выводит в окно MsgBox все фамилии из комбинированного списка задания №2, которые начинаются с подстроки, введенной в правое текстовое поле.

Окно вывода должно быть таким, как на рисунке. Как побороть "хождение функции FindString по кругу"?

3 .3 Кнопка Remove вызовом функции InputBox запрашивает фамилию, которую надо удалить из списка задания №1.

Затем функция MsgBox выводит окно запроса подтверждения удаления имени. При нажатии кнопки Да, имя записывается в метку, расположенную справа от кнопки Remove. Кнопка Да должна быть кнопкой по умолчанию.

При нажатии кнопки Нет, обработчик прекращает работу и правая метка очищается.

Если в списке нет искомой строки, выводится соответствующее сообщение.

3.4 Закрытие формы не закрывает приложение. Для этого используется код

Application.Exit()

Кнопка Exit запрашивает подтверждение закрытия (вызов MessageBox.Show()).

Нажатие Да – закрывает приложение, Нет – прекращает работу обработчика.

3.5 Для того, чтобы закрытие формы вызывало закрытие приложения, надо изменить метод формы Finalize().

В окне кода формы выбрать в левом списке Form, а в правом - Finalize(). Дописать строчку Application.Exit()

3.6 Нажатие кнопки Next открывает форму Form2, но только в том случае, если введен пароль (в примере — 123). Сама Form1 при этом не закрывается.

Если введен неправильный пароль, то появляется предупреждение, что форма не будет открыта (MessageBox).

3 .7 Поместить на кнопки Exit и Next картинки. Для этого можно использовать как свойство Image, так и свойство BackgroundImage.

Для кнопки Exit назначить свойству Image файл btnexit3.gif, а ImageAlign – MiddleCenter. Не трогайте свойство ImageKey.

Для кнопки Next назначить свойству BackgroundImage файл btnnext3.gif. Попробовать разные значения свойства BackgroundImageLayout.

3.8 Форма Form2 имеет заголовок и BackgroundImage – image1.jpg.

Свойство BackgroundImageLayout имеет значение Center или Zoom.