[已解决]如何判断listview控件有没有选择内容？

蝶·舞

我在窗体中插入Listview控件，并进行赋值，但我想删除某行时，我的操作是选中某行，然后用ListItems.Remove .SelectedItem.Index进行删除选中的行，但如果我根本就没有选择内容（也就是我没有选中任何一行），点击删除按钮，会自动删除第一行，那么我该如何判断我到底有没有选择内容呢？

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-3-10 21:25

方法2可以先定义模块级变量
Private n&
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) '单击标题行的事件
  n = Item.Index
End Sub
然后在删除的单击按钮事件中判断 n 值

跳转到最佳答案楼层

雪舞子

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) '单击标题行的事件
  MsgBox Item.Index
End Sub

蝶·舞

雪舞子 发表于 2016-3-10 20:38
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) '单击标题行的事件
  MsgBox Item ...

但是我根本就没有选择Listview控件中的任何一行，然后点击“删除"按钮，也会自动删除第一行，我的要求是：如果我没有选择任何行，那么点击”删除"按钮时没有任何动作发生

雪舞子

蝶·舞 发表于 2016-3-10 20:41
但是我根本就没有选择Listview控件中的任何一行，然后点击“删除"按钮，也会自动删除第一行，我的要求是： ...

ListView1初始化默认是选中第一行的，
因此有两种办法：
1 在 Private Sub UserForm_Initialize() 中加上一句：  ListView1.ListItems(1).Selected = False

2 如果选中某行必然要参数单击事件，
因此可以在
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
事件中 判断 Item.Index
如果为0则未选中任何行。

雪舞子

方法2可以先定义模块级变量
Private n&
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) '单击标题行的事件
  n = Item.Index
End Sub
然后在删除的单击按钮事件中判断 n 值

ghostjiao

1.     Dim myItem
   
2.     Set myItem = Me.ListView1.SelectedItem
   
3.     If myItem Is Nothing Then
   
4.         MsgBox 1
   
5.     Else
   
6.         MsgBox 0
   
7.     End If

复制代码