Реферат: Курс лекций по V B 5.0

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

ИмяОбъекта-контейнера.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 и облегчают работу по форматированию выводимого текста.

Например,

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:

Методы объекта Printer:

Пример. Форма содержит командную кнопку “Печать”. Программный код выводит на печать 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.

Методов нет.

 Пример. Установить размер формы равной 50% от размера экрана.

Private Sub Form_Load()

Me. Width=Screen. Width/2

Me. Height=Screen. Height /2

EndSub

Работа с файлами.

Элементы управления для работы с файлами

FileListBox- список файлов.

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

Основные свойства Списка файлов:

Например, имя выбранного файла можно определить как  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.

События Списка файлов:

Пример события 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.

Основные свойства Списка каталогов.

События Списка каталогов

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

Private Sub dirBox_ Change()

       filFile1.Path = dirBox.Path

End Sub

При этом для списка каталогов Path указывает выбранный каталог, а для списка файлов - каталог, файлы которого отражаются в списке.

       DriveListBox- список дисков.

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

Основные свойства Списка дисков

События Списка дисков

Основным свойством является свойство 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 #

Страницы: 1, 2, 3, 4, 5