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

2007-2-1　网友评论 0 条　点击进入论坛

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

今日推荐

• ·2008年十大IT技术
• ·中间件标准将推动我国数字电视市场发展
• ·解决生产企业的订单管理问题[图]
• ·大型格式化打印技术
• ·高质量显示技术

• ·开源历史回顾 Linux操作系统的发展与文化
• ·新手学堂：安装Linux应该了解的六个问题
• ·给初学者的建议 谈一谈怎样走入Linux大门
• ·Linux与其他操作系统区别
• ·重复数据删除技术在数据保护过程中的应用

重点推荐

领军企业技术文库

最新专题

电子杂志订阅

技术热点