关闭

在 ListView 中设置第一个可见的项目(原创)

标签: listviewcommandreport
4732人阅读 评论(4) 收藏 举报

一个朋友问到的,现公布出来,希望能有更好的方法。

要运行本实例,请在窗口上添加一个 ListView  和一个 Command。其中,ListView.View 设置为 Report,并添加一列。本程序将会定位Text为 "29" 的项出现在 ListView 的顶端。

Private Sub Command1_Click()
    ListView1.Visible 
= False
    
For i = ListView1.ListItems.Count - 1 To 0 Step -1
        ListView1.ListItems.Item(i).EnsureVisible
        
If ListView1.FindItem("29"= ListView1.GetFirstVisible Then
            
Set ListView1.SelectedItem = ListView1.ListItems(i)
            
Exit For
        
End If
    
Next
    ListView1.Visible 
= True
    ListView1.SetFocus
End Sub

Private Sub Form_Load()
    
For i = 1 To 100
        ListView1.ListItems.Add , , i
    
Next
End Sub
3
1

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:11270次
    • 积分:174
    • 等级:
    • 排名:千里之外
    • 原创:3篇
    • 转载:0篇
    • 译文:0篇
    • 评论:12条
    文章分类
    文章存档
    最新评论