主题：[求助]发布后提示“给定关键字不在字典中”

弹出各个值看看

Case  1   '用户名节点
    Dim name As String = nd.parentNode.name & "." & nd.Name
    If name <> user.group & "." & user.Name Then
msgbox(name)
msgbox(QQClient.Buddies.Contains(name))
        Dim bd As QQBuddy = QQClient.Buddies(name)

不要在timertick事件里测试。单独做一个按钮，输入代码，点击测试。

Case  1   '用户名节点
    Dim name As String = nd.parentNode.name & "." & nd.Name
    If name <> user.group & "." & user.Name Then
msgbox(name)
msgbox(QQClient.Buddies.Contains(name))
        Dim bd As QQBuddy = QQClient.Buddies(name)

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110958&authorid=0&page=0&star=2