[已解决]点击 Listview 效果如按住 Ctrl + 鼠标左键！向老师求助！

js5

GIF图：保持 蓝色高亮


压缩包：
窗体.Listview控件一中数据去除重复01一SQL and VBA 单元格取值.rar (20.66 KB, 下载次数: 34)

2017-9-2 22:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

80013025

2017-9-11 16:33

1. Private Sub ListView1_Click()
   
2. With ListView1
   
3.                     .SelectedItem.Checked = Not .SelectedItem.Checked
   
4.       
   
5.        For n = 1 To .ListItems.Count
   
6.        For j = 1 To .ColumnHeaders.Count - 1
   
7.       
   
8.                  If .SelectedItem.Checked = True Then
   
9.                     .SelectedItem.ListSubItems(j).Bold = True
   
10.                     Else
    
11.                     .SelectedItem.ListSubItems(j).Bold = False
    
12.                     
    
13.              End If
    
14.                     
    
15.                  If .ListItems(n).ListSubItems(1).Bold = True Then
    
16.                     .ListItems(n).Selected = True
    
17.              End If
    
18.       
    
19.        Next
    
20.        Next
    
21.             .Refresh
    
22. End With
    
23. End Sub

复制代码

用了个笨方法，看别的老师有没有好的方法实现！

跳转到最佳答案楼层

zjdh

还是添加选项框吧
ListView2.CheckBoxes = True

js5

zjdh 发表于 2017-9-3 13:39
还是添加选项框吧
ListView2.CheckBoxes = True

zjdh老师

我想要的是 被点击的行 高亮显示

老师有没有办法·！？

让ListView能有下图这点击效果。（下面的附件是一位高手写的！）

ListBox效果： 多选.rar (32.4 KB, 下载次数: 37)

2017-9-3 14:29 上传

点击文件名下载附件

js5

{:31:}老师快来呀！

02761752696

谢谢   分享

80013025

1. Private Sub ListView1_Click()
   
2. With ListView1
   
3.                     .SelectedItem.Checked = Not .SelectedItem.Checked
   
4.       
   
5.        For n = 1 To .ListItems.Count
   
6.        For j = 1 To .ColumnHeaders.Count - 1
   
7.       
   
8.                  If .SelectedItem.Checked = True Then
   
9.                     .SelectedItem.ListSubItems(j).Bold = True
   
10.                     Else
    
11.                     .SelectedItem.ListSubItems(j).Bold = False
    
12.                     
    
13.              End If
    
14.                     
    
15.                  If .ListItems(n).ListSubItems(1).Bold = True Then
    
16.                     .ListItems(n).Selected = True
    
17.              End If
    
18.       
    
19.        Next
    
20.        Next
    
21.             .Refresh
    
22. End With
    
23. End Sub

复制代码

用了个笨方法，看别的老师有没有好的方法实现！