Question

求教：VB中关于Dictionary添加key、item时出错了？

我用VB画了如上图的一个窗体，想通过点击Command1，将text1,text2中的输入内容分别作为key/item添加到一个Dictionary中，每点击一次，就添加一对key/item。代码如下：
Dim d As Object
Private Sub Form_Load()Set d = CreateObject("Scripting.dictionary")
End Sub
Private Sub Command1_Click()d.Add Text1, Text2
End Sub

运行结果是，比如，第一次输入：1，A；在添加第二次时，输入2，B；系统弹出错误如下图：

求解，这是什么情况？
关键字分别是1和2，怎么会警告有重复的呢？还是“d.Add Text1, Text2”不能这么用？





Answer 1

Private Sub Command1_Click()
d.Add Text1.text, Text2.text
End Sub

可以根据需要val(text1.text) 如果你的key都是数字的话

按照你写的，text1作为控件名， text2作为另一个控件名，他们本身在程序formload之后是不变的，点两次就会出问题了

Answer 2

要分别add，不能 add text1，text2，要 d.add text1 换行d.add text2