Printable View
سلام خسته نباشید دوستان بنده توسط کد زیر فرم در وسط صفحه قرار میدم
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
حالا میخوام قبل اینکه کد بالا اجرا بشه موقعیت صفحه جاری ذخیره بشه که بعد از اینکه فرم در وسط صفحه قرار گرفت دوباره اگر خواستم بشه فرم به موقعیت قبل انتقال داد چطور میشه اینکار کرد؟
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
ممنون عزیز کد درسته ولی یه تغییر کوچک میدم تا کسی دیگه مشکل من رو داشت برطرف بشه
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
نه دیگه اینجوری شما اگه روی command1 دوبار کلیک کنی دیگه مقدار اولیه میشه همون وسط صفحه مگر اینکه خودت اینجوری بخوای که دیگه حرفی نیست .
اره حق باشماست کد درست کردم
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