Question

我需要能够将一个组及其成员列表存储在某个变量中，这样我不仅可以添加新组，还可以编辑其成员。

例如
第1组 - 史蒂夫，西蒙，刘易斯第2组 - 莎莉，巴兹，马克

我希望能够在任何群组中添加或删除某个人，但也可以添加新群组。如何实现它的一个例子也将非常感激!!

希望这是有道理的，先谢谢！

版

Answer 1

您可能不需要创建新类。这样做。

Dim Groups As List(Of List(Of String))
Sub AddPerson(Group As Integer, Name As String)
Groups(Group - 1).Add(Name)
End Sub
Sub DelPerson(Group As Integer, Name As String)
Groups(Group - 1).Remove(Name)
End Sub
Sub AddGroup(Members As List(Of String))
Groups.Add(Members)
End Sub
Sub DelGroup(Members As List(Of String))
Groups.Remove(Members)
End Sub
Sub ChangePerson(Group As Integer, Original As String, [New] As String)
Groups(Group - 1).Insert(Groups(Group - 1).IndexOf(Original), [New])
Groups(Group - 1).Remove(Original)
End Sub
Function InGroup(Person As String) As Integer
For Each Group As List(Of String) In Groups
If Group.Contains(Person) Then Return Groups.IndexOf(Group) - 1 
Next
End Function
Sub ChangeGroupNum(Original As Integer,[New] As Integer)
Groups.Insert([New] - 1,Groups(Original - 1))
Groups.RemoveAt(Original)
End Sub
etc.

vb.net - 如何存储每个组成员的组列表？

1 个答案: