أريد وضع فورم من نوع Child في وسط الشاشة ؟!

اخي العزيز قم بوضع الكود التالي في حدث Load للنموذج الابن

Me.Move 2500, 1000

وبإمكانك تعديل الاحداثيات بحيث تضعه في المكان المطلوب

مشكور أخوي وجعل الله أيامك كلها سعادة وخير وبركة

قدمت لي خدمة لن أنساها أبداً

أخوك الساجد

Private Sub Form_Resize()
Me.Left = FrmMain.ScaleWidth / 2 - Me.Width / 2
Me.Top = FrmMain.ScaleHeight / 2 - Me.Height / 2
End Sub

ضع الكود السابق في كود الفورم الابن

Momken bArdo te7ot el Sub dah fe Module

Public Sub CenterOpen(MdiName As Object, FormName As Object)

FormName.Left = (Screen.Width / 2) - (FormName.Width / 2)

FormName.Top = (Screen.Height / 2) - (FormName.Height / 2)

End Sub

we tenady fe el Form_load beta3 el Form Deh

Call CenterOpen(MDIForm1, Me)

و الكود السابق يقوم بحساب وسط الشاشة وحدة دون ان تتعب في عمليات التجربة و الحساب

ana 2asef ya Super_Pro makontesh 2a3raf 2anak bete3mil post

kont bakteb we anta saba2teny fe el post :D el far2 bena 2 Min

Sorry ya Super_Pro

No problems mr kazabra

Welcome any Time :lol: