想实现自动选中所需的目标记录(由于记录比较多想同时实现界面显示自动调转)
我用的vb6.0
发现Microsoft Windows Common Controls 5.0(sp2)和Microsoft Windows Common Controls 6.0(sp3)
的listview控件
5.0和6.0都能选;但是5.0能自动调转到所选的目标,而6.0不行。但是有的功能6.0有的5.0没有,现在想用6.0,但又想实现跟5.0一样,能自动调转到所选的目标不知道各位高手有没有办法??
谢谢!!!
Dim its As ListItem
Dim its1 As ListItem
Dim I As Long
'5.0(sp2)
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
ListView1.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
ListView1.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
ListView1.View = lvwReport
For I = 1 To 30
Set its = ListView1.ListItems.Add(I, , I)
its.SubItems(1) = CStr(I) & "PID"
its.SubItems(2) = CStr(I) & "SSN"
its.SubItems(3) = CStr(I) & "JSID"
Next I
For I = 1 To ListView1.ListItems.Count If ListView1.ListItems(I).Text = "20" Then
ListView1.ListItems(I).Selected = True
End IfNext I
'''以下是6.0(sp3)
'' ListView2.ColumnHeaders.Clear
'' ListView2.ColumnHeaders.Add 1, , "姓名", 1000
'' ListView2.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
'' ListView2.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
'' ListView2.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
'' ListView2.View = lvwReport
'' ListView2.FullRowSelect = True
'' For I = 1 To 9
'' Set its1 = ListView2.ListItems.Add(I, , I)
'' its1.SubItems(1) = CStr(I) & "PID"
'' its1.SubItems(2) = CStr(I) & "SSN"
'' its1.SubItems(3) = CStr(I) & "JSID"
'' Next I
'' For I = 1 To ListView2.ListItems.Count
''
'' If ListView2.ListItems(I).Text = "7" Then
'' ListView2.ListItems(I).Selected = True
'' End If
''
'' Next I
我用的vb6.0
发现Microsoft Windows Common Controls 5.0(sp2)和Microsoft Windows Common Controls 6.0(sp3)
的listview控件
5.0和6.0都能选;但是5.0能自动调转到所选的目标,而6.0不行。但是有的功能6.0有的5.0没有,现在想用6.0,但又想实现跟5.0一样,能自动调转到所选的目标不知道各位高手有没有办法??
谢谢!!!
Dim its As ListItem
Dim its1 As ListItem
Dim I As Long
'5.0(sp2)
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
ListView1.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
ListView1.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
ListView1.View = lvwReport
For I = 1 To 30
Set its = ListView1.ListItems.Add(I, , I)
its.SubItems(1) = CStr(I) & "PID"
its.SubItems(2) = CStr(I) & "SSN"
its.SubItems(3) = CStr(I) & "JSID"
Next I
For I = 1 To ListView1.ListItems.Count If ListView1.ListItems(I).Text = "20" Then
ListView1.ListItems(I).Selected = True
End IfNext I
'''以下是6.0(sp3)
'' ListView2.ColumnHeaders.Clear
'' ListView2.ColumnHeaders.Add 1, , "姓名", 1000
'' ListView2.ColumnHeaders.Add 2, , "身份证号", 2200 'ListView1.Width / 2
'' ListView2.ColumnHeaders.Add 3, , "单位社保号", 2000 ' ListView1.Width / 3
'' ListView2.ColumnHeaders.Add 4, , "家属编号", 2000 ' ListView1.Width / 3
'' ListView2.View = lvwReport
'' ListView2.FullRowSelect = True
'' For I = 1 To 9
'' Set its1 = ListView2.ListItems.Add(I, , I)
'' its1.SubItems(1) = CStr(I) & "PID"
'' its1.SubItems(2) = CStr(I) & "SSN"
'' its1.SubItems(3) = CStr(I) & "JSID"
'' Next I
'' For I = 1 To ListView2.ListItems.Count
''
'' If ListView2.ListItems(I).Text = "7" Then
'' ListView2.ListItems(I).Selected = True
'' End If
''
'' Next I
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货