Public Class ListViewOperation
Shared bRowsNum As Boolean = False
'初期化ListView
‘lstCTL :ListView控件变量
’columns() :一维字符串数组,ListView的列标题
Public Shared Sub list_init(ByRef lstCTL As System.Windows.Forms.ListView, ByVal columns() As String, Optional ByVal RowNum As Boolean = False)
If lstCTL Is Nothing Then
Exit Sub
End If
Dim lstComm As System.Windows.Forms.ListView = lstCTL
'clear old data
lstComm.Items.Clear()
lstComm.Columns.Clear()
lstComm.View = View.Details
lstComm.MultiSelect = True
lstComm.FullRowSelect = True
lstComm.HideSelection = False
Dim strColumn As String
'add RowNum
bRowsNum = RowNum
If bRowsNum Then
lstComm.Columns.Add(" ", 30)
End If
If columns Is Nothing Then
lstComm.View = View.List
lstComm.MultiSelect = False
Exit Sub
End If
'set column name
For Each strColumn In columns
If strColumn IsNot Nothing Then
If strColumn.Trim.Equals("") Then
Continue For
End If
lstComm.Columns.Add(strColumn, strColumn.Length * 6 + 50)
End If
If strColumn Is Nothing Then
Exit For
End If
Next
'set gridline type
lstComm.GridLines = True
End Sub
''' <summary>
''' 从ListView最后一行开始添加数据行
''' </summary>
''' <param name="lstCTL">ListView控件变量</param>
''' <param name="strItems">二维数组 第二维是行,第一维是一行的所有列</param>
''' <remarks></remarks>
Public Shared Sub list_addData(ByRef lstCTL As System.Windows.Forms.ListView, ByVal strItems()() As String)
If strItems I