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 Longsub mshflex1_mouseclick() if mshflex1.col=1 then '你放文件路径的列 ShellExecute me.hwnd,"open",mshflex1.text,"","",0 end if end sub
if mshflex1.col=1 then '你放文件路径的列
ShellExecute me.hwnd,"open",mshflex1.text,"","",0
end if
end sub