以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  OpenQQ改到窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142458)

--  作者:cd_tdh
--  发布时间:2019/10/28 11:19:00
--  OpenQQ改到窗口

老师,我用窗口当主界面,原来OpenQQ是弄到配置栏的,现在弄到窗口中,

网络监视器中,请教一下这两个事件的代码怎么变通? 

Connected事件:

ConfigBar.Items("OpenQQ").SmallImage = GetImage("onqq.png")

 

Disconnected事件: 

ConfigBar.Items("OpenQQ").SmallImage = GetImage("offqq.png")

 

SystemIdle事件: 

\'统计OPenQQ消息数量
Static OpenQQ As RibbonMenu.Button
Static LastTime As Date
If OpenQQ Is Nothing Then
    \'OpenQQ =  ConfigBar.Items("OpenQQ")
    OpenQQ = Forms("主窗口").Controls("OpenQQ")
End If
Dim txt As  String
If QQClient.Ready
    If  QQClient.UnreadCount > 0 Then
        txt = "OpenQQ(" & QQClient.UnreadCount &  "条)"
    Else
        txt = "OpenQQ"
    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

[此贴子已经被作者于2019/10/28 11:28:03编辑过]

--  作者:有点蓝
--  发布时间:2019/10/28 11:23:00
--  
if forms("xx窗口").opened then
forms("xx窗口").controls("picturebox1").image = GetImage("onqq.png")
end if

--  作者:cd_tdh
--  发布时间:2019/10/28 11:42:00
--  
还需要判断打开,忘记判断了,怎么统计消息数量呢?
--  作者:有点蓝
--  发布时间:2019/10/28 11:51:00
--  
上面代码这个就是啊

txt = "OpenQQ(" & QQClient.UnreadCount &  "条)"