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

[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