Align Center

In your version is there a property called:

"StartPossition" on the form?

if so choose centerparent

Quote: Originally Posted by jamesd0142 In your version is there a property called: "StartPossition" on the form? if so choose centerparent

I am using Visual basic 6.0

Quote: Originally Posted by pentahari How to open the MDI Parent form in center to the MDI form.

u can try by changing this Property

"StartUpPosition"

i am not sure. OK, try.

Quote: Originally Posted by shuvo2k6 u can try by changing this Property "StartUpPosition" i am not sure. OK, try.

When I try to Change MDI Child Form's StartUpPosition Property to 1-Center Owner (or) 2-Center Screen (or) 3-Windows Default then "Invalid Property Value" Error Msg appear.

Thanks Advance

Im not sure in vb6, but why not make your own Code?

try somthing like

MDIChildForm.Top = mdiparent.Height - mdiparent.Height / 2
MDIChildForm.Left = mdiparent.Width - mdiparent.Width / 2

you can see where its goin..?

Also in case they are different in vb6;

Top = the position of the top of the mdi child form in the mdi parent form
Left = the position of the left of the mdi child form in the mdi parent form

Quote: Originally Posted by pentahari When I try to Change MDI Child Form's StartUpPosition Property to 1-Center Owner (or) 2-Center Screen (or) 3-Windows Default then "Invalid Property Value" Error Msg appear. Thanks Advance

chld.Top = (MDIForm.Height - chld.Height) / 2
chld.Left = (MDIForm.Width - chld.Width) / 2

Quote: Originally Posted by shuvo2k6 chld.Top = (MDIForm.Height - chld.Height) / 2 chld.Left = (MDIForm.Width - chld.Width) / 2

Its not working correctly.

Private Sub mnulogin_Click()
CenterChild Mainform, Login
End Sub

Sub CenterChild(Parent As Form, Child As Form)
On Error Resume Next
Dim iTop As Integer
Dim iLeft As Integer

iTop =(Parent.Height - Child.Height) / 2)
iLeft = (Parent.Width - Child.Width) / 2)
Child.Move iLeft, iTop
End Sub


I find the Correct Coding for this question.

My mistake is don't insert Form.Move function

Quote: Originally Posted by pentahari Private Sub mnulogin_Click() CenterChild Mainform, Login End Sub Sub CenterChild(Parent As Form, Child As Form) On Error Resume Next Dim iTop As Integer Dim iLeft As Integer iTop =(Parent.Height - Child.Height) / 2) iLeft = (Parent.Width - Child.Width) / 2) Child.Move iLeft, iTop End Sub I find the Correct Coding for this question. My mistake is don't insert Form.Move function

I cann't understand what is difference between This code and ur code:



Thnx, good luck.

Quote: Originally Posted by shuvo2k6 I cann't understand what is difference between This code and ur code: Code: ( text ) Private Sub Command1_Click() Load Child Child.Top = (Parent.Height - Child.Height) / 2 Child.Left = (Parent.Width - Child.Width) / 2 Child.Show End Sub Thnx, good luck.

Sorry i have the mistake, your code is very correctly and clearly.

Thank you very much for your reply.

Please give the reply for me. I am waiting for your reply.

Quote: Originally Posted by pentahari Sorry i have the mistake, your code is very correctly and clearly. Thank you very much for your reply. Please give the reply for me. I am waiting for your reply.

Thnkx friend, Go ahead.........