- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何正确自定义信息提示窗口？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80091)
-- 发布时间：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
-- 发布时间：2016/1/15 22:00:00
--
把问题放这，等明天老师来解答。
-- 发布时间：2016/1/16 8:53:00
--
"公司.黄雄" 正确
MessageReceived事件用msgbox能不能弹出？
-- 发布时间：2016/1/16 9:41:00
--
"公司.黄雄" 正确
MessageReceived事件用msgbox能不能弹出？
测试用内置聊天窗口可以正常收发信息。
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
-- 发布时间：2016/1/16 9:42:00
--
MessageReceived事件为什么没有触发？
-- 发布时间：2016/1/16 9:55:00
--
QQClient.Send使用不正确，贴出完整代码
-- 发布时间：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
-- 发布时间：2016/1/16 12:10:00
--
原来是“离线发送”的原因！
改为：
QQClient.Send("银象.贺辉","+@|" & "本月应付报表已上报,请审批" & "|" & _UserName,True)
就好了。