您的位置：首页 → 精文荟萃 → 软件资讯 → 改写即时消息的发送，包含同时给多人发送信息！

改写即时消息的发送，包含同时给多人发送信息！

时间：2004/10/8 13:15:00来源：本站整理作者：蓝点我要评论(2)

   以前的的发送消息按钮事件改写如下：
  '/////////////////////转到发送即时消息页面
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
   Dim i, j As Integer
   j = 0
   Dim tostu_id As String = ""
   For i = 0 To mycheck.Items.Count - 1
   If mycheck.Items(i).Selected Then
   '////////////////////////限制发送条数
   j = j + 1
   If j < 6 Then
   '/////////////////////参数构造
   tostu_id = tostu_id & CheckBoxList1.Items(i).Text & "@"
   Else
   Label2.Visible = True
   Label2.Text = "一次最多能给五个用户发送信息！"
   Return
   'Response.Write("

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有2条评论>>

发表评论

我来说两句...

提交评论