Posizionamento iniziale MDI Child Form

Questo piccolo appunto su come agire per stabilire la posizione iniziale di una child form
Private Sub PosizionaChild(FormType As Type) 
        Dim fm As Form = CType(Activator.CreateInstance(FormType),Form)
        fm.MdiParent = Me
        fm.StartPosition = FormStartPosition.Manual
        fm.Location = New Point(Me.Left + (Me.Width - fm.Width) / 2, Me.Top + (Me.Height - fm.Width) / 2)
        fm.Show()
End Sub

Print | posted on domenica 3 luglio 2005 11:29

Feedback

No comments posted yet.

Your comment:





 
Please add 2 and 4 and type the answer here:

Copyright © Luciano Bastianello

Design by Bartosz Brzezinski

Design by Phil Haack Based On A Design By Bartosz Brzezinski