例子这种方式的应用很有问题，不建议使用。
它把窗口的tabpage整个剪切到了mainform里，导致原来的窗口已经没有控件了，要使用的话可能需要一套完整的基础函数支持才可以。
简单的话窗口代码都要改成这样就可以，不能用e.form，因为e.form还是QQServer
QQServer.ServerIp = Forms("MainForm").Controls("txtIP").Value '指定IP地址
QQServer.ServerPort = Forms("MainForm").Controls("txtPort").Value '指定端口
QQServer.HeartbeatInterval = Forms("MainForm").Controls("txtInterval").Value '指定心跳时间
QQServer.HeartbeatTimeout = Forms("MainForm").Controls("txtTimeOut").Value '指定心跳超时时间
QQServer.Start() '启动QQServer
'************显示OpenQQ服务器状态**********
Dim zt As WinForm.Label = Forms("MainForm").Controls("ZTServer")
If QQServer.Ready = True Then
zt.Text = "OpenQQ服务器运行中!"
Else
zt.Text = "OpenQQ服务器已停止!"
End If
另外随着tab变多，所有控件都在一个窗口里，控件名称可能冲突，控件多就会闪烁，慢
还有很多业务逻辑都要考虑控件变更主人的问题
不知道逛版是怎么解决这些问题的
加好友 
发短信
Post By：2016/10/15 15:16:00 [显示全部帖子]
