VB.NET 中 使用 ListView 控件的简单例子

ListView 控件 在 程序开发过程中的使用是非常广泛的。因为其不支持数据库的绑定，所以在数据库程序开发领域无法与datagridview抗衡 ，但是ListView的确是一个非常好用的控件。下面就把 一个简单的 ListView的例子发出来。

 

Public   Class Form6 Class Form6
    ''' 

    ''' 英雄类
    ''' 

    ''' 
    Public Class heroClass hero
        Private s_name As String
        Private s_age As Long
        Private s_like As String
        Public Property myName()Property myName() As String
            Get
                Return s_name
            End Get
            Set(ByVal value As String)
                s_name = value
            End Set
        End Property
        Public Property myAge()Property myAge() As Long
            Get
                Return s_age
            End Get
            Set(ByVal value As Long)
                s_age = value
            End Set
        End Property
        Public Property myLike()Property myLike() As String
            Get
                Return s_like
            End Get
            Set(ByVal value As String)
                s_like = value
            End Set
        End Property
    End Class
    ''' 

    ''' 公共属性
    ''' 

    ''' 
    Dim arrLike() As String = {"杀人", "放火", "吸毒", "抢劫", "盗窃", "上吊", "自虐", "赌博", "偷窥", "飙车"}
    Dim heroList As New SortedList
    Dim maxNumber As Long
    Const firstName As String = "塞北的雪"
    Dim s_flag As Boolean

    ''' 

    ''' 生成随即爱好
    ''' 

    ''' 
    ''' 
    ''' 
    Private Function createLike()Function createLike(ByVal i As Long) As String
        Dim j As Long
        Dim k As Long
        Dim str As New System.Text.StringBuilder
        For j = arrLike.GetLowerBound(0) To arrLike.GetUpperBound(0)
            Dim rd As New System.Random(Environment.TickCount * (i + 1) * j / 100)
            k = System.Math.Round(rd.NextDouble * 100, 0)
            If k Mod 2 = 0 Then
                str.Append(" ")
                str.Append(arrLike(j))
            End If
        Next
        Return str.ToString
    End Function
    ''' 

    '''  装载数据
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnLoad_Click()Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        s_flag = True
        Me.lv1.CheckBoxes = True

        Dim i As Integer
        Const maxCount As Long = 10
        Dim iItem As ListViewItem
        Dim aHero As hero
        For i = maxNumber To maxNumber + maxCount - 1
            Dim rd As New System.Random(Environment.TickCount * i)
            aHero = New hero
            iItem = New ListViewItem
            aHero.myName = firstName & i.ToString
            aHero.myAge = System.Math.Round(rd.NextDouble * 100, 0)
            aHero.myLike = createLike(i)
            iItem.Text = aHero.myName
            iItem.Tag = aHero
            iItem.SubItems.Add(aHero.myAge)
            iItem.SubItems.Add(aHero.myLike)
            Me.lv1.Items.Add(iItem)
            heroList.Add(aHero.myName, aHero)
        Next
        maxNumber = i
        If Me.lv1.Items.Count > 0 Then
            Me.lv1.Items.Item(0).Checked = True
        End If
        s_flag = False
    End Sub
    ''' 

    ''' 选定所有项
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnCheckAll_Click()Sub btnCheckAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAll.Click
        s_flag = True
        If Me.lv1.Items.Count > 0 Then
            Dim i As Integer
            For i = 0 To Me.lv1.Items.Count - 1
                Me.lv1.Items.Item(i).Checked = True
            Next
        End If
        s_flag = False
    End Sub
    ''' 

    ''' 查找所有选定项
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnFindCheckted_Click()Sub btnFindCheckted_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindCheckted.Click
        Dim sb As New System.Text.StringBuilder
        If Me.lv1.Items.Count > 0 Then
            Dim i As Integer
            For i = 0 To Me.lv1.CheckedItems.Count - 1
                sb.AppendLine()
                sb.Append(Me.lv1.CheckedItems.Item(i).Text)
            Next
        End If
        MsgBox(sb.ToString)
    End Sub
    ''' 

    ''' 删除所有
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnDeleteAll_Click()Sub btnDeleteAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteAll.Click
        Me.lv1.Items.Clear()
        Me.heroList.Clear()
        maxNumber = 0
    End Sub
    ''' 

    '''  添加一项
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnAddOne_Click()Sub btnAddOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddOne.Click
        s_flag = True
        Dim iItem As New ListViewItem
        Dim aHero As New hero
        Dim rd As New System.Random(Environment.TickCount * maxNumber)
        aHero.myName = firstName & maxNumber.ToString
        aHero.myAge = System.Math.Round(rd.NextDouble * 100, 0)
        aHero.myLike = createLike(maxNumber)
        iItem.Text = aHero.myName
        iItem.Tag = aHero
        iItem.SubItems.Add(aHero.myAge)
        iItem.SubItems.Add(aHero.myLike)
        Me.lv1.Items.Add(iItem)
        heroList.Add(aHero.myName, aHero)
        s_flag = False
        maxNumber += 1
    End Sub

    Private Sub Form6_Load()Sub Form6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lv1.View = View.Details
        Me.lv1.HeaderStyle = ColumnHeaderStyle.Clickable
        Me.lv1.MultiSelect = True
        Me.lv1.FullRowSelect = True
        Me.lv1.GridLines = True

        Me.lv1.Columns.Add("姓名", 120, HorizontalAlignment.Center)
        Me.lv1.Columns.Add("年龄", 50, HorizontalAlignment.Right)
        Me.lv1.Columns.Add("爱好", 300, HorizontalAlignment.Left)

        Dim iItem As New ListViewItem
        Dim aHero As New hero
        Dim rd As New System.Random(Environment.TickCount)
        aHero.myName = "塞北的雪"
        aHero.myAge = System.Math.Round(rd.NextDouble * 100, 0)
        aHero.myLike = createLike(1)
        iItem.Text = aHero.myName
        iItem.Tag = aHero
        iItem.SubItems.Add(aHero.myAge)
        iItem.SubItems.Add(aHero.myLike)
        Me.lv1.Items.Add(iItem)
        heroList.Add(aHero.myName, aHero)
        Me.lv1.Items.Item(0).Selected = True
        maxNumber = 0
        s_flag = False
    End Sub
    ''' 

    ''' 删除所有选定项
    ''' 

    ''' 
    ''' 
    ''' 
    Private Sub btnDeleteSelected_Click()Sub btnDeleteSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSelected.Click
        If Me.lv1.Items.Count > 0 Then
            If Me.lv1.SelectedItems.Count > 0 Then
                Dim i As Integer
                Dim delList As New SortedList
                For i = 0 To Me.lv1.SelectedItems.Count - 1
                    heroList.Remove(Me.lv1.SelectedItems.Item(i).Text)
                    ' Me.lv1.Items.Remove(Me.lv1.SelectedItems.Item(i))
                    delList.Add(Me.lv1.SelectedItems.Item(i).Text, Me.lv1.SelectedItems.Item(i))
                Next
                For i = 0 To delList.Count - 1
                    Me.lv1.Items.Remove(delList.GetByIndex(i))
                Next
            End If
        End If
    End Sub

    Private Sub lv1_ItemCheck()Sub lv1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles lv1.ItemCheck
        If Me.lv1.Items.Count > 0 Then
            If s_flag = False Then
                If e.NewValue = CheckState.Checked And e.CurrentValue <> CheckState.Checked Then
                    MsgBox("你选择了：" & Me.lv1.Items.Item(e.Index).Text)
                ElseIf e.NewValue = CheckState.Unchecked And e.CurrentValue <> CheckState.Unchecked Then
                    MsgBox("你取消了：" & Me.lv1.Items.Item(e.Index).Text)
                End If
            End If
        End If
    End Sub



    Private Sub lv1_ItemChecked1()Sub lv1_ItemChecked1(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles lv1.ItemChecked
        If Me.lv1.Items.Count > 0 Then
            If s_flag = False Then
                If e.Item.Checked Then
                    MsgBox("你选择了：" & e.Item.Text)
                Else
                    MsgBox("你取消了：" & e.Item.Text)
                End If
            End If
        End If
    End Sub

    Private Sub btnUnCheckAll_Click()Sub btnUnCheckAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnCheckAll.Click
        s_flag = True
        If Me.lv1.Items.Count > 0 Then
            Dim i As Integer
            For i = 0 To Me.lv1.Items.Count - 1
                Me.lv1.Items.Item(i).Checked = False
            Next
        End If
        s_flag = False
    End Sub
End Class

 

程序运行的截图如下：