教程的代码也会报错吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 教程的代码也会报错吗？

共有3933人关注过本帖树形打印复制链接主题：教程的代码也会报错吗？

hitzfeld

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：537 积分：5272 威望：0 精华：0 注册：2017/9/1 23:28:00

教程的代码也会报错吗？ 发帖心情

Post By：2023/1/31 22:37:00 [只看该作者]

3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码：

Dim msg As String = e.Message
If msg.StartsWith(":p") AndAlso msg.EndsWith("p:") Then
    msg = msg.SubString(2, msg.Length - 4)
    If flbhs.ContainsKey(msg) Then '如果存在这个月的编号
        flbhs(msg) = flbhs(msg) + 1 '将该月最大编号加1
    Else
        flbhs.Add(msg,1) '如果是这个月的首次编号,则编号等于1
    End If
    e.ReturnValue = flbhs(msg) '将编号返回给客户端
End If