以文本方式查看主题

-  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=81086)
--  作者：13865161910
--  发布时间：2016/2/18 12:05:00
--  [求助]OpenQQ问题
在客户端加入了OpenQQ功能，点击QQClient按钮进行登陆后进入聊天内置聊天窗口，但关闭登录的窗口后，再次点击“QQClient”按钮直接就弹出聊天窗口，如何进行退出操作呢？
另外，提醒功能只有在菜单上才能显示吗？能否在自定的窗口设置一个按钮，实现登录图标变为online，退出变成offline，并且在登录状态，有消息提醒时有闪烁提示？
因为帮助中的代码实在菜单中实现的，而我做的是一个独立的模式窗口，抛开了FT的菜单。
--  作者：大红袍
--  发布时间：2016/2/18 12:39:00
--  

1、直接stop

 

http://www.foxtable.com/help/topics/2989.htm

 

2、肯定可以，对菜单控件的引用，改成对窗口控件的引用即可。
--  作者：13865161910
--  发布时间：2016/2/18 13:32:00
--  回复：（大红袍）1、直接stop http://www.fo...
帮助文件中的消息提醒：


3、假定这个新增按钮名称为"OpenQQ"，在菜单的SystemIdle事件增加以下代码：

\'此段代码用于显示OpenQQ的未读消息
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

\'此段代码用于显示OpenQQ的未读消息


如果我是在模式窗口使用的一个按钮，名称为OpenQQ【Forms("主窗体").Controls("OpenQQ")】，用以显示未读消息提醒，上面的代码改如何修改呢？依然写在菜单的SystemIdle事件中吗？
--  作者：大红袍
--  发布时间：2016/2/18 14:20:00
--  

写到timertick事件里去

 

http://www.foxtable.com/help/topics/1301.htm

 

 

Static OpenQQ As winForm.Button
If OpenQQ Is Nothing Then
    OpenQQ = e.Form.Controls("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
    If OpenQQ.ForeColor = Color.Red Then
        OpenQQ.ForeColor = Color.Transparent
    Else
        OpenQQ.ForeColor = Color.Red
    End If
End If