ТЕМА № 1. Печать из приложения на VB

Задание: разработайте приложение для печати справок студентам о том, что они действительно учатся в данном учебном заведении.

Ход работы:

1   Создайте новый проект и разместите элементы управления (txtФИО, cmbПол, cmbФакультет и метки для остального текста справки) на форме, как показано на рис. 47.

2   На первом этапе работы над этим приложением постараемся разработать интерфейс формы таким образом, чтобы пользователю было комфортно работать с приложением. Для этого, в первую очередь, занесите в комбинированные списки cmbПол и cmbФакультет следующие значения:

cmbПол – она, он;

cmbФакультет – гуманитарный, МИИП, АТМ и ...

3   Теперь для того, чтобы при загрузке формы в этих списках стояли первоначальные значения, в процедуре Load для формы необходимо их инициализировать следующим образом:

Private Sub Form_Load()

            cmbПол.ListIndex = 0

            cmbФакультет.ListIndex = 0

End Sub

4   Запрограммируйте кнопку Выход.

5   Запустите приложение и проверьте, насколько удобно стало вводить данные.

Рис. 47. Мастер справок готов!

6   Теперь опишем процедуру Печать, которая будет посылать на принтер строку текста в определенные координаты, т.е. у процедуры будет 3 аргумента: координаты X, Y и выводимый текст:

Private Sub Печать(x As Integer, y As Integer, Текст As String)

            Printer.CurrentX = x

            Printer.CurrentY = y

            Printer.Print Текст

End Sub

7   Настало время запрограммировать кнопку Печать:

Private Sub cmdПечать_Click()

            With Printer

                        .FontName = "Times New Roman Cyr"

                        .FontSize = 14

                        .FontItalic = True

                        .ScaleMode = vbCentimeters

                        Печать 9, 1, "Справка"

                        Печать 1, 2, "Дана " + txtФИО

                        Печать 1, 3, "в том, что " + cmbПол + " действительно _

обучается в Ростовском"

                        Печать 1, 4, "государственном университете путей сообщения"

                        Печать 1, 5, "на факультете " + cmbФакультет

                        .EndDoc

            End With

End Sub

8   Запустите приложение. Для того, чтобы его отладить, необходим подключенный к Вашему компьютеру или к локальной сети, в которой находятся Ваши компьютер и принтер. Подготовьте принтер к работе, введите в поля пробные данные и напечатайте справку.

Дополнительное задание

Добавьте к справке текстовое поле для ввода курса, на котором учится студент. Причем ввод данных в это поле реализуйте с помощью элемента управления UpDown. Измените соответственно процедуру печати справки. Сохраните приложение.

Контрольные задания

Расширить возможность выбора в приложении следующих значений:

1) вуз;

2) факультет;

3) место, куда предоставляется справка;

4) отделение;

5) размер выплачиваемой стипендии;

6) отметка о проживании в общежитии;

7) данные о семейном положении;

8) сведения о родителях;

9) данные об общественной нагрузке;

10) сохраните все данные в базе данных и реализуйте функцию поиска и печати справки для конкретного студента.

Вопросы для самоконтроля

1   С помощью какого объекта можно получить доступ к принтеру из VB?

2   С помощью какого метода объекта Printer можно напечатать какую-нибудь строку?

3   Какой метод объекта Printer заканчивает формирование печатаемой страницы?

4   На каком расстоянии от начала страницы напечатается слово Привет! после выполнения следующей процедуры:

Private Sub cmdПечать_Click()

            With Printer

                        .ScaleMode = vbInches

                        .CurrentX = 2.5

                        .CurrentY = 1

            End With

            Printer.Print «Привет!»

End Sub

5   С помощью какого свойства объекта Printer можно изменить шрифт печатаемого текста?

Скачано с www.znanio.ru