У этого объекта много возможностей и он
программисту часто помогает избежать
огромных кодов своей программы.
Для начала надо объявить объект Shell. Сделать
это можно двумя способами.
Первый способ. Открыть меню Project
>> References и в появившемся окошке выбрать
"Microsoft Shell Controls And Automation", поставив на
против этого пункта птичку, и нажать ОК.
Теперь объявляем этот объект в модуле или
форме:
Dim
objShell As New Shell
Второй способ. Сразу объявляем объект:
set
objShell = CreateObject("Shell.Application").
Теперь разберем зачем вообще нужен это
объект и какие возможности он имеет.
Этот пример вызовет окошко "Выбор
папки" с заголовком окна "Обзор папок",
будут видны все папки и будет возможность
создания папки (кнопка). Корзины не видно.
Directory
= objShell.BrowseForFolder(Me.hWnd, "Заголовок",
2 или 0)
Этот пример вызовет окошко "Выбор
папки" с заголовком окна "Обзор папок",
будут видны все папки и будет возможность
создания папки (кнопка). Корзина видна.
Во всех случаях в Directory окажется выбранная
пользователем папка.
2.
Расположение всех окон каскадом.
objShell.CascadeWindows
Этот
пример располагает окна каскадом. Т.к.
это функция, то возвращаемых значений нет.
3.
Запуск компонентов "Панели управления"
objShell.ControlPanelItem
("desk.cpl")
Этот
пример запускает файл компонента
Панели управления (*.CPL). В данном примере
запускается настройка экрана.
objShell.ControlPanelItem
("")
Этот
пример запускает саму "Панель
управления"
4.
Запуск "Проводника" с определенной
открытой папкой.
objShell.Explore
("C:\")
Этот пример откроет "Проводник" с "открытым"
диском C:\
5.
Вызов окошка "Запуск программы".
objShell.FileRun
Этот пример вызовет окошко "Запуск
программы", как если бы Вы через меню "Пуск"
нажали "Выполнить".
6.
Запуск программы поиска компьютеров.
objShell.FindComputer
Этот пример запустит программу поиска
компьютера по его имени.
7.
Запуск программы поиска файлов.
objShell.FindFiles
Этот пример запустит программу поиска
файлов, как если бы Вы через меню "Пуск"
нажали "Поиск".
8.
Загрузка помощи Windows.
objShell.Help
Этот пример запустит справку Windows.
9.
Сворачивание всех окон.
objShell.MinimizeAll
Этот пример свернет все окна.
Примечание: Если код вставлен в Form_Load, то
все окна свернутся, а форма программы
останется открытой; если же этот код
вставить в какое-нибудь другое событие,
например, в Form_Click, то будут свернуты все
окна без исключения.
10.
Отображение полного имени каталога или
диска.
OfFolder
= objShell.NameSpace("C:\")
Этот пример возвратит полное название
диска, например "Локальный диск C:\".
Если вместо диска указан какой-нибудь
каталог, то возвратится его название, с
соблюдением регистра букв, т.е. если вы
обращаетесь к каталогу MYCaTAlog строкой "mycatalog",
то возвращено будет значение "MYCaTAlog".
11.
Отображение содержимого определенного
каталога.
objShell.Open
("C:\windows\system")
Этот пример отобразит содержимое папки C:\windows\system.
12.
Обновление панели задач.
objShell.RefreshMenu
Этот пример обновит панель задач.
13.
Упорядочивание окон
objShell.TileHorizontally
Этот пример упорядочивает окна по
горизонтали.
objShell.TileVertically
Этот пример упорядочивает окна по
вертикали.
14.
Восстановление всех свернутых окон.
objShell.UndoMinimizeALL
Этот пример разворачивает все свернутые
окна.
15.
Отображение окна выключения компьютера.
objShell.ShutdownWindows
Этот пример отображает окно выключения и
перезагрузки компьютера.
16.
Отображение окна настройки времени и даты.
objShell.SetTime
Этот
пример отображает окно настройки времени и
даты.
Проект будет стартовать 17 мая.
Пока идет набор участников проекта. Если
людей будет меньше 7-10 человек, то проект
закроется. Все желающие участвовать в этом
проекте пишите: mailto:igoryksoft@yandex.ru?Игра
Башня Мудрости