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/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
Популярное: Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... Личность ребенка как объект и субъект в образовательной технологии: В настоящее время в России идет становление новой системы образования, ориентированного на вхождение... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (172)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |