问题与在字典

Question

存储对象这里是我的代码示例输出，一个简单的聊天程序：

John says: Hello there! 
Marsha says: Hi there! 
John says: First sentence. 
Marsha says: Second Sentence. 

在TextBox控件，它看起来像以上。然而，在使用的字典中存储的谈话，这将是这样的：

John says: First sentence. 
Marsha says: Hi there! 
John says: First sentence. 
Marsha says: Second sentence. 

我已经在我的代码几次......我的生命，我不能告诉正是我这可能会出错。

我追踪的问题到sendmsgbutton方法，这里介绍：

Private Sub sendMsgButton_Click(sender As System.Object, e As System.EventArgs) Handles sendMsgButton.Click 
    If rtnConnectStatus(t) = False Then 
     RaiseEvent statusCheck("Not Connected" + ControlChars.CrLf) 
    Else 
     Dim completeMsg As String 
     msg.Name = nameText.Text 
     msg.Message = msgTxt.Text 
     completeMsg = msg.ToString 
     msgRecorded.Text &= completeMsg 
     RaiseEvent statusCheck("Message Sent." + ControlChars.CrLf) 
     msgList.Add(msgListIndex, msg) 
     'RaiseEvent debugBox(msg, msgListIndex) 
     msgListIndex += 1 
     RaiseEvent DataSend(completeMsg) 
     msgTxt.Clear() 
    End If 
End Sub 

这里是msgList继承了字典类：

Public Class MsgDictionary 
    Inherits DictionaryBase 

Public Property Item(ByVal key As Integer) As MsgObj 
    Get 
     Return CType(Dictionary(key), MsgObj) 
    End Get 
    Set(ByVal m As MsgObj) 
     Dictionary(key) = m 
    End Set 
End Property 

Public Sub Add(ByVal index As Integer, ByVal m As MsgObj) 
    Dictionary.Add(index, m) 
End Sub 

End Class 

我的下一个测试是看它的只有的消息值或名称值是否也受此影响。

非常感谢您提前给予的帮助/建议。

编辑：只是为了澄清，每个字典条目的名称和字符串部分作为单个字典对象的属性。

Answer 1

问题很明显：当现实需要不同的东西时，你正在考虑一个字典执行一个一个的关联。你的代码将“John说：”关联到“你好！”然后到“第一句话”。 （你最终看到的价值）。你必须做的是将“John说：”与一系列动作联系起来。

如果你想依靠一个字典，你应该重新定义它，使得它可以在每个关键值的列表关联，那就是：

Dim newDic = New Dictionary(Of String, List(Of String)) 

，然后你可以用填充它正确的信息。例如：

Dim msgList As New List(Of String) 
msgList.Add("Hello there!") 
msgList.Add("First sentence.") 
newDic.Add("John says:", msgList) 

从逻辑上讲，你必须去适应这个代码，你真正需要的（即，重新定义您的自定义字典和数据类型）。