با سلام
من در یک برنامه می خواهم فرمم کاملا در وسط صفحه باشد.در واقع center to screen باشد.لطفا یک نفر سورس این کار را به من بدهد.
با سلام
من در یک برنامه می خواهم فرمم کاملا در وسط صفحه باشد.در واقع center to screen باشد.لطفا یک نفر سورس این کار را به من بدهد.
اگه از فرمهای Child و Main داری استفاده میکنی این کدارو توی Load فرمهای Child کپی کن
عددهاشو بالا و پایین کنی جواب میده , تست کن ببین میشه :
Me.Left = (FrmMain.Width - Me.Width) \ 2
Me.Top = (FrmMain.Height - Me.Height) \ 2 - 2000
اگر ایشون از فرم مادر استفاده می کنن چه راهی هست؟
منظورم از Main همون فرم مادر . منظور شما دقیقا چیه ؟ شاید من درست متوجه نشدم !
دوست عزیز اگر منظور شما از فرم مادر همون اندازه ای است که ویژوال بیسیک در اختیار ما می گذارد باید بگویم من از فرم مادر استفاده نمی کنم و در ضمن کد شما جواب نداد.
شما نگفتین که از MDI ها استفاده می کنید پس این همه کد نیاز نیست. خاصیت Startup Position رو با 2 مقدار دهی کنید.Center Screen
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
بسم الله.
سلام .بابا چرا کدها رو کش میدین.
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Width - Me.Height) / 3
End Sub
در properties خود form گزینه startupposition رو در حالت centerowner بذارید.