以下是引用13055984798在2017/9/28 16:59:00的发言:
我想单独做个聊天软件,项目启动后,只显示openqq用户的登录窗,点击确认后,打开内置聊天窗。整个过程要求不显示多余的画面,能不能实现?
全局代码
Public Sub Form_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs)
Forms("登陆").Close
End Sub
afterOpenProject事件
Forms("登陆").Show
basemainform.Close
登陆窗口登陆按钮执行
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