Question

vb 如何替换 listview 表内的数据

如图，listview1 中点击COMMAND1事件后，原状态栏的“未计算”替换成成“已完成”，怎么改？
准确的说就是如何替换listview列表中的数据？

Answer 1

’一个函数

Public Function SetListViewText(lstView As ListView, lpText As String, ByVal lpRow As Integer, ByVal lpCol As Integer) As Boolean

    If lstView.View <> lvwReport Then lstView.View = lvwReport

    If lstView.ListItems.Count < lpRow Then Exit Function

    If lstView.ColumnHeaders.Count < lpCol Then Exit Function

    lstView.ListItems.Item(lpRow).SubItems(lpCol) = lpText

    SetListViewText = True

End Function

’使用

Private Sub Command1_Click()

    SetListViewText ListView1, "VB6", 2, 2

End Sub