Тема 4. Метод Print и стандартные окна сообщений

Практическая работа № 4.1

Visual Basic 6.0 позволяет вывести текстовую информацию в рабочую область формы или в зону объекта PictureBox методом PRINT, синтаксис которого в общем виде выглядит следующим образом: name _{формы или PictureBox} .print <список вывода>. В списке вывода может быть произвольное количество констант, переменных и выражений, разделенных, или;. При выводе в форму каждое обращение к методу PRINT начинает вывод данных с координат, определяемых значениями свойств CurrentX и CurrentY формы.

Эти свойства недоступны при проектировании, начальные значения их нулевые (верхний левый угол), но им можно придать нужные значения в тексте программы. Единица измерения этих свойств задается свойством ScaleMode формы. Метод PRINT выводит данные шрифтом и цветом, установленными свойствами ForeColor (цвет) и Font (шрифт) формы. Т.к. положение каждого объекта в форме определяется значением свойств top и left, то эти значения можно использовать для привязки координат вывода информации к этому объекту. Если часть данных при выводе не умещается в форму, то они пропадают без возможности восстановления. Для удаления данных из формы существует метод Cls, синтаксискоторогов общем виде записывается следующим образом:

name _{формы или PictureBox} .Cls

1. Открыть новый проект. Внешний вид формы показан на рис. 22. Установить для формы свойства: Scale mode = 2 Point, ForeColor – зелёный, Font – Comic Sans, 12, жирный курсив, name – example4_1. Установить в форме объекты согласно рис. 22, свойства name указаны рядом с объектами. Для рисования линий на форме воспользоваться объектом линия –Line из набора инструментов general.

2. Записать самостоятельно программный код для кнопки закрыть.

3. Записать программный код для текстовых полей, обеспечивающий их очистку для ввода последующих данных при щелчке мыши по ним, для этого нужно 2-ды щелкнуть по текстовому полю в форме, затем изменить событие в правом списке в окне редактора кодов с change на click. Записать для текстового поля следующий программный код:

nachkod.Text=””

Аналогичным образом записать программный код для второго тестового поля.

4. Встроенная функция CHR$ позволяет получить (увидеть) символ по номеру его кода. Записать следующий программный код для кнопки ОК:

Dim i As Integer

example4_1.Cls

example4_1.CurrentY=kod.Top+30

For i = 1 To Val(kolkod.Text)

example4_1.CurrentX=kod.Left

Dim intvar As Integer

intvar=Val(nachkod.Text)+i-1

example4_1.Print intvar;

example4_1.CurrentX=simvol.Left

example4_1.Print Chr$(intvar)

Next i

5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму с именами lab4_1 или example4_1 соответствующими командами из меню file.

Практическая работа № 4.2

Visual Basic 6.0 позволяет вывести стандартные окна сообщений на экран в нужном месте программы. Окна могут содержать пиктограмму, заголовок и текст сообщения, а также кнопки: ОКYESNO CANCEL RETRY. Описание вывода окна сообщения на экран выглядит следующим образом: MsgBox «текст сообщения», код пиктограммы, «заголовок» или Msgbox «текст сообщения», код вида ошибки, «текст заголовка», где код вида ошибки – есть сумма значений кодов, определяемых набором кнопок и пиктограммой. Если заголовок не указан, то выводится стандартный системный заголовок (как правило, соответствующий имени проекта). Коды пиктограмм: см. рис. 23. Коды наборов кнопок указаны в таблице 1.

Для обеспечения диалога с пользователем существуют функции, которые возвращают целое число, соответствующее любой нажатой из имеющихся в окне кнопок (см. таб. 2).

Табл. 1

Набор кнопок	OK	OK+ CANCEL	YES+NO+ CANCEL	YES +NO
Код

Табл. 2

Нажатая кнопка	OK	CANCEL	YES	NO
Возвращаемое значение

1. Загрузить проект, созданный в работе № 4.1.

2. Предусмотреть в программе вывод стандартного окна сообщения в том случае, если пользователем не введен начальный код. Окно сообщения должно содержать пиктограмму Ä «перекрестье» и кнопки YES и NO. В этом случае код вида ошибки будет равен 20 – сумма значений набора кнопок (4) и пиктограммы (16). Для этого в процедуре для кнопки ОК после строки Form1.Cls добавить следующий программный код:

If Val(nachkod.text)=0 Then

MsgBox "Введите начальный код!", 20, "Ошибка!"

Exit Sub

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму с именами lab4_2 или example4_2 соответствующими командами из меню file.

Практическая работа № 4.3

Visual Basic 6.0 позволяет вывести стандартное окно InputBox на экран для ввода исходных данных в нужном месте программы. Окно содержит заголовок, текст сообщения и текстовое поле для ввода данных.

1. Загрузить проект, созданный в работе № 4.1 или № 4.2. Изменить форму согласно рис. 24. Задать свойство name формы – example4_3.

2. Предусмотреть в программе вывод окон InputBox для ввода начального кода и количества кодов. Для этого удалить из программного кода для кнопки ОК все строки, ввести новый программный код: