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
