| |
|
| |
| Название |
SHBrowseForFolder |
| Автор |
Comanche |
| Размер |
6 кб |
| Дата |
3/2/2004 10:48:00 AM |
| Описание |
От автора:Это доработка предыдущей версии, уже лежащей на сайте. К возможности задавать начальную папку обзора и список разрешённых файловых расширений добавлены: - задание пользовательского заголовка всего диалога, - возможность придать диалогу любой размер по желанию, - возможность центрировать диалог на экране, - возможность сделать диалог "always on top". Пример вызова для наглядной иллюстрации: Sub Main() Dim st As String st = fBrowseForFolder(hWnd_Owner:=0&, _ sPrompt:="Выберите папку, содержащую файлы *.bat и *.sys:", _ WhatBr:=BIF_RETURNONLYFSDIRS Or BIF_STATUSTEXT, _ DialogTitle:="Модифицированный диалог выбора папки", _ initDir:="C:\", _ fileMasks:="*.bat|*.sys", _ ChangeSize:=True, _ RatioX:=1.4, _ RatioY:=1.7, _ CenterOnScreen:=True, _ TopMost:=True) If Len(st) > 0 Then MsgBox "Вы выбрали папку:" + vbCr + st, vbInformation, "Информация" End Sub
От User Unknown:Действительно хорошо переработанный и изменившийся в лучшую сторону диалог выбора папки. |
| Кол-во загрузок: |
2475 |
Скачать
|
|
| |
|
|
|
|