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

已提示附件上传成功，怎么会没有？我上传的是qqclient.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qqclient.table

改为模式窗口

测试了一下，除了窗口，菜单还是能显示。

我测试没有问题。说明你的测试步骤，并截图说明。

我是用foxtabe2016试用版测试的。将代码Forms("登录窗口").Open()

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qqclient_201710082056.zip

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

 

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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qqclient_201710091010.zip