Основы Visual Basic 5.0

Основы Visual Basic 5.0
В приложениях VB 5.0 исполняемые строки должны размещаться внутри процедур либо
функций. Операторы в VB редко используют номера строк, а любые из них обычно
начинаются с новой строки. Строки ограничены длиной в 1023 символа. можно
расширять строки, используя символ “_” после пробела в конце строки. Несколько
операторов можно объединять в одной строке, разделяя их “ : ”.
Комментарии задаются верхней кавычкой (‘), либо оператором REM. Комментарий
может быть выведен отдельной строкой, либо в конце строки. Во втором случае
лучше использовать кавычку (‘), чем REM, т.к. REM здесь требует разделителя (:).
Например,
DIM FARENG ‘ переменная для вычисления t0 по Фаренгейту
или
DIM FARENG : REM переменная для вычисления t0 по Фаренгейту
Оператор End - программа останавливается. После оператора End закрываются все
окна, открытые программой, а сама она стирается из памяти. Внутри приложения VB
может быть сколько угодно операторов End, но обычно лучше использовать только
один оператор End в процедуре обработки событий QueryUnload для основной формы.
В этом случае все операторы End заменяются на Unload Me, который вызывает себе
QueryUnload для формы.
Одним из основных операторов является присваивание значения переменным и
установка значений свойств.
Например,
1) Result = 0.5 ? 20
имя значение
переменной
Можно использовать оператор LET
2) объект.свойство = значение
txtDisplay.Text = “ “
Свойства по умолчанию
У любого объекта VB есть свойство по умолчанию. Например, для текстового поля
это свойство Text. При ссылке на данное свойство можно не указывать его имя.
Например, txtDisplay=“Привет!”
Некоторые свойства могут принимать значения TRUE или FALSE. В VB5 имеются
встроенные константы для обозначения данных свойств, например, cmdExit=False
будет скрывать командную кнопку, пока не появится выражение cmdExit=True.
Внутри себя VB использует значение 0 для False и -1 для True (или любое
ненулевое значение).
Можно использовать следующее выражение для изменения свойства на противоположное
cmdExit.Visible = Not (cmdExit.Visible).
Переменные. Имена переменных менее 255 символов начинаются с буквы, за которой
следуют другие буквы, цифры или символ “_”. Регистр значения не имеет. В
качестве имен переменных нельзя использовать зарезервированные слова, например,
Print. Принято использовать смешанный регистр при задании имен переменных,
состоящих из нескольких слов, например, CurrentValue.
Типы переменных. Используется 14 стандартных типов переменных. Можно определить
и собственный тип. Основные типы:
String - строковые переменные. Для обозначения этого типа можно добавить символ
“$” к концу имени.
Например, Message $ = txtDisplay.Text
Integer - целочисленная переменная в диапазоне -32768 ?+32767. Для обозначения в
конце имени добавляется “%” арифметический оператор выполняется быстро.
Например, IntVar% =5
LongInteger - длинное целое от -2147483648 до +2147483647. Обозначается “&”.
LongInt&= 123456789.
SinglePrecision хранит дробные числа с точностью до 7 цифр. Для на чисел может
достигать 38 знаков с обозначением “!”. Вычисления ч данными переменными будет
приблизительным.
DoublePrecision “#”. Числа с точностью до 16 цифр и длиной до 300 символов.
Вычисления тоже приблизительны, а скорость небольшая. Используется для научных
расчетов.
Currency - используется при преобразовании десятичных чисел в двоичную форму и
наоборот. Обозначение - “@”. Может иметь до 14 цифр до запятой и до 4 цифр -
после. Используется для финансовых расчетов.
Date - значения даты и времени от 00 час.1 января.100 года до 00час.31
декабря.9999 г. Значение обозначается “#”.
Time = # May 5, 1999 #
Byte - для хранения целых чисел от 0 до 255. Экономит оперативную память и
размеры массивов. Используется также при работе с двоичными файлами.
Variant - данные любого типа. Если VB не знает тип принимаемых данных,
используется этот тип. Использование его замедляет работу программ, т.к. требует
времени и ресурсы для операций преобразования типов.
В отличие от других версий Basic в одной программе нельзя использовать одни и те
же имена переменных, отличающихся только типом. Например, A% и А!
При первом использовании переменной VB временно присваивает переменной тип
Variant и пустое значение. Это значение исчезает в тот момент, когда переменной
присваивается реальное. Любой тип данных имеет свое “пустое” значение. Для
String это строка нулевой длины “ “. Для численных переменных это 0.
Можно не использовать идентификаторы для обозначения типа переменной, а
использовать оператор Dim. Оператор Dim служит для объявления типов переменных.
Dim Years As Integer
Dim Amount As Currency
. . . .
Объявления можно комбинировать в одной строке.
Dim Years As Integer, Amount As Currency
Dim Result без типа присваивает переменной тип Variant.
Если в программе используются необъявленные переменные, легко допустить ошибку
при написании их имени. В этом случае используется принудительное объявление
переменных с помощью оператора Option Explicit. Этот оператор не используется в
конкретных процедурах обработки событий, а размещается в разделе General формы,
чтобы быть доступным всем процедурам обработки событий. После того, как VB
встречает оператор Option Explicit, он не позволяет более использовать
необъявленные переменные. Этот оператор можно использовать для изменения
значений по умолчанию.
Область видимости переменных
В программах VB5 все переменные изолированы внутри процедур. То есть переменная
Result в одной процедуре не влияет на значение переменной с тем же именем в
другой процедуре. То есть переменные являются локальными по отношению к
процедурам, если не указано иначе.
Иногда необходимо, чтобы какая-то переменная была доступнавсем процедурам формы.
Такие переменные называют переменными уровня формы или модуля. Переменные уровня
формы также объявляются в разделе General с помощью операторов Private или Dim.
В больших проектах, в которых процедуры и формы хранятся в отдельных модулях, а
не подключаются к форме, можно объявить глобальную переменную, доступную в любой
части проекта.
Это делается в разделе Declarations любого модуля кода:
Public Amount As Single
или Global Amount As Single
Когда VB вызывает процедуру обработки события, старые значения локальных
переменных уничтожаются. Они принимают значения по умолчанию. Такие переменные
называются динамическими. Но в некоторых случаях необходимы статические
переменные, которые не инициализируются повторно при вызове процедуры. Часто
такие переменные используются для счетчиков, их используют, чтобы сделать
элементы управления видимыми или невидимыми. Чтобы объявить статическую
переменную внутри процедуры необходим оператор Dim заменить на Static.
Static Amount As Single, Is_Visible As Boolean.
Если необходимо, чтобы все переменные в процедуре были статическими, необходимо
добавить
Static Private Sub cmdLom_Click()
Строки
Операция конкатенации для сложения нескольких строк + или &
Например, A$ = “Иванов”
B$ = “Иван”
C$ = “Иванович”
D$ = A$ & B$ & C$
или D$ = A$ + B$ + C$
Отличие. С помощью “&” можно объединять строковые и другие типы. Например, C =
A% & B$, изменится их тип на Variant.
Для перехода к новой строке при печати символов (перевод каретки) используется
встроенная const VbCrLf. Например, чтобы разорвать строку в информационной
панели или в многостроковом текстовом поле можно
Message $ = “1-я строка”
Message $ = Message $+VbCrLf + “2-я строка”
MsgBox Message $
Замечание. Если в программе используются числа и они не присваиваются переменной
Variant, то VB полагает:
Если число не имеет десятичной точки и лежит в диапазоне от -327686 +32767, то
это Integer.
Если не имеет десятичной точки и лежит в диапазоне для Long Integer, то это Long
Int.
Если имеет десятичную точку и лежит в диапазоне для чисел с обычной точностью (7
цифр), то это Single precision.
Если имеет десятичную точку, но лежит вне диапазона, то это Double precision.
Такие приблизительные расчеты часто приводят к проблемам. Например, VB полагает,
что тип результата с двумя целыми числами есть целое. Например результат Print
123456 ?789 выходит за рамки целого и возникает ошибка переполнения. Тогда
необходимо использовать идентификатор хотя бы для одной переменной Print 123456&
?789.
Можно также использовать встроенные функции для преобразования типов, например,
LInt - округляет число до целого, Clong - до длинного целого, Cvar - преобразует
к Var.
Если производятся операции с переменными Variant, то не возникает проблем с
преобразованием типов.
Помимо обычных, десятичных чисел, VB использует двоичные и шестнадцатеричные.
Последние обозначаются с префиксом &H. Например, число 49 = &H31.
Шестнадцатиричные цифры используются для кодирования различных цветов: любой
цветовой код состоит из 6 шестнадцатиричных цифр от &H000000& = 0 до &HFFFFFF&
(длинное целое) (16777215).
Вообще конкретный цвет определяется количеством красного R, зеленого G и синего
цветов B во всевозможных сочетаниях. В коде цвета VB две последние цифры
означают количество красного, две средние - количество зеленого, а две первые -
количество синего, например
&H0000FF& - максимально красный
&H00FF00& - максимально зеленый
&HFF0000& - максимально синий
&H000000& - черный
&HFFFFFF& - белый
&H00FFFF& - желтый (красный + зеленый)
&H808080& - серый (равные количества цветов)
Константы
Для неизменных значений в программе используются константы. Константы
объявляются аналогично переменным, по тем же правилам: имя содержит не более 200
символов, первый символ буква. Если в программе используется только одна форма,
то константу можно объявить в разделе DeclarationHous для объекта General. Или
же можно и непосредственно в процедуре, но это хуже. Константу объявляют через
зарезервированные слова Const. Например,
Const Pi = 3?14159
Const Course = “Informatics”
VB5 имеет только набор встроенных констант, например, VbCrLf или VbOrOnly. Их
можно вставлять в текст программы из окна Object Browser (F2 или меню View).
Чтобы вставить Const в программе:
Курсор должен быть в окне кода.
В окне Object Browser щелкнуть на кнопке Copy to Clipboard.
Перейти в программе на место вставки и нажать Ctrl+V.
Встроенные функции
Особое значение имеют строковые функции, т.к. в полях ввода информация хранится
в текстовом формате или в формате ariant. Использование же неявных
преобразований типов из Variant часто приводит к проблемам и является более
медленным.
Строковые функции:
= Space (число пробелов) - выдает строку, состоящую из одних пробелов, причем
число символов в строке определяется параметром в скобках.
= String (число, строковое выражение $) - формирует строку, содержащую
одинаковые символы.
Например, X$=String (10, “z”) - 10z
= Len (строковое выражение) - длина текущей строки с проблемами и напечатанными
символами.
= Mid (строка, начало [, длина])
Mid (“Visual Basic”, 1,6) = “Visual”
Mid (“Visual Basic”, 8,6) = “Basic”
Mid (“Visual Basic”, 8) = “Basic”
Пример. Подсчет числа точек в строке
Points % = 0
Length % = Len (Text $)
For I% = 1 to Length %
If Mid (Text $, I%, 1) = “.” then
Points $ = Points $ + 1
End If
Next I%
= Left (cтрока, № до позиции)
= Right (строка, с № позиции)
Функцию Mid можно использовать для изменения содержания внутри текущей строки.
Например
X $ = “Best Basic”
Mid (X $,1,5) = “Quick”
какое количество символов
с какого символа будет взято из новой строки
вставляется новая
строка поверх части старой
= Insert ([начальная позиция], строка для поиска, подстрока)
является ли данная строка частью другой строки, выдает номер позиции, с которой
начинается подстрока.
Text $ = “QuickBasic”
X $ = Instr (1, Text $, “Basic”)=6.
Если подстрока не найдена Instr возвращает нулевое значение (False).
Пример.
If Instr (Text $, “?”) then
Print “символ найден”
Else
Print “Не найден”
End If
= LСase, = UСase - преобразует все символы строки в нижний (верхний) регистр
Вместо Lcase $ Ucase$
= Str lomp - для сравнения строк
Пусть X = StrComp (A$, B$)

Если A$ или B$ пуста, то х=NULL
Если использовать StrComp (A$,B$,1) - регистр не учитывается, а если StrComp
(A$,B$,0) - регистр учитывается.
= Trim (строка $) - уничтожает пробелы начале и конце строки
LTrim (строка $) - уничтожает пробелы в левой части строки
RTrim(строка $) - уничтожает пробелы в правой части
Все строковые функции, за исключением Mid, не изменяют строку, а создают ее
копию и потом с ней работают.
Управляющие структуры в программе
Определенные циклы
For ___ Next
For I% = 1 to 10 (% - целочисленный тип для ускорения работы цикла)
Print I%
Next I%
Цикл завершается, не в тот момент, когда значение счетчика равняется конечному,
а когда оно превышает его.
Пример. Печать всеми доступными шрифтами экрана.
Private Sub Form_Click()
Dim I As Integer
For I=0 to Screen.FontCount - 1
FontName = Screen.Fonts (I)
Print “Это шрифт”; Screen.Fonts (I)
Next I
End Sub
Неопределенные циклы
Не выполняются фиксированное число раз. Цикл может выполняться или нет в
зависимости от результата, вычисляемого внутри цикла
Do
Выражение
Loop Until выполняется условие
Пример. Проверка пароля
Private Sub Form_Load ()
Do
X$ = InputBox$ (“Пароль ?”)
Loop Until X$ = “VB”
End Sub
Для остановки бесконечного процесса используют клавиши “Break” или RunEnd или
закрыть приложение. В программе можно использовать оператор Exit Do (или Exit
For), которые переводят программу к оператору следующему после цикла.
Сложные неопределенные циклы
В неопределенных циклах проверка происходит в конце цикла и счетчика
увеличивается еще на 1. Иногда это вызывает лишнее обновление счетчика. Можно
передвинуть проверку условия на начало цикла:
Do Until условие
Тело цикла Выражение
Loop
Do While
Do
Loop Until аналогичен
Do
Loop While условие
Пример.
Do Do
Loop Until N>5 ? Loop While N <=5
Do While
Do
Выражение
Loop While условие
или
Do While условие
Выражение
Loop
В таких циклах можно объединять несколько условий, например
Do While X<=0 and txtDisplay.Text=“ “
?
?
Loop
Цикл While /Wend
While условие
. . . . .
Wend
Например, While x>0
S = S+x
Wend
Может быть несколько вложенных циклов. Любой Wend относится к ближайшему While.
Do __ Loop дает структуру и гибкость цикла.
Условные операторы
If условие Then оператор
Например, If N>=0 and N<=9 Then Print “Ok”
Оператор Select Case
Позволяет обрабатывать несколько вариантов выбора.
Select Case переменная или выражение
Case оператор проверки условия
действие 1
.
.
.
Case . . . . . .
действие n-1
End Select
Пример:
Select Case Ball
Case Is < 13 позволяет проверить значение переменной
Grade = 2
Case Is < 18
Grade = 3
Case Is < 22
Grade = 4
Case Else
Grade = 5
End Select
Пример 1. If Then Else
Private Sub Form_QueryUnload(Cansel As Integer, UnloadMode As Integer)
X % = MgBox(“Вы уверены?”, VbYesNo)
If X % = VbNo Then
Cancel = True
Else
Cancel = False
End IF
End Sub
Пример 2.
If optColor1.Value Then
Color$ = “Красный”
Else If optColor2.Value Then
Color$ = “Зеленый”
Else If optColor3.Value Then
Color$ = “Синий”
Else
Color$ = “Белый”
End If
Пример:
Select Case Den
Case 1
Print “Пн”
Case 2
Print “Вт”
.
.
.
Case 7
Print “Вс”
End Select
В фразе Case можно задавать значения переменной в виде диапазона
Select Case Den
Case 1 to 5
Print “Рабочий день”
Case Else
Print “Выходной”
End Select
либо перечислением возможных значений
Select Case Den
Case 6, 7
Print “Выходной”
Case Else
Print “Рабочий день”
End Select
Массивы
2 вида массивы: управляющие и массивы переменных (обычные массивы или списки).
Управляющие массивы состоят из нескольких однотипных элементов управления,
использующих общие свойства, по отличающимся порядковым номерам или индексам.
Может быть не более 255 элементов в таком массиве. При этом новые элементы на
форме помещаются на место исходных элементов управляющего массива. Поэтому при
размещении на форме их следует позиционировать и двигать, чтобы они не
перекрывали друг друга. Например, можно создать на форме матрицу надписей или
текстовых полей.
Одномерные массивы или списки определяются именем и положением элемента в
списке. Например данные о выпуске продукции за 12 месяцев.
Могут быть фиксированные и динамические списки. Размеры их могут быть велики и
определяются объемом свободной памяти.
У фиксированных списков размер не меняется, а динамические списки могут менять
свой размер. Для фиксированных списков память выделяется в начале работы
программы и существует меньший риск переполнения памяти.
Динамические списки более гибки в работе.
Списки могут быть видимыми всему приложению, данной форме (модулю) или только
одной процедуре.
Создание фиксированного списка:
а) в форме (модуле). Описание помещается в разделе деклараций формы (модуля)
Dim Massiv$(20)
доступен любой процедуре модуля или формы;
б) в пределах всего проекта (глобальный)
Public Massiv(20) As String - 21 элемент от 0 до 20
или Global
в) локальный массив, который сохраняется до следующего вызова процедуры
Private Sub ...........
Static Massiv A(20)
Создание динамических массивов.
а) в форме
В размере декларации формы Dim DYNMAS() As String
А внутри процедуры выделяем нужный размер
Private Sub ...........
Dim N %
ReDim DYNMAS(N) As String
При работе команды ReDim информация в массиве теряется.
Для сохранения информации при изменении размера массива
ReDim Preserve DYNMAS(N+1) As String
или (N-1) удалит последний элемент
б) Глобальный динамический список, видимого в пределах всего проекта
Public DYNMAS() As String
или Global
Далее можно использовать ReDIM в любой процедуре всего проекта.
Ввести данные в массив можно с помощью INPUT BOX, текстового поля.
Для изменения нумерации в массиве не с 0, а с 1 - оператор Option Base 1 в
разделе деклараций формы (модуля).
Можно задавать массив диапазоном значений
вместоDim A(19)
Dim A (1980 TO 2000)
Освобождение ОП от динамический массивов Erase DYNMAS/ Для фиксированных списков
Erase только очищает массив.
Окна ввода
Окна ввода- это другая возможность, помимо текстовых полей, для ввода
информации. Функция InputBox$ выводит на экран модальную диалоговую панель,
которая в отличие от текстовых полей имеет фиксированный размер окна. У окна
ввода есто строка заголовка и 4 элемента: подсказка, командные кнопки OK и
Cancel и поле ввода. Синтаксис функции: Строковая переменная=
InputBox(“подсказка”[,заголовок][поумолчанию][,X][,Y][,файл справки, контекст])
где подсказка- текстовая строка или строковая переменная (1024 символа),
заголовок -содержание строки заголовка окна,
по умолчанию - начальное содержимое окна ввода,
X,Y- расстояние между левым (верхним) краями экрана и окна ввода. Если параметры
не заданы, то окно располагается по центру на 1/3 высоты экрана.
Например, MyInput$=InputBox(“Введи число”, “Запрос”,”0”,100,200)
Вывод информации
Для вывода информации непосредственно на форме используется метод Print. Его
синтаксис:
Имя формы.Print выражение
Например: frmHello.Print “Привет !”
VB5 выводит информацию, начиная с того места, которое определяют свойства
CurrentX и CurrentY- горизонтальная и вертикальная позиции. При использовании
метода Cls для очистки содержимого формы CurrentX и CurrentY=0 и метод Print
выводит информацию, начиная с левого верхнего угла.
Вывод информации можно осуществлять различными шрифтами, в зависимости от
используемого оборудования и программного обеспечения. Если операционная система
не находит данный шрифт, она выбирает ближайший аналог. Для выбора шрифта в
программном коде используется следующий оператор присваивания:
ИмяОбъекта-контейнера.Font.свойство=значение
?Например, frmHello.Font.Name=“Arial”
frmHello.Font.Size =20
frmHello.Font.Bold=True и т.д.
В качнстве объекта- контейнера могут быть командная кнопка, форма, надпись, поле
ввода. Но только формы и графические окна могут работать одновременно с
несколькими шрифтами. В остальных элементах управления изменение шрифта влияет
на весь текст.
Печать табличных данных
В VB5 печать текста можно осуществлять в заданном формате. Зона имеет размер в
14 символов. В основном зоны используются при печати непропорциональными
шрифтами типа Courier, т.к. каждая колонка по ширине равна среднему значению
ширины символа. Если параметры в методе Print разделены запятыми, то данные
выводятся в нескольких зонах. Например:
Me.Print Family$,Name$
После обработки выражения методом Print, производится переход на новую строку.
Если используется Print без параметров, выводится пустая строка. Если не нужно
переходить на новую строку, в конце строки вставляется символ”;”. Для печати с
заданной колонки можно использовать функцию Tab, Например:
Print Tab (номер колонки %);
Для вставки указанного числа пробелов, начиная с текущей позиции, используется
функция Spc (число пробелов %)
Функция Format
Для вывода числовых данных в нужном формате используется функция
Format( числовое выражение, строка формата $)
Результатом данной функции является строка, в которой выражение представлено по
заданному формату. Например:
Me.Print Format(123.456789,”###.###”)
дают результат 123,46. Незначащие нули в начале и конце числа игнорируются. Для
вывода незначащих нулей используется формат “000.00”. Если необходимо вывести
символы “- “, “+”, “$”,”(“,”)” или пробел, их размещают непосредственно в
формате. Например:
Me.Print Format(Amount,”$###.###”)
Именованные форматы
Именованные форматы являются встроенными форматами VB5 и облегчают работу по
форматированию выводимого текста.
Именованный форматОписание
General NumberСтрока цифр без разделителя для тысяч
CurrencyВыводит 2 цифры справа от дес. точки и учитывает разделителя для
тысяч
FixedПо крайней мере одна цифра слева и две справа от десятичной точки
StandardТо же и разделитель тысяч
PercentЧисло в виде процента. Выводит две цифры справа от дес.точки
ScientificНаучная форма
Yes/NoЕсли число равно 0, то выводит No, иначе Yes
True/FalseЕсли число равно1, то выводит True, иначе False
On/OffЕсли число равно1, то выводит On , иначе Off
General DateВыводит дату и/или время. Если отсутствует дробная часть,
выводится только дата, если целая часть, то- время.Например 23.12.98
10:30:45
Long DateПолный формат Windows для вывода даты Wedn 23 Dec 1998
Medium DateОбычный формат Windows для вывода даты 23- Dec-98
Short DateСокращенный формат Windows для вывода даты 23.12.98
Long TimeВремя в час, мин, сек
Medium TimeВремя в12-часовом формате: час, мин и AM/PM
Short TimeВремя в час, мин в 24-часовом формате

Например,
Me.Print Format(Amount, “Currency”)
Me.Print Format(Amount, “###,###.##”)
Me.Print Format(Now, “General Date”)
Объект Printer
Vb5 позволяет легко устанавливать свойства принтера, используемого в системе.
Команда PrintForm выводит на принтер графический образ окна формы. Ее синтаксис:
ИмяФормы.PrintForm
Команда осуществляет побитовый перенос формы с заголовком и рамкой с экрана на
форму и не обладает достаточной гибкостью.
Обычный способ вывода информации на принтер состоит в использовании метода
Print, связанного с объектом Printer. Метод Print учитывает ориентацию страницы
и может использовать свойства CurrentX и CurrentY для точного позиционирования
текста и точек на странице. Его синтаксис:
Printer. Print текст
При этом сохраняются возможности метода Print : “;” “,” Tab, Spc, а также
возможность управления свойствами шрифта:
Printer. Font.Name = “Aryal”
Printer. Font.Size = 18
А изменение шрифта принтера не влияет на предыдущий текст.
Свойства объекта Printer:
СвойствоНазначениеЗначения
ColorModeопределяет тип принтера1-монохромный
2- цветной
Pageномер текущей страницы
Pagesколичество страниц
Copiesколичество печатных копий
PrintQualityкачество печати (если это поддерживает драйвер принтера)1-
черновая печать
2-низкое разрешение
3-среднее разрешение
4-высокое разрешение
CurrentX, CurrentYТекущие координаты текста
Fontsдоступные шрифты принтера
FontCountкол. доступных шрифтов принтера
Font.Name,Font.Size, Font.Bold,Font.Italic...характеристики шрифта
ScaleModeед. измерения масштаба страницы0-пользователя
1-твипы (по умолчанию)
2-пункты
3-пикселы
4-символы
5-дюймы
6-мм
7-см
ScaleLeftРасстояние от левой границы
ScaleTop
ScaleWidth
ScaleHeight

Методы объекта Printer:МетодСодержание
PrintПечать страницы
NewPageПерейти на новую страницу
EndDocЗакончить работу с документом. (Освобождение памяти и пересылка
страниц в диспетчер печати)
Scaleопределяет координатную систему пользователя
TextHeightОпределяет высоту символа
TextWidthОпределяет ширину символа

Пример. Форма содержит командную кнопку “Печать”. Программный код выводит на
печать 2 страницы. На первой печатается “Стр.1”. На второй “Стр.2” .
Private Sub cmdPrint_Click()
Printer.Print “Стр.”+Str(Printer.Page)
Printer. NewPage
Printer.Print “Стр.”+Str(Printer.Page)
Printer. EndDoc
EndSub
Объект Screen.
Объект Screen позволяет управлять размещением форм и выводом информации на
экране.
Свойства Объекта Screen.
СвойствоНазначение
MousePointerуказатель мыши
Fontsдоступные шрифты экрана
FontCountкол. доступных шрифтов экрана
Widthширина экрана (в твипах)
Heightвысота экрана

Методов нет.
Пример. Установить размер формы равной 50% от размера экрана.
Private Sub Form_Load()
Me. Width=Screen. Width/2
Me. Height=Screen. Height /2
EndSub
Работа с файлами.
Элементы управления для работы с файлами
FileListBox- список файлов.
Списки файлов выводят по умолчанию имена файлов в текущем каталоге. Большинство
свойств списка файлов аналогичны обычному списку (размеры, расположение на
форме, цвет, шрифт, вертикальная линейка прокрутки). Аналогично списки файлов
могут реагировать на все события обычных списков. Однако для выбора файлов
обычно используется не одинарный, а двойной щелчок мыши DblClick.
Основные свойства Списка файлов:
СвойствоСодержание
ListМассив членов списка файлов
ListCountКол. членов списка файлов
ListIndexИндекс массива
FileNameОбозначение файла
PathТекущий Путь для списка файлов
PatternФильтр, шаблон. Задает вид отображаемых в списке файлов

Например, имя выбранного файла можно определить как filFile.List(ListIndex) или
как свойство FileName. Вывести список файлов в массив FileNames$( I%) можно с
помощью следующего кода:
For I%=0 to filFile.ListCount - 1
FileNames$(I%) = filFile.List(I%)
Next I%
Свойство Pattern задает тип отображаемых файлов или шаблон * , ?. По умолчанию
фильтр установлен в значение *.* . Несколько фильтров отделяются друг от друга
“; “ . Изменение свойства Pattern активизирует событие PatternChange.
Свойство Path устанавливает или возвращает текущий путь для списка файлов.
Однако для изменения текущего пути в операционной системе следует использовать
команду ChDir. Изменение свойства Path активизирует событие PathChange.
Изменение свойства FileName активизирует событие и PatternChange и PathChange.
События Списка файлов:
СобытияОписание
Click
DoubleClick
MouseDawn
MouseUp
MouseMove
KeyUp,KeyDawn,KeyPress
DragDrop, DragOver
GotFocus,LostFocus
PathChangeИзменение текущего пути для списка файлов
PatternChangeИзменение шаблона для отображения файлов в списке

Пример события PathChange
Sub File1_PathChange ()
Label1.Caption = "Path: " & Dir1.Path' Show path in label.
End Sub
Sub Dir1_Change ()
File1.Path = Dir1.Path' Set file path.
End Sub
Sub Form_Load ()
Label1.Caption = "Path: " & Dir1.Path' Show path in label.
End Sub
Sub Drive1_Change ()
Dir1.Path = Drive1.Drive' Set Dir path.
End Sub
Sub Dir1_Change ()
File1.Path = Dir1.Path' Set File path.
End Sub
DirectoryListBox- список каталогов.
Элемент управления DirListBox - отображает дерево каталогов текущего диска.
Содержимое списка каталогов обновляется при двойном щелчке мыши. Подкаталоги
текущего каталога нумеруются от 0 до ListCount - 1. Сам текущий каталог имеет
индекс -1, родительский -2, выше -3 , ...При двойном щелчке мыши вызывается
событие Change и меняется значение свойства Path.
Основные свойства Списка каталогов.
СвойствоСодержание
ListМассив членов списка каталогов
ListCountКол. членов списка каталогов
ListIndexИндекс массива
PathТекущий Путь для списка каталогов
ParentДля доступа к свойствам, событиям и методам родительской формы
данного элемента

События Списка каталогов
СобытияОписание
Click
MouseUp, MouseUp, MouseMove
KeyUp,KeyDawn,KeyPress
DragDrop, DragOver
GotFocus,LostFocus
ChangeИзменение в списке каталогов

Для того. чтобы изменение в списке каталогов отразилось списке файлов, можно
использовать процедуру:
Private Sub dirBox_ Change()
filFile1.Path = dirBox.Path
End Sub
При этом для списка каталогов Path указывает выбранный каталог, а для списка
файлов - каталог, файлы которого отражаются в списке.
DriveListBox- список дисков.
В отличии от предыдущих элементов список дисков является выпадающим. Список
дисков отображает текущий диск, а когда пользователь щелкает на кнопке со
стрелкой, выводит список всех доступных дисков.
Основные свойства Списка дисков
СвойствоСодержание
DriveОпределяет текущий диск
ListCountКол. членов списка дисков
ListIndexИндекс массива дисков
ListМассив членов списка дисков
ParentДля доступа к свойствам, событиям и методам родительской формы
данного элемента

События Списка дисков
СобытияОписание
KeyUp,KeyDawn,KeyPress
DragDrop, DragOver
GotFocus,LostFocus
ChangeИзменение в списке дисков

Основным свойством является свойство Drive , которое используется для получения
и установки текущего диска. Это свойство используется для синхронизации работы
списка дисков и списка каталогов. Например,
Private Sub drvBox_ Change()
dirBox.Path = drvBox. Drive
Ch Drive drvBox. Drive ‘ Если нужно изменить текущий диск ОС
End Sub
Файлы последовательного доступа
Используются когда:
а) редко вносятся изменения
б) информация в файле обрабатывается от начала до конца
в) если нужно добавлять информацию в конец файла.
Для совершения операции чтения или записи с файлом его нужно открыть командой
Open. После Open следует имя файла, строковая переменная или строка в двойных
кавычках. Если файл не текущем каталоге, нужно указать путь к нему.
Запись информации в файл:
Open “имя файла” for Output as # 1
# 1 - это идентификатор файла - число от 1 до 255 с символом #. Максимальное
число одновременно открытых файлов определяются параметром в Config.sys.
По команде Open резервируется файловый буфер в памяти компьютера. По мере
заполнения буфера активируются соответствующий диск и весь блок информации
посылается непрерывным потоком на диск (количество будет устанавливаться в
Config.sys). После окончания работы с файлом он закрывается командой Close #
идентификатор файла. Команда Close сбрасывает информацию на диск и очищает
буфер. Для сброса содержимого буфера на диск (в критических ситуациях)
используется команда Reset. Для ввода информации в файл можно использовать
команду Print #
“ Запись в файл
Open “File 1” For Output As #1
Print #1, “1 2 3 4 5 ” или Print #1, txtDisplay.Text
Close #1
Если в текущем каталоге есть файл с таким именем, то этой командой он будет
уничтожен.
Close без параметров закрывает все файлы.
Для определения размера открытого файла можно использовать команду LOF
(идентификатор файла)
Open “File 1” For Output As #1
Print #1, “1 2 3 4 5 ”
Print LOF(1)
Вместо Print можно использовать Write # идентификатор файла, список переменных.
Чтение из файла
Open ”имя файла” For Input As # идентификатор файла
Задается свободный идентификатор, который в данный момент не используется в
программе. Или так:
FileNumber % = FreeFile
Open “имя файла” For Input As # FileNumber %
После этого можно использовать оператор Line Input # для построчного чтения
информации из файла:
Open “File1” For Input As #1
Line Input #1, A$ принимает в A$ всю информацию до Enter
Print A$
Close #1
Либо Input # идентификатор файла, список переменных, если запись с помощью
Write, txtDisplay
Если файл сложной структуры, состоит из полей и записей, то файл будет читаться
целыми записями командой LineInput, либо можно информацию читать из отдельных
полей командой Input #
Например, чтение записей из файла Spisok в массив
1. Определяем тип пользователя
Type StudentRecord
Name As String
Adress As String
End Type
2. Объявляем массив записей типа Student как глобальную переменную
Global StudentAdress( ) As StudentRecord
Sub Proc( )
Dim FileNum As Integer, I As Integer
ReDim StudentAdress(1 to 150)
FileNum = FreeFile
Open “Spisok” For Input As # FileNum
For I=1 to 150
Input #FileNum, StudentAdress(I).Name
Input #FileNum, StudentAdress(I).Adress
Next I
Close FileNume
End Sub
Чтение текстового фала в текст, поле
. . . .
FileNum = FreeFile
Open “My.txt” For Input As FileNum
txtDisplay.Text=Input(LOF (FileNum), FileNum)
Close #FileNum
где LOF(FileNum) размер файла в байтах
Дозапись информации в существующий последовательный файл
При этом строки, которые будут выведены в файл присоединяются к строкам, которые
уже содержаться в файле. Для этого служит оператор
Open “имя файла” For Append As # идентификатор файла
При этом:
- VB открывает файл, а если он не существует, то создает и создает
соответствующий буфер;
- находит конец файла на диске;
- готовит к записи в конец файла.
Пусть существует текстовый файл My.txt и нужно дописать в его конец строку “До
свидания”:
FileNum=FreeFile
Open “My.txt” For Append As FileNum
Print #FileNum, “До свидания”
Close #FileNum
При обработке больших файлов часто необходимо проверять на достижение конца
файла. Для этого существует оператор EOF (идентификатор файла).
Фрагмент программы чтения информации из файла, созданного с помощью оператора
Print #
. . . . .
B$ = “ ”
FileNum=FreeFile
Open “My.txt” For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum, A$
B$=B$+A$
Loop
txtDisplay.Text=B$
Close #FileNum
Файлы прямого доступа
Напоминают базу данных. Файл состоит из упорядоченных записей одинакового
размера. Существует запись, состоящая из полей, в которых содержаться данные.
Обеспечивает быстрый поиск информации, но дисковое пространство используется
неэффективно.
При создании файла указывается максимальная длина существующей записи. Команда
создания файла:
Open “MyLib.dat” For Random As # идентификатор файла
Len = длина записи, можно определять с помощью функции Len (имя переменной
записи) в текущем каталоге.
Открытый файл прямого доступа может быть прочитан и записан практически
одновременно.
Close # идентификатор файла - закрывает файл.
Каждая запись в файле имеет номер записи. Это позволяет работать с конкретной
записью. При описании записи задаются пользовательским типом:
Type Books
Auther As String *30
Title As String *40
End Type
Запись, содержащую пятой записи файла в переменную:
Get #FileNum, 5, NewBook (если NewBook типа Books)
Запись из переменной в сороковую запись файла:
Print #FileNum, 40, NewBook
Созданные типы записей определяют размер файла прямого доступа. Размер файла
определяется функцией FileLen (“имя файла”). Размер записи Len(NewBook) в
байтах.