Реферат: Основы Visual Basic 50

Свойства Объекта 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