olá pessoal, como estão todos ???

Surgiu uma duvida de como retornar em uma (MSGBOX ou TEXTBOX) o valor do WIDTH e do HEIGHT quando maximizado o FORM.

é o seguinte, não sei se é a area certa para estar falando sobre Visual Basic

criei um MDIPrincipal ao iniciar o programa ele aparecerá como MAXIMIZADO, o tamnaho padrão dele é WIDTH de 12900 e HEIGHT de 8800

criei um rotina onde os FORMs CHILD terá que ser centralizado

Em um módulo coloquei

 

Public Sub Centro(ByVal Forms as Form, ByVal Altura as Interger, ByVal Largura as Interger)
With Forms
    .Height = Altura
    .Width = Largura
    .Top = (MdiPrincipal.ScaleHeight - .Height) / 2
    .Left = (MdiPrincipal.ScaleWidth - .Width) / 2
End With
End Sub

 

No FORM CHILD LOAD() Coloco
Call Centro(Me, 6410, 6580)

onde 6410 é o HEIGHT do FORM CHILD e 6580 é o WIDTH do mesmo
só que quando inicio o projeto não fica exatamente no centro porque o processo fica calculando o tamanho do MDIPrinc. sem estar MAXIMIZADO

O que fazer????
HELP preciso com urgencia

 

Obrigado

Jonathan

Não é mais fácil, se quer sempre centralizado colocar a propriedade:

StartUpPosition = 2

Onde estiver o Mdi, vai ficar centralizado.

 

vlu//

Não!!

Porque o que quero centralizar são os FORM_CHILD e não o MDIPrincipal

 

Essa posição da erro quando o FORM é CHILD

 

 

Obrigado

Variavel publica

Public sMYMDI AS Form

Public lHEIGHT A s Long

Public lWIDTH As Long

No MDIprincipal

Form_Load

Set sMYDI = Me

 

Nos CHILD Form Load

Aqui voce maximiza o MDI, aqui se quiser.

lHEIGHT = sMYMI.Height

lWIDTH = sMYMDI.Width

ai usa as variaveis, ele pega o valor do momento.

 

vlu//

 

 

nos CHILD (Load principalmente)

me.left = (me.width + frmprincipal.width )/2

me.top = (me.height + frmprincipal.height)/2