listbox问题（求代码

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:00:52
点command1,运行listbox里的第一个文件，点command2,运行listbox里的第2个文件

private sub command1_click()
shell list1.list(0)
end sub

private sub command2_click()
shell list1.list(1)
end sub

前提是你list里面添加的是全路径，相对路径的话，前面加app.path

ListBox? 还是FileListBox啊?
如果是后者的话,可以用
Public 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

这个API
一楼的有些问题,直接用Shell,是运行一个可执行文件,如果不是可执行文件,那要用相应的文件去打开,比如txt可以用记事本打开,而ShellExecute这个API函数,可以用系统默认的打开方式打开一个文件