Вы когда-нибудь задумывались о разработке собственного графического браузера? На самом деле это совсем несложно, для этого мы можем легко использовать программирование на VB.
Процесс проектирования графического браузера выглядит следующим образом:
1. Запустите VB, создайте новый стандартный файл проекта и в форме Form1 измените заголовок Form1 = «Графический браузер».
2. Добавьте элементы управления диском, папкой и файлом в форму из панели инструментов. Имя диска — Diver1, имя папки — Dir1, а имя файла — File1, и настройте соответствующие положения.
3. Добавьте элемент управления PictureBox в форму из панели инструментов. Имя PictureBox — Picture1 и настройте соответствующее положение, высоту и ширину.
4. Из панели инструментов добавьте в форму элемент управления CommandButton. Имя CommandButton — Command1 и настройте соответствующее положение, высоту и ширину.
5. Дважды щелкните мышкой в пустом месте формы, чтобы открыть окно редактирования кода, и введите следующий код:
PRivateSubForm_Load()
'Установить диск и каталог, в котором находится приложение, как текущий диск и каталог
'Приложение - текущий объект приложения
Диск1.Диск=Путь к приложению
Dir1.Path=Путь к приложению.
File1.Pattern="*.bmp;*.ico;*.wmf"
EndSub
6. Дважды щелкните элемент управления драйвером в форме, чтобы открыть окно редактирования кода, и введите следующий код:
PrivateSubDrive1_Change()
'Когда выбранный диск изменится, обновите содержимое в поле списка каталогов, при изменении каталога вызовите событие «Изменить» в поле списка каталогов;
Каталог1.Путь=Диск1.Диск
EndSub
7. Дважды щелкните мышкой по элементу управления папкой формы, чтобы открыть окно редактирования кода, введите следующий код:
PrivateSubDir1_Change()
'При изменении каталога обновляем содержимое списка файлов
Файл1.Путь=Каталог1.Путь
EndSub
8. Дважды щелкните мышкой по файловому элементу формы, чтобы открыть окно редактирования кода, введите следующий код:
ПриватСубФайл1_Клик()
'Корневой каталог, последним символом пути является обратная косая черта "/", например: C:/
'Если это некорневой каталог, последний символ в пути не является обратной косой чертой "/"
'Чтобы получить полное имя файла, необходимо добавить обратную косую черту "/" в конце пути
ЕслиВправо(Файл1.Путь,1)〈〉"/"Тогда
'Если это некорневой каталог, добавьте обратную косую черту "/" в конце пути.
tempstring=Файл1.Путь&&"/"&&Файл1.ИмяФайла
Еще
tempstring=Файл1.Путь&&"/"&&Файл1.ИмяФайла
КонецЕсли
'Загрузить выбранные файлы
Form1.Picture1.Picture=LoadPicture(tempstring)
EndSub
9. Дважды щелкните элемент «Закрыть» формы, чтобы открыть окно редактирования кода, и введите следующий код:
PrivateSubCommand1_Click()
Разгрузить меня
Конец
EndSub
Сохраните файл и запустите его, и ваш собственный графический браузер готов. ->