| Вопрос: Открытие файла | Добавлено: 24.08.07 00:33 |
Автор вопроса:  GeniX | Web-сайт: porrygatter.zx6.ru | ICQ: 418811267 |
| Как открыть файл в вб, так чтоб он открылся в собственном окне... вообщем как в проводнике. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 24.08.07 00:53 |
|
Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
Public Type SHELLEXECUTEINFO cbSize As Long fMask As Long hWnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long 'fields lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type '%%%%%%%%%%%%%%%%%%%%%%%%%% Dim SEI As SHELLEXECUTEINFO SEI.cbSize = Len(SEI) SEI.hWnd = Me.hWnd SEI.lpVerb = "open" SEI.lpFile = "ПУТЬ_К_ФАЙЛУ" Dim ret As Long ret = ShellExecuteEX(SEI) или через Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long |
||
|
Номер ответа: 2 Автор ответа: Patriot ICQ: 439168318 Вопросов: 5 Ответов: 50 |
Профиль | | #2 | Добавлено: 24.08.07 01:49 |
|
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Call ShellExecute(0, "open", "Путь к файлу", vbNull, vbNullString, 1) |
||
|
Номер ответа: 3 Автор ответа: GeniX ICQ: 418811267 Вопросов: 40 Ответов: 243 |
Web-сайт: Профиль | | #3 | Добавлено: 24.08.07 11:42 |
| Пасиб | ||
Страница: 1 |