| Вопрос: Наподоби CommonDialog??? | Добавлено: 17.10.03 14:19 |
Автор вопроса:  Dok | Web-сайт: www.dulevo.ru | ICQ: 261977520 |
|
CommonDialog способен открывать диалог сохранения и открытия файла, а какой элемент покавзывает древовидную структуры папок включая мой компьютер, все диски и сетевое окружение... |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 17.10.03 15:16 |
|
Лучше, конечно, все делать апями, но есть такой компонинтик newex.ocx, если надо - мылю |
||
|
Номер ответа: 2 Автор ответа: Dok ICQ: 261977520 Вопросов: 48 Ответов: 16 |
Web-сайт: Профиль | | #2 | Добавлено: 17.10.03 15:54 |
|
Если не влом присылай... dokpayne@mail.ru |
||
|
Номер ответа: 3 Автор ответа:  boevikХранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557 |
Web-сайт: Профиль | | #3 | Добавлено: 17.10.03 21:50 |
|
Номер ответа: 4 Автор ответа: Padre ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | | #4 | Добавлено: 19.10.03 01:51 |
|
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 |
||
Страница: 1 |