Question

VB中 文件列表框 怎样双击打开文件

文件列表框双击打开代码

Answer 1

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 Const SW_NORMAL = 1

Private Sub File1_DblClick()
ShellExecute Me.hwnd, "open", File1.FileName, 0, 0, 1
End Sub