|
|
Postada em 03/02/2010 17:08 hs
Boa tarde a todos os colegas deste forum!
Pessoal estou precisando de mais uma força, estou com uma dificuldade de fazer com que os FORM CHILD de um formulário MDI apareça CENTRALIZADO no FORMULÁRIO. Alguém tem alguma idéia para me ajudar?
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2010 18:08 hs
Basta colocar em tempo de projeto a propriedade StartUpPosition = 2 - Center Screen vlu// |
|
|
|
|
|
Postada em 03/02/2010 18:15 hs
Amigo crie uma sub num module a que está em baixo
Public Sub CentraNaTela(F As Form)
With MDIPrincipal
If F.WindowState = vbNormal Then
If TypeOf F Is MDIForm Then
F.Top = (Screen.Height - F.Height) / 2
F.Left = (Screen.Width - F.Width) / 2
Else
If F.MDIChild = True Then
F.Top = (.ScaleHeight - F.Height) / 2
F.Left = (.ScaleWidth - F.Width) / 2
Else
F.Top = (Screen.Height - F.Height) / 2
F.Left = (Screen.Width - F.Width) / 2
End If
End If
End If
End With
End Sub
e no Form_Load do form chama o evento CentraNaTela Me
Private Sub Form_Load()
Screen.MousePointer = 13
'posicionando o formulario na tela
CentraNaTela Me
Screen.MousePointer = 0
End Sub
Quel quer dúvida estamos aí
|
|
|
|
|
|
Postada em 03/02/2010 18:30 hs
LCramos, já tentei fazer deste jeito, só que o MDI não aceita esse tipo de configuração, só os FORMS normais!!!!
|
|
|
|
|
|
Postada em 03/02/2010 18:31 hs
DIOGO_ALLO vou tentar usar, qualquer coisa te informo VALEU!
|
|
|
|
|
|
Postada em 03/02/2010 18:36 hs
Caro colega DIOGO_ELLO DEU UM ERRO ! Neste código em BAIXO.
If F.MDIChild = True Then
F.Top = (.ScaleHeight - F.Height) / 2
F.Left = (.ScaleWidth - F.Width) / 2
Else
|
|
|
|
