1,485
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
wndLeft = GetSetting(App.Title, "WndPos", "Left", (Screen.Width - Me.Width) / 2)
wndTop = GetSetting(App.Title, "WndPos", "Top", (Screen.Height - Me.Height) / 2)
Me.Move Val(wndLeft), Val(wndTop)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "WndPos", "Left", Me.Left
SaveSetting App.Title, "WndPos", "Top", Me.Top
End Sub