تغییر موقعیت فرم

[aleas2]

سلام خسته نباشید دوستان بنده توسط کد زیر فرم در وسط صفحه قرار میدم

Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2



حالا میخوام قبل اینکه کد بالا اجرا بشه موقعیت صفحه جاری ذخیره بشه که بعد از اینکه فرم در وسط صفحه قرار گرفت دوباره اگر خواستم بشه فرم به موقعیت قبل انتقال داد چطور میشه اینکار کرد؟

[setroyd]

Dim t, l
Private Sub Command1_Click()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Command2_Click()
Me.Move t, l
End Sub

Private Sub Form_Load()
t = Me.Top
l = Me.Left
End Sub

[aleas2]

ممنون عزیز کد درسته ولی یه تغییر کوچک میدم تا کسی دیگه مشکل من رو داشت برطرف بشه


Dim t, l
Private Sub Command1_Click()
t = Me.Top
l = Me.Left
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Command2_Click()
Me.Move l, t
End Sub

[setroyd]

نه دیگه اینجوری شما اگه روی command1 دوبار کلیک کنی دیگه مقدار اولیه میشه همون وسط صفحه مگر اینکه خودت اینجوری بخوای که دیگه حرفی نیست .

[aleas2]

اره حق باشماست کد درست کردم

Dim t, l
Private Sub Command1_Click()
If Me.Top <> (Screen.Height - Me.Height) / 2 Then t = Me.Top
If Me.Left <> (Screen.Width - Me.Width) / 2 Then l = Me.Left
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Command2_Click()
Me.Move l, t
End Sub