Виправлення помилки

Після того, як помилка буде знайдена, її необхідно виправити. У нашому прикладі це робиться так:

1. Завершіть роботу програми, якщо ви не зробили цього раніше.

2. У вікні програми заміните оператор

Dim x As Integer

у процедурі події Click на наступний:

Dim x As Long

3. Знову Запустіть програму (Run > Start).

Цього разу програма працює нормально, тому що довге ціле може зберігати набагато більші числа, чим просте ціле. Зверніть увагу на правильність синтаксису. Visual Basic пізнає усі команди під час редагування і не дозволяє запускати програми з синтаксичними помилками. Такі помилки виправляються найпростіше. На жаль, багато помилок викликано неправильним вибором типу або невірними обчисленнями. Значення підозрілих змінних можна простежити у вікні безпосередніх обчислень.

Ви повинні уміти відналагоджувати свої програми, а метод Print - зручний засіб для перевірки змінних під час виконання додатка. Він застосовується не лише при відладці, але і в інших випадках, наприклад при створенні простих звітів. Перш ніж переходити до виведення даних, ми розглянемо ще одну можливість - Друкування поточної форми методом PrintForm.

Метод PrintForm

Метод PrintForm виводить поточну форму (якщо не була явно задана інша форма) на принтер, встановлений за умовчанням. При цьому Друкуванняується копія поточної форми з точністю до пікселя. Цей метод добре підходить для створення простих екранних копій.

Якщо додати оператор Me. PrintForm в процедуру Form_Click попереднього прикладу, зображення форми буде наДрукуванняовано на принтері перед тим, як у вікні безпосередніх обчислень з'явиться повідомлення про помилку. Щоб наДрукуванняувати іншу форму замість поточної, скористайтеся оператором наступного виду:

frmReport.PrintForm

У цьому прикладі Visual Basic наДрукуванняує вміст форми frmReport. Замість неї можна вказати frmSplash, frmMain, frmAbout або будь-яку іншу форму вашого проекту.

Колекція Printers

Серед безлічі інших корисних колекцій в Visual Basic існує колекція Printers. B їй міститься список об'єктів-принтерів, зареєстрованих у вашій системі. Звернувшись до колекції з відповідним запитом, можна змінити принтер, вибраний для додатка за умовчанням, вивести що-небудь на Друкування і знову повернутися до стандартного принтера.

З наступного прикладу видно, як працювати з колекцією і дізнатися, які принтери встановлені у вашій системі:

1. Створіть новий проект поєднанням клавіш Ctrl+N.

2. Виберіть значок стандартного ЕХЕ-файлу (Standard EXE) в діалоговому вікні New Project.

3. Вкажіть ім'я проекту - PrintersCollection.

4. Задайте властивості Name форми Form1 значення frmMain, a властивості Caption - значення «Список принтерів».

5. Клацніть правою кнопкою миші на панелі елементів і виберіть в контекстному меню команду Components.

6. У діалоговому вікні Components Встановіть прапорець поряд з рядком Microsoft Windows Common Controls 6.0. Закрийте діалогове вікно кнопкою ОК.

7. Створіть на frmMain табличний список. Задайте його властивості Name значення lvwPrinters.

8. Двічі клацніть на формі frmMain, щоб відкрити вікно програми.

9. Вставте в процедуру події Resize наступний фрагмент:

Private Sub Form_Resize()

‘ Розтягнути табличний список

lvwPrinters.Move 0, 0, ScaleWidth, ScaleHeight

End Sub

10. Вставте в процедуру події Load наступний фрагмент:

Private Sub Form_Load()

Dim p As Printer

Dim x As ListItem

‘ Перемкнути табличний список в режим таблиці

With lvwPrinters

..View = lvwReport

..ColumnHeaders.Add,, "Принтер"

..ColumnHeaders.Add 2,, "Драйвер"

..ColumnHeaders.Add 3,, "Порт"

End With

‘ Вивести список принтерів в системі

For Each p In Printers

With p

Set x = lvwPrinters.ListItems.Add(DeviceName)

x.SubItems(1) =.DriverName

x.SubItems(2) =.Port

End With

Next

End Sub

11. Збережете і Запустіть проект.

Якщо у вашій системі встановлені які-небудь принтери, у вікні з'являється список (мал. 9.2).