怎么解决dictionary的此键已与该集合的一个元素关联

[想成技术牛]

Public Function CheckFocuse(TestObject)
If TestObject.CheckProperty ("focused", "true", "1")Then
CheckFocuse = True
Else
CheckFocuse = Faluse
End If
End Function

Const VK_TAB = 15
Set DeviceReplay = CreateObject("Mercury.DeviceReplay")
Set dic = CreateObject("Scripting.Dictionary")
dic.Add, dialog("Login").WinEdit("Agent Name:")
dic.Add, dialog("Login").WinEdit("Password:")
dic.Add, dialog("Login").WinButton("OK")
Dialog("Login").Activate
CheckFocuse(dic.Item("0"))

For i = 2 to dic.Count
If CheckFocuse(dic.Item(Cstr(i))) = False Then
Exit For
Else
Msgbox "ok"
End If

Next
在运行到 dic.Add, dialog("Login").WinEdit("Password:")时出现此键已与该集合的一个元素关联，怎么修改程序啊？

[X-i-n]

字典的使用场景是，通过KEY来做索引，存储相应的数据。KEY必须唯一，一个KEY对应一个VALUE，VALUE可以不唯一。没看明白你的键和值分别是什么。 新增或者修改的用法是下面这样： dic.Add key1, value1（向dic新增一个key1为索引的，value1为值的键值对） dic(key1)=value1（修改dic中key1为索引的对应键值为value1，如果key1不存在，则新增一个键为key1值为value1的键值对） 按这个改一下吧。

[想成技术牛]

这个修改ok啦，但是在运行中还报出缺少对象
但是我给他传了参数 CheckFocuse(dic.Item("1"))

[想成技术牛]

[赵4老师]

注释掉所有On Error Resume Next语句，在VB IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。

[X-i-n]

检查一下dic有没有一个key叫1的成员，看看dic.exists("1")的结果。 dic(1)第2个成员，key和"1"没有关系；dic("1")，key值为“1”的成员。

[X-i-n]

引用 4 楼 zhao4zhong1 的回复:

注释掉所有On Error Resume Next语句，在VB IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。

你是在哪儿看到他的代码里有“On Error Resume Next”的？

[赵4老师]

没有就跳过这一步，万一有呢？ 我回帖从来不仔细看一大堆代码的。

[X-i-n]

监视窗口看一下 TestObject是不是null

[X-i-n]

引用 7 楼 zhao4zhong1 的回复:

没有就跳过这一步，万一有呢？ 我回帖从来不仔细看一大堆代码的。

所以就无脑复制粘贴？

[赵4老师]

引用 9 楼 Runnerchin 的回复:

[quote=引用 7 楼 zhao4zhong1 的回复:] 没有就跳过这一步，万一有呢？ 我回帖从来不仔细看一大堆代码的。

所以就无脑复制粘贴？[/quote] 不是所以无脑复制粘贴，而是天生无脑复制粘贴。

[想成技术牛]

我看看dic.exists("1")这个是false，没有的，为什么呢，我用dic.add新增了三个 dic.Add dialog("Login").WinEdit("Agent Name:"),null dic.Add dialog("Login").WinEdit("Password:"),null dic.Add dialog("Login").WinButton("OK"),null

[X-i-n]

没有一个值为 "1" 的序号，dic(1)和dic("1")不是一回事。建议直接用key值去索引你要的对象。

dic.add("key1","value1")'这个成员的key index是0，key值是key1
dic.add("key2","value2")'这个成员的key index是1，key值是key2
dic.add("1","value2")'这个成员的key index是2，key值是"1"
dic.add("2","value2")'这个成员的key index是3，key值是"2"