[求助]怎样设置在线、离线用户图标 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样设置在线、离线用户图标

共有1835人关注过本帖树形打印复制链接主题：[求助]怎样设置在线、离线用户图标

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/13 23:12:00 [只看该作者]

执行这个代码，对比弹出结果

For Each bd As QQBuddy In QQClient.Buddies
msgbox(bd.Name & vbcrlf & nd.parentNode.name & "." & nd.Name)
Next

jyh7081

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2017/12/13 23:38:00 [只看该作者]

格式都一样，但关不了，不停的出......

[此贴子已经被作者于2017/12/14 12:37:43编辑过]

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/14 8:44:00 [只看该作者]

试试

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

Select Case nd.Level

Case 0 '组节点

nd.Ic

Case 1 '用户名节点

Dim logon As Boolean

For Each bd As QQBuddy In QQClient.Buddies '显示好友名和在线状态

If bd.name = nd.name Then

logon = True

If bd.Online Then

nd.Ic

Else

nd.Ic

End If

Exit For

End If

If logon = False Then nd.Ic

End Select

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/14 8:54:00 [只看该作者]

报错【给定关键字不在字典中】的节点是哪一个？全部节点都报错？

jyh7081

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2017/12/14 11:46:00 [只看该作者]

这样是不报错了，但是在线和离线没能区分。（另外，倒数第三行代码If logon = False Then nd.Ic，是什么？）

我从项目拆分出个实例，麻烦老师给看一下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:团队通讯.part1.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:团队通讯.part2.rar

[此贴子已经被作者于2017/12/14 11:52:27编辑过]

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/14 12:15:00 [只看该作者]

哦，忘记判断本人了，参考

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    Select Case nd.Level
        Case 0   '组节点
            nd.IconFile = "组.ico"
        Case 1   '用户名节点
            Dim name As String = nd.parentNode.name & "." & nd.Name
            If name <> user.group & "." & user.Name Then
                Dim bd As QQBuddy = QQClient.Buddies(name)
                If bd.Online Then
                    nd.IconFile = " d: \在线.ico"
                Else
                    nd.IconFile = " d: \离线.ico"
                End If
            Else
                nd.IconFile = " d: \在线.ico"
            End If
    End Select
Next

[此贴子已经被作者于2017/12/14 12:18:32编辑过]

有点甜

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/14 12:18:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    Select Case nd.Level
        Case 0   '组节点
            nd.IconFile = "组.ico"
        Case 1   '用户名节点
            Dim name As String = nd.parentNode.name & "." & nd.Name
            If name <> user.group & "." & user.Name Then
                If QQClient.Buddies.Contains(name) Then
                    Dim bd As QQBuddy = QQClient.Buddies(name)
                    If bd.Online Then
                        nd.IconFile = " d: \在线.ico"
                    Else
                        nd.IconFile = " d: \离线.ico"
                    End If
                Else
                    nd.IconFile = " d: \离线.ico"
                End If
            Else
                nd.IconFile = " d: \在线.ico"
            End If

    End Select
Next

jyh7081

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：957 积分：8434 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2017/12/14 12:38:00 [只看该作者]

谢谢版主！很完美！

此主题相关图片如下：image 1.jpg

下一主题 >> << 上一主题

总数 18 上一页 1 2

主题：[求助]怎样设置在线、离线用户图标