Foxtable(狐表)用户栏目专家坐堂 → [求助]如何正确自定义信息提示窗口?


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

主题:[求助]如何正确自定义信息提示窗口?

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
[求助]如何正确自定义信息提示窗口?  发帖心情 Post By:2016/1/15 21:59:00 [只看该作者]

按教程step by step 设置信息提示窗口,结果提示窗口未如愿弹出。

步骤如下

QQ服务器用户表如下:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160115212531.png
图片点击可在新窗口打开查看

 

1.在全局代码中定义一个Public变量:

Public fhs As New List(of String)

 

3. QQClient.Send("公司.黄雄","+@|" & "本月应付报表已上报,请审批" & "|" & _UserName)
4.QQClient.Send("公司.吉芳","-@|" & "本月应付报表已审批" & "|" & _UserName)

 

"公司.黄雄"是否正确?或者应该"黄雄"??

 

5.在OpenQQ客户端的MessageReceived事件中编写代码:


Dim pts() As String  = e.Message.Split("|")
If pts.Length = 3 AndAlso pts(0) = "+@" '如果是申请审核消息
    fhs.Add(pts(1) & "|" & pts(2))
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
    PopMessage("本月应付报表" & "已由" & pts(2) & "审批通过!")
End If


6、在客户端项目新建一个下图所示的窗口,窗口名为“应付上报”,窗口类型设置为PopupForm:


7.在项目事件SystemIdle中加入代码:
If fhs.Count > 0 AndAlso Forms("应付上报").Opened = False Then
    Dim pts() As String = fhs(0).Split("|")
    fhs.RemoveAt(0)
    With Forms("应付上报")
        .Open()
        .Controls("Label1").Text = pts(2) & "上报本月应付报表" & ",请审核!"
    End With
End If



 


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/1/15 22:00:00 [只看该作者]

把问题放这,等明天老师来解答。

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/16 8:53:00 [只看该作者]

"公司.黄雄" 正确

MessageReceived事件用msgbox能不能弹出?

UserLogging事件是怎样定义的?

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/1/16 9:41:00 [只看该作者]

以下是引用Hyphen在2016/1/16 8:53:00的发言:
"公司.黄雄" 正确

MessageReceived事件用msgbox能不能弹出?

UserLogging事件是怎样定义的?

测试用内置聊天窗口可以正常收发信息。

 

MessageReceived事件用PopMessage也不能弹出:

 

Dim pts() As String  = e.Message.Split("|")
If pts.Length = 3 AndAlso pts(0) = "+@" '如果是申请审核消息
    'fhs.Add(pts(1) & "|" & pts(2)) '将主健?单号和制单人合成为一个字符串存储在集合中
 PopMessage("本月应付报表" & pts(1) & "已由" & pts(2) & "上传!")
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
    PopMessage("本月应付报表" & pts(1) & "已由" & pts(2) & "审批通过!")
  End If


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/1/16 9:42:00 [只看该作者]

MessageReceived事件为什么没有触发?


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/16 9:55:00 [只看该作者]

QQClient.Send使用不正确,贴出完整代码

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/1/16 12:04:00 [只看该作者]

还是搞不定,麻烦Hyphen给看看.

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:openqq.zip

 

副本是QQ服务器,空密码。

 

测试窗口“上传”按钮代码

 

QQClient.Send("银象.贺辉","+@|" & "本月应付报表已上报,请审批" & "|" & _UserName)

 

OpenQQ客户端的MessageReceived事件代码:

 

Dim pts() As String  = e.Message.Split("|")
If pts.Length = 3 AndAlso pts(0) = "+@" '如果是申请审核消息
    PopMessage("本月应付报表" & "已由" & pts(2) & "上传!")
End If


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2016/1/16 12:10:00 [只看该作者]

原来是“离线发送”的原因!

改为:

QQClient.Send("银象.贺辉","+@|" & "本月应付报表已上报,请审批" & "|" & _UserName,True)

 

就好了。

 


 回到顶部