[求助]如何正确自定义信息提示窗口？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按教程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

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

"公司.黄雄" 正确

MessageReceived事件用msgbox能不能弹出？

UserLogging事件是怎样定义的？

以下是引用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

MessageReceived事件为什么没有触发？

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

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

还是搞不定，麻烦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

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

改为：

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

就好了。

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