老师，
窗口 还原在最大化 为何任务栏 会被隐藏了，最大化在最小化，就会出现任务栏，不明白。
e.Form.stopRedraw
If vars("bswidth")=0 And vars("bsheight")=0 Then
basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
Else
basemainform.left = (SysInfo.WorkingAreaWidth - vars("bswidth")) / 2
basemainform.top = (SysInfo.WorkingAreaheight - vars("bsheight")) / 2
End If
Select Case basemainform.windowstate'0 还原 1 最小化 2 最大化
Case 0
If vars("bswidth")=0 And vars("bsheight")=0 Then
basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
vars("bswidth")=basemainform.width'第一次还原使用,保证窗口居中
vars("bsheight")=basemainform.height'第一次还原使用,保证窗口居中
End If
End Select
e.Form.ResumeRedraw
加好友 
发短信
Post By：2018/6/22 18:30:00 [显示全部帖子]
