قرار دادن فرم در وسط صفحه

[arsalansalar]

با سلام
من در یک برنامه می خواهم فرمم کاملا در وسط صفحه باشد.در واقع center to screen باشد.لطفا یک نفر سورس این کار را به من بدهد.

[DoctorJay]

اگه از فرمهای Child و Main داری استفاده میکنی این کدارو توی Load فرمهای Child کپی کن

عددهاشو بالا و پایین کنی جواب میده , تست کن ببین میشه :


Me.Left = (FrmMain.Width - Me.Width) \ 2
Me.Top = (FrmMain.Height - Me.Height) \ 2 - 2000

[arminesmaeely]

اگر ایشون از فرم مادر استفاده می کنن چه راهی هست؟

[DoctorJay]

منظورم از Main همون فرم مادر . منظور شما دقیقا چیه ؟ شاید من درست متوجه نشدم !

[arsalansalar]

دوست عزیز اگر منظور شما از فرم مادر همون اندازه ای است که ویژوال بیسیک در اختیار ما می گذارد باید بگویم من از فرم مادر استفاده نمی کنم و در ضمن کد شما جواب نداد.

[اوبالیت به بو]

شما نگفتین که از MDI ها استفاده می کنید پس این همه کد نیاز نیست. خاصیت Startup Position رو با 2 مقدار دهی کنید.Center Screen

[aslan_ir]

Private Sub Form_Load()

CenterForm Me
End Sub
Sub CenterForm(aForm As Form)
Dim x, y

x = (Screen.Width - aForm.Width) / 2
y = (Screen.Height - aForm.Height) / 2

aForm.Move x, y

End Sub

[sajjad1365]

بسم الله.
سلام .بابا چرا کدها رو کش میدین.


Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Width - Me.Height) / 3
End Sub

[ali_habibi1384]

در properties خود form گزینه startupposition رو در حالت centerowner بذارید.