首页>>软件资讯 >>列表

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

2022-11-23 16:54:03 字号:

以前的的发送消息按钮事件改写如下: '/////////////////////转到发送即时消息页面 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("


富德生命人寿 www.sino-life.com