如何在ListView中做链接？

[klj123]

如何在ListView中编写代码，实现点击显示在ListView的任何一行，就可以打开一个指定的窗体？请高手赐教！！！

[嗷嗷叫的老马]

Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Debug.Print Item.Text & " " & item.index
End Sub

ITEM就是你单击的那一行

它的INDEX就是你要的

你在这个事件里判断某个唯一值(INDEX,TEXT,KEY都行,看你自己需求),再LOAD相应窗体就OK.

用个Select语句.

[cbm6666]

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

Dim appdisk$
Private Sub Form_Load()
appdisk=Iif(right(app.path,1)="\",app.path,app.path & "\")
End Sub

Private Sub ListView1_Click()
ShellExecute hwnd, "OPEN", appdisk & ListView1.SelectedItem, "", "", 1
End Sub

[嗷嗷叫的老马]

_ItemCheck(ByVal Item As MSComctlLib.ListItem)

在这个事件里处理.

Item就是被你点的那一行

判断一下是哪一行被点了,然后SHOW指定的窗体就行.

[klj123]

关于Item是不是这样写啊？
ListView.Item（1）