如何在ListView中做链接?

klj123 2008-03-22 10:32:04
如何在ListView中编写代码,实现点击显示在ListView的任何一行,就可以打开一个指定的窗体?请高手赐教!!!
...全文
81 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
klj123 2008-03-22
关于Item是不是这样写啊?
ListView.Item(1)
回复
_ItemCheck(ByVal Item As MSComctlLib.ListItem)

在这个事件里处理.

Item就是被你点的那一行

判断一下是哪一行被点了,然后SHOW指定的窗体就行.
回复
cbm6666 2008-03-22
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


回复
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语句.
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-22 10:32
社区公告
暂无公告