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)
s_like = value
End Set
End Property
End Class
'''
'''公共属性
'''
'''
Dim arrLike() As String = {"杀人", "放火", "吸毒", "抢劫", "盗窃", "上吊",
"自虐", "赌博", "偷窥", "飚车"}
Dim heroList As New SortedList
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
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
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
'''
'''英雄类
'''
'''
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
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
'''
'''选定所有项
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))
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)
'''查找所有选定项
'''
'''
'''
'''
Private Sub btnFindCheckted_Click()Sub btnFindCheckted_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles btnFindCheckted.Click
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)
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
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 /
'''
'''
'''
'''
Private Sub btnCheckAll_Click()Sub btnCheckAll_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btnCheckAll.Click
s_flag = True
Dim maxNumber As Long
Const firstName As String = "塞北的雪"
Dim s_flag As Boolean
'''
'''生成随即爱好
'''
'''
'''
'''
Private Function createLike()Function createLike(ByVal i As Long) As
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)
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
'''
delList.Add(Me.lv1.SelectedItems.Item
(i).Text,Me.lv1.SelectedItems.Item(i))
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
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
'''
'''装载数据