Question

VB Listview 怎么判断Items是否被选中?

如标题所示,急,在线等!

比如 如果被选中了就执行某个代码,没有被选中就不执行
Function SelectItem(ByRef objLv As ListView, ByVal X As Single, Y As Single) As Boolean
On Error GoTo aErr
Dim objItem As ListItem
Set objItem = objLv.HitTest(X, Y)
objLv.ListItems(objItem.Index).Selected = True
SelectItem = True
Exit Function
aErr:
SelectItem = False
End Function

这样的啊 ``

x,y Down 或者Up时间获取

Answer 1

说的是ListBox吗？

List1.ListIndex 返回当前被选择项。
另外在Click和KeyDown之类的事件中加入监视代码就行

Answer 2

listview 属性页不是有 复选框

如果选中某行，listview.listitems(i).checked = true 表示选中

Answer 3

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.SelectedItem.Text = "xxxxx" Then
MsgBox ListView1.SelectedItem.Text
End If
End Sub

Answer 4

1If
ListView1.SelectedItem.Text
=
"xxxxx"
ThenPrivate
Sub
ListView1_ItemClick(ByVal
Item
As
MSComctlLib.ListItem)
MsgBox
ListView1.SelectedItem.TextEnd
IfEnd
Sub