ListView控件功能综合应用代码.docVIP

ListView控件的报表功能应用代码 功能；检查ListView控件是否已初始化 Public Function ListViewHead(ByRef ListViewName As ListView, ByRef ListViewArray() As Variant, ByVal ListViewTagName As String, ByVal IsCheckBoxes As Boolean) On Error GoTo ONERROR Static Initialize As Long Static ListViewTag() As Variant Dim i As Long Dim Head As Boolean ReDim Preserve ListViewTag(Initialize) For i = 0 To UBound(ListViewTag) If ListViewTagName = ListViewTag(i) Then Head = True Exit For Else Head = False End If Next If Head = False Then Call M