Foxtable(狐表)用户栏目专家坐堂 → [求助]OpenQQ问题


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

主题:[求助]OpenQQ问题

帅哥哟,离线,有人找我吗?
13865161910
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
[求助]OpenQQ问题  发帖心情 Post By:2016/2/18 12:05:00 [只看该作者]

在客户端加入了OpenQQ功能,点击QQClient按钮进行登陆后进入聊天内置聊天窗口,但关闭登录的窗口后,再次点击“QQClient”按钮直接就弹出聊天窗口,如何进行退出操作呢?
另外,提醒功能只有在菜单上才能显示吗?能否在自定的窗口设置一个按钮,实现登录图标变为online,退出变成offline,并且在登录状态,有消息提醒时有闪烁提示?
因为帮助中的代码实在菜单中实现的,而我做的是一个独立的模式窗口,抛开了FT的菜单。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/18 12:39:00 [只看该作者]

1、直接stop

 

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

 

2、肯定可以,对菜单控件的引用,改成对窗口控件的引用即可。


 回到顶部
帅哥哟,离线,有人找我吗?
13865161910
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
回复:(大红袍)1、直接stop http://www.fo...  发帖心情 Post By:2016/2/18 13:32:00 [只看该作者]

帮助文件中的消息提醒:


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事件中吗?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部