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

	 

	 

	 

	Public Class Form6Class 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

	————————————————

	版权声明：本文为CSDN博主「gujiawei_27」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。

	原文链接：https://blog.csdn.net/gujiawei_27/article/details/6471455