Foxtable(狐表) → 用户栏目 → 专家坐堂 → TopicBar显示openqq的信息


  共有3654人关注过本帖树形打印复制链接

主题：TopicBar显示openqq的信息
帅哥哟，离线，有人找我吗？
fendouww
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		TopicBar显示openqq的信息  发帖心情 Post By：2020/3/13 13:38:00 [只看该作者]

TopicBar能显示openqq的信息吗?
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 13:54:00 [只看该作者]

参考上面的代码把需要显示的任何内容（比如openQQ接收到的某某信息）添加到link里即可

 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2020/3/13 14:04:00 [只看该作者]

Dim Page As WinForm.TopicPage


Static OpenQQ As RibbonMenu.Button
Static LastTime As Date
If OpenQQ Is Nothing Then
    OpenQQ = ConfigBar.Items("OpenQQ")
End If
Dim txt As String
If QQClient.Ready
    If QQClient.UnreadCount > 0 Then
        txt = "(" & QQClient.UnreadCount & "条)"
    End If
End If
If OpenQQ.Text <> txt Then
    OpenQQ.Text = txt
End If
If OpenQQ.Text > "" Then
    Dim ntp As timeSpan = Date.Now - LastTime
    If ntp.TotalSeconds >= 0.5 Then
        LastTime = Date.Now
        If OpenQQ.ForeColor = Color.Red Then
            OpenQQ.ForeColor = Color.Transparent
        Else
            OpenQQ.ForeColor = Color.Red
        End If
    End If
End If

Page = e.Form.Controls("TopicBar1").Pages.Add("消息","消息")
Page.Links.Add("未读消息","今日未读消息(" & cnt1 & ")条" )
Page.Links.Add("已读消息","已读消息(" & cnt2 & ")条" )



这里代码要如何修改,我就简单显示有多少条未读
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110746 积分：563656 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 14:35:00 [只看该作者]

窗口afterload，如果要数量实时变化，可以把代码放到计时事件中

dim cnt1 as integer = 0
If QQClient.Ready
    cnt1 = QQClient.UnreadCount
End I
Page = e.Form.Controls("TopicBar1").Pages.Add("消息","消息")
Page.Links.Add("未读消息","今日未读消息(" & cnt1 & ")条" )
‘Page.Links.Add("已读消息","已读消息(" & cnt2 & ")条" )没有办法获取已读信息数
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询