ListView 控制 VB.net

最新推荐文章于 2024-07-23 15:24:48 发布

yinzhiqing

最新推荐文章于 2024-07-23 15:24:48 发布

阅读量2.8k

点赞数

分类专栏：技术文档文章标签： listview vb.net integer string list function

本文链接：https://blog.csdn.net/yinzhiqing/article/details/4584048

版权

这段代码展示了如何在VB.NET中初始化、添加数据、获取数据、删除数据以及更新ListView控件的操作。提供了包括设置列、添加行、选择行、删除行等功能的方法。

摘要由CSDN通过智能技术生成

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