COLOCAR UM FORM DENTRO DE UM MDI
PAULOHSV, eu entendi que você disse para colocar no form, quem não entendeu foi o rafa, por isso escrevi para ele atentar para este fato.
RAFA, no seu MDI você alterou a opção para aparecer na tela como maximized??
segundo tem alguma toolbar ou outro controle no mdi form, pois se tiver acredito que ele atrapalhe a centralização???
RAFA, no seu MDI você alterou a opção para aparecer na tela como maximized??
segundo tem alguma toolbar ou outro controle no mdi form, pois se tiver acredito que ele atrapalhe a centralização???
cara coloquei maximizado e não tem nenhum controle.
mesmo assim não adianta. não fica no centro.
o que pode ser? entrei no macoratti. segui um exemplo que tem lá e acontece a mesma coisa.
mesmo assim não adianta. não fica no centro.
o que pode ser? entrei no macoratti. segui um exemplo que tem lá e acontece a mesma coisa.
poxa aparentemente esta tudo ok, mas faça um ultimo teste:
form_load()
Me.Left = (MDIForm1.Height / 2) - (Me.Height / 2)
Me.Top = (MDIForm1.Width / 2) - (Me.Width / 2 )
End Sub
se funcionar, nem eu sei dizer o porque.[S61]
form_load()
Me.Left = (MDIForm1.Height / 2) - (Me.Height / 2)
Me.Top = (MDIForm1.Width / 2) - (Me.Width / 2 )
End Sub
se funcionar, nem eu sei dizer o porque.[S61]
[S55][S55][S55][S55][S55][S55][S55], achei
Form_load()
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Sub
olha só para mim
[S51][S51][S51][S51][S51][S51]
e o mdi menos o form, dividido por 2
Form_load()
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Sub
olha só para mim
[S51][S51][S51][S51][S51][S51]
e o mdi menos o form, dividido por 2
continua a mesma coisa
wiliam, usuario GURU VBMANIA(Guru [S61]??, acho bom o WEBMASTER rever minha classificação)
Meu, tenta essa função...
***********************************************
'Função que centraliza forms
Sub CentraForm(Formulario As Form)
Dim MDI As MDIForm
For C = 0 To (Forms().Count - 1)
If TypeOf Forms(C) Is MDIForm Then
Set MDI = Forms(C)
Exit For
End If
Next C
With Formulario
If Formulario.MDIChild Then
.Move ((MDI.ScaleWidth / 2) - .Width / 2), ((MDI.ScaleHeight / 2) - .Height / 2)
Else
.Move ((Screen.Width - .Width) / 2), ((Screen.Height - .Height) / 2)
End If
'Opção de Núcleo:
' Formulario.Icon = frmMain.Icon
End With
End Sub
**************************************
Valew...
***********************************************
'Função que centraliza forms
Sub CentraForm(Formulario As Form)
Dim MDI As MDIForm
For C = 0 To (Forms().Count - 1)
If TypeOf Forms(C) Is MDIForm Then
Set MDI = Forms(C)
Exit For
End If
Next C
With Formulario
If Formulario.MDIChild Then
.Move ((MDI.ScaleWidth / 2) - .Width / 2), ((MDI.ScaleHeight / 2) - .Height / 2)
Else
.Move ((Screen.Width - .Width) / 2), ((Screen.Height - .Height) / 2)
End If
'Opção de Núcleo:
' Formulario.Icon = frmMain.Icon
End With
End Sub
**************************************
Valew...
você fez este e ainda assim da o erro???
Form_load()
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Sub
[S80][S80][S80]
Form_load()
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Sub
[S80][S80][S80]
continua dan erro.
qualque é o parametro mesmo que ue passo quando chamo a funçaõ?
qualque é o parametro mesmo que ue passo quando chamo a funçaõ?
No caso da função q eu te passei é assim:
CentraForm me
no FormLoad, Ok.
Valew...
CentraForm me
no FormLoad, Ok.
Valew...
Tópico encerrado , respostas não são mais permitidas