FORM CENTRALIZADO EM FORM MDI !!!!
Ola,, é o seguinte eu tenho um form mdi e outro form normal (child) porem toda vez que eu executo o programa o form normal cai encostado, grudado nas laterais do form mdi,, bom eu gostaria de um jeito de que quando eu chamasse o outro form ele viesse centralizado no form mdi.......
deve ser simples .... mas mesmo assim mto obrigado.... Um grande abraço....
Jorge Vinicius
.....Conhecimento é Poder... E o Computador é o amplificador desse poder.....
deve ser simples .... mas mesmo assim mto obrigado.... Um grande abraço....
Jorge Vinicius
.....Conhecimento é Poder... E o Computador é o amplificador desse poder.....
Option Explicit
Private Sub Form_Load()
CenterChild MDIForm1, Me
End Sub
Sub CenterChild(Parent As Form, Child As Form)
Dim iTop As Integer
Dim iLeft As Integer
If Parent.WindowState 0 Then Exit Sub
iTop = ((Parent.Height - Child.Height) \ 2)
iLeft = ((Parent.Width - Child.Width) \ 2)
Child.Move iLeft, iTop
End Sub
Private Sub Form_Load()
CenterChild MDIForm1, Me
End Sub
Sub CenterChild(Parent As Form, Child As Form)
Dim iTop As Integer
Dim iLeft As Integer
If Parent.WindowState 0 Then Exit Sub
iTop = ((Parent.Height - Child.Height) \ 2)
iLeft = ((Parent.Width - Child.Width) \ 2)
Child.Move iLeft, iTop
End Sub
Tópico encerrado , respostas não são mais permitidas