老师 ,下列代码我放在窗口的afterload 当popMessage弹窗关闭后,导致所在窗口紧跟就关闭。谢谢!
If QQClient.Ready Then
MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
QQClient.ServerIP = "8.8.8.8"
QQClient.ServerPort = 52177 '指定服务器端口
If user.Type = UserTypeEnum.User Then '如果是普通用户
QQClient.UserName ="市场部.服务器"
QQClient.Password = "888"
End If
If QQClient.Start() = True '如果登录成功
Dim msg As String = "信息交流平台登录成功!"
popMessage(msg,"提示",PopiconEnum.Infomation,1)
Else '如果登录失败,显示服务器返回错误信息
MessageBox.Show("服务器未启动!","提示",MessageBoxButtons.AbortRetryIgnore,MessageBoxIcon.Error)
'Syscmd.Project.Exit(False)
End If
[此贴子已经被作者于2021/5/11 23:41:21编辑过]