浮光掠影

Beta To Release

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

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

要运行本实例,请在窗口上添加一个 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
阅读更多

扫码向博主提问

去开通我的Chat快问

caozhy

非学,无以致疑;非问,无以广识
  • 擅长领域:
  • C#
  • ASP.NET
  • 深度学习
  • 英语
  • VB
文章标签: listview command report
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭