主题：[求助]利用代码向选择的接收人发送信息

1、正确

2、

dim ary() As String = e.Form.Controls("CheckedComboBox1").text.split(",")
For Each s As String In Ary
    msgbox(s)
    QQClient.Send(s,e.Form.Controls("TextBox1").text,True)   '可离线发送
Next

------------------

For Each us As UserInfo In Users
    'MessageBox.Show(us.Group &"."& us.Name)
    Dim cmb As WinForm.CheckedComboBox
    cmb = Forms("窗口1").Controls("CheckedComboBox1")
    cmb.items.add(us.Group &"."& us.Name)
Next

1、你要防止不同group下有同名username。

2、你要根据username在users里面查找对应的值，如

Dim ary() As String = e.Form.Controls("CheckedListBox1").Value.split(",")   '复选列表框
For Each s As String In Ary
    msgbox(s)
    For Each u As UserInfo In Users
        If s = u.Name Then
            QQClient.Send(u.Group & "." & u.Name,e.Form.Controls("TextBox1").text,True)   '可离线发送
        End If
    Next
Next