Как открыть файл в FileListBox-e

[Stasjan]

Пожалуйста подскажите как сделать что-бы двойным кликом мыша отрыть файл в FileListBox.
P.S И как файл открыть в ListBoxe

[Scuder]

Для EXE так:

Код: Выделить всё

Private Sub File1_DblClick()

Shell File1.List(File1.ListIndex)

End Sub

Только нужно к имени файла ещё путь добавить..
С ListBox'ом аналогично..

[Stasjan]

А для файлов типа *.doc, *.dwg, *.bmp и т.п.

[Scuder]

Для всех можно так:

Код: Выделить всё

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
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Sub File1_DblClick()

Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
ShellExecute Scr_hDC, "Open", File1.List(File1.ListIndex), "", "C:\", 1

End Sub

Все файлы будут открываться приложениями, с которыми они ассоциированы в системе.

[Stasjan]

Большое спасибо
Сейчас попробую.

[Stasjan]

Почему то не работает. в FileListBox не реагирует, а в ListBox выдает ошибку "Variable not defines"

[Scuder]

Код полностью приведи..

Только сначала проверь соответствие названий дисков в пути открываемого файла и в функции открытия..

Для листбокса тоже должно работать:

Код: Выделить всё

ShellExecute Scr_hDC, "Open", List1.List(List1.ListIndex), "", "C:\", 1