求教listview 如何始终显示添加数据最后一行
如题求教listview 如何始终显示添加数据最后一行 vb 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
这段代码将移动滚动条，保证第29条可见。你的可以举一反三。 我出个“歪招”，在上一个控件下面，加另外一个控件，专门显示上一控件的最后一行，例如总计之类。弄得好时可以天衣无缝，上面无论如何滚动，“最后一行”都岿然不动。
实际上，有些控件是考虑过这种需求的，不过易做图人的习惯是把固定行（例如表头、总计）放在表的开头，中式的表格用不上。
补充：VB , 基础类
