Шаг №1 - Постановка задачи

С помощью этой программы Вы научитесь работать с полем ввода текста, с панелями сообщений (MessageBox), а также научитесь распечатывать форму со всей информацией, расположенной на этой форме. Но самое главное - я раскажу Вам, какие преимущества даст использование массивов элементов в ваших программах. При выполнении программы Вы сможете ввести в соответствующие поля нужную информацию, а затем распечатать ее на принтере. Из-за удивительной простоты кода, распечатывание будет проводиться самым простым образом: форма, сохраняя все свои параметры (цвет, размер, помещенные на ней элементы и т.д.) будет вырисовываться в верхнем левом углу листа. Кстати, программа будет работать только с той машиной, на которой установлен принтер... Так что, перед использованием программы советую включить/подсоединить/проинсталлировать принтер, если таковой имеется...

Шаг №2 - визуальная реализация программы.

В этом разделе будут описаны элементы, помещаемые на форму с теми свойствами, которые требуют своего изменения. Для избежания непредвиденных ошибок, просьба указывать свойства так же, как это сделал автор. Итак, поехали...

Форма
Name = frmPrint
Caption = Information for printing
BorderStyle = Fixed Single
MaxButton = False
MinButton = True

Кнопка #1
Name = cmdPrint
Caption = Print
Default = True

Свойство Default = True указывает, что программный код кнопки будет исполняться при нажатии Enter'а.

Кнопка #2
Name = cmdExit
Caption = Exit
Cancel = True

Свойство Cancel = True указывает, что программный код кнопки будет исполняться при нажатии Escape'а.

Тут необходимо кое-что пояснить. При выполнении следующего действия программа скажет, что элемент с таким именем уже существует, и спросит, хотите ли Вы создать массив элементов. Ответьте "Да". Итак, поместите на форму элемент TextBox со следующими свойствами:

Name = txtInform
Text = <пустой>

Затем, поместите на форму еще 6 (шесть) текстбоксов с таким же именем (может просто скопировать первый и вставлять их на форму). Затем рядом с каждым текстовым полем поместите Label'ы с названиями, объясняющими назначения полей ввода: First name, Last name, Nick, Date of birth, E-mail, Phone.

На этом этап визуальной разработки Вашего приложения закончен. Теперь ваша форма должна выглядеть примерно вот так:

 

Шаг №3 - Программирование в коде

Ну вот. Теперь можно переходить к наисанию кода. Как я уже говорил, код программы будет несложнным. Вообще есть программы с простейшей визуальной реализацией и очень запутанным кодом, а наша программа, наоборот, заставила Вас повозиться с установкой на форме различных элементов, но зато код ее будет элементарным. Во-первых, в коде кнопки выхода напишите команду выхода из программы. Но это мы сделаем интереснее, используя панели сообщения (Message Box). Итак, пишите:

If MsgBox("Do you really wanna leave us?", vbYesNo + vbQuestion, "Exit?") = vbYes Then
End
End If

В данном случае, при нажатии кнопки выхода появится панель с вопросом, хотите ли вы выйти, и двумя кнопками: "Да" и "Нет". Подробно об использовании MessageBox я рассказывать не буду - всю информацию можно найти в хелпе.

Теперь давайте напишем код для кнопки "Print". Ключевые моменты я выделил синим цветом.

'b - индекс поля ввода
'Проверяем все поля с индексом
'от 0 до 5
For b = 0 To 5
'Если какое-то поле пустое
If txtInform(b).Text = "" Then
'Выдаем сообщение
'Если ответ - Да, то иди к метке 1
If MsgBox("One of the fields is clear. Continue?", vbQuestion + vbYesNo, "Printing") = vbYes Then
GoTo 1
'Если ответ - Нет, то иди к метке 2
Else
GoTo 2
End If
End If
Next
'Метка 1
1
frmPrint.PrintForm
Exit Sub
'Метка 2
2
MsgBox "Please, fill the fields."
Exit Sub

Шаг №4 - Подведение итогов

В принципе, все действия объяснены в комментариях. Но кое-что стоит объяснить.
Во-первых, индекс элементов в массиве начинается с нуля. Это надо запомнить, потому что понять это невозможно. Это - ошибка многих, только начавших работать с массивами элементов.
Во-вторых, мы не случайно использовали метки. Дело в том, что при использовании такого цикла, действие будет повторяться столько раз, сколько раз выполняется условие. Т.е. в нашем случае, если Вы не заполнили несколько полей, то программа выдаст Вам несколько сообщений подряд. Но нам-то нужно только одно сообщение! Поэтому мы прерываем процедуру с помощью ссылки на метку. В принципе, это можно было сразу делать с помощью команды Exit Sub (выйти из процедуры), но мне хотелось показать еще и работу с метками.
Кстати, мы использовали эту команду для того, чтобы разделить две метки: первую и вторую, а иначе вторая метка принадлежала бы первой.

На этом и второй этап создания программы завершен. Вы можете откомпилировать Вашу программу и посмотреть ее в действии.
Эту программу можно значительно усовершенствовать, добавив другие поля ввода. Для большей красоты отпечатанной формы ее размеры можно увеличить, а шрифт я настоятельно рекомендую сделать побольше.

Прим. Редактора.: Если у вас что - то не работает, можете посмотреть исходники.