全局代码Public Sub Form2_SizeChanged(sender As Object, e As EventArgs)
If vars("bswidth")=0 And vars("bsheight")=0 Then
sender.left = (SysInfo.WorkingAreaWidth - sender.width) / 2
sender.top = (SysInfo.WorkingAreaheight - sender.height) / 2
Else
sender.left = (SysInfo.WorkingAreaWidth - vars("bswidth")) / 2
sender.top = (SysInfo.WorkingAreaheight - vars("bsheight")) / 2
End If
Select Case sender.windowstate'0 还原 1 最小化 2 最大化
Case 0
If vars("bswidth")=0 And vars("bsheight")=0 Then
sender.left = (SysInfo.WorkingAreaWidth - sender.width) / 2
sender.top = (SysInfo.WorkingAreaheight - sender.height) / 2
vars("bswidth")=sender.width'第一次还原使用,保证窗口居中
vars("bsheight")=sender.height'第一次还原使用,保证窗口居中
End If
End Select
End Sub
afteropenproject事件
AddHandler basemainform.SizeChanged, AddressOf Form2_SizeChanged
然后去掉窗口的SizeChanged事件代码
加好友 
发短信
Post By：2018/6/22 21:34:00 [显示全部帖子]
