窗口做个计时器,定时检测
If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑 PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5) e.Form.CloseEnd If