_ItemCheck(ByVal Item As MSComctlLib.ListItem)在这个事件里处理.Item就是被你点的那一行判断一下是哪一行被点了,然后SHOW指定的窗体就行.
关于Item是不是这样写啊? ListView.Item(1)
Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem) Debug.Print Item.Text & " " & item.index End SubITEM就是你单击的那一行它的INDEX就是你要的你在这个事件里判断某个唯一值(INDEX,TEXT,KEY都行,看你自己需求),再LOAD相应窗体就OK.用个Select语句.
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 LongDim appdisk$ Private Sub Form_Load() appdisk=Iif(right(app.path,1)="\",app.path,app.path & "\") End SubPrivate Sub ListView1_Click() ShellExecute hwnd, "OPEN", appdisk & ListView1.SelectedItem, "", "", 1 End Sub
ListView.Item(1)
Debug.Print Item.Text & " " & item.index
End SubITEM就是你单击的那一行它的INDEX就是你要的你在这个事件里判断某个唯一值(INDEX,TEXT,KEY都行,看你自己需求),再LOAD相应窗体就OK.用个Select语句.
Private Sub Form_Load()
appdisk=Iif(right(app.path,1)="\",app.path,app.path & "\")
End SubPrivate Sub ListView1_Click()
ShellExecute hwnd, "OPEN", appdisk & ListView1.SelectedItem, "", "", 1
End Sub