| Вопрос: Окно диалога для выбора каталога | Добавлено: 06.10.03 10:38 |
Автор вопроса:  Tolik
|
|
Требуется отобразить окно диалога для выбора каталога и пример работы с ним. И вообще какие диалоги лучше использовать. Для выбора файла я использую Mircosoft Common Dialog Control 6.0 (SP3) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 06.10.03 16:46 |
|
Юзай NEWEX.OCX Если надо, мылю. Но тоолько седня. Проблемы с инетом, понимаешь... |
||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 06.10.03 17:07 |
|
В архиве кодов на этой сайте вроде были примеры и без использования ОСХ, на апи. |
||
|
Номер ответа: 3 Автор ответа:  Padre ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | | #3 | Добавлено: 06.10.03 17:41 |
|
Вот что тебе надо:
Private Type BrowseInfo hwndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As String ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Dim strPath As String Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long) Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String Const BIF_RETURNONLYFSDIRS = 1, MAX_PATH = 260 Dim intNull As Integer, lngIdList As Long Dim udtBI As BrowseInfo With udtBI .hwndOwner = hwndOwner .lpszTitle = sPrompt .ulFlags = BIF_RETURNONLYFSDIRS End With lngIdList = SHBrowseForFolder(udtBI) If lngIdList Then strPath = String$(MAX_PATH, 0) SHGetPathFromIDList lngIdList, strPath CoTaskMemFree lngIdList intNull = InStr(strPath, vbNullChar) If intNull Then strPath = Left$(strPath, intNull - 1) End If BrowseForFolder = strPath End Function Private Sub Command1_Click() BrowseForFolder Me.hWnd, "Hi, Select ... " Print strPath End Sub |
||
|
Номер ответа: 4 Автор ответа: Tolik Вопросов: 13 Ответов: 9 |
Профиль | | #4 | Добавлено: 07.10.03 04:38 |
|
Спасибо с использованием API в самый раз |
||
Страница: 1 |