主题：如何在内置聊天窗用代码发送文件、消息

全局代码在这里写

 

http://www.foxtable.com/webhelp/scr/1842.htm

 

 我直接复制粘贴代码进去，没问题。请认真测试。

我照抄21楼代码，在foxtable的qqClient项目没问题，请自行认真测试。

多次测试运行，没有发现问题。

 

你先把bin文件夹删除，再测试。

 

你用foxtable自带的例子测试有没问题？

 

项目文件夹下，bin文件夹。

1、登陆窗口，你要设置成模式窗口；不可能出现菜单画面的。

 

2、AfterOpenProject代码修改一下

 

Forms("登陆").Show

DataTables.Save

BaseMainForm.Close

 

你登陆按钮编写肯定有问题，请照着21楼去做，如果还有问题，做个例子上来测试。

汗，登陆按钮的代码改成这样

 

If QQClient.Ready Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = e.Form.Controls("txtIP").Value  '指定服务器IP地址
QQClient.ServerPort = e.Form.Controls("txtPort").Value  '指定服务器端口
QQClient.UserName = e.Form.Controls("cmbDepartment").Value & "." & e.Form.Controls("txtUserName").Value '指定登录用户名
QQClient.Password = e.Form.Controls("txtPassword").Value
If QQClient.Start() = True '如果登录成功
    e.Form.Controls("btnChat").Enabled = True
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    popMessage(msg,"提示",PopiconEnum.Infomation,5)
   
    Forms("登录窗口").BaseForm.opacity = 0
   
    qqClient.OpenChatWindow
   
    Dim frm As windows.forms.form = Application.OpenForms("frmTalker")
    If frm IsNot Nothing Then
        addhandler frm.closed, addressof Form_Click
    End If
   
Else '如果登录失败,显示服务器返回错误信息
    e.Form.Controls("btnChat").Enabled = False
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

 

例子测试没问题，请认认真真测试。