Centralizar Form

[mestre fyoda]

o erro está na linha em vermelho

Abrir_Conta

Private Sub Form_Load()

Centraliza (Frame)End Sub

MDIFORM1

Function Centraliza(MDIForm1 As Controls)

Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2

Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2

End Function

[kuroi]

tenta assim:

Function Centraliza(MDIForm1 As Control)
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Function[/code]
veja que é Control em vez de Controls.

[mestre fyoda]

não deu certo , deu na mesma

[kuroi]

o que é Frame?

[mestre fyoda]

Frame é o nome do MDIFrom . o formulario é Abrir_Conta e o nome da MdiForm é Frame .

[kuroi]

então tente:

Function Centraliza(MDIForm1 As Form)
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Function[/code]

[Graymalkin]

A quem se refere esse "Me"? A idéia não seria centralizar o form que é passado no argumento da função?

Abraços,

Graymalkin

[mestre fyoda]

está dando erro aqui .

Centraliza (Frame)

continua no mesmo erro .

[kuroi]

em que formulario esta essa funcao?

Function Centraliza(MDIForm1 As Controls)
Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2
End Function[/code]

[mestre fyoda]

Module1

[kuroi]

da uma olhada nisso:

A quem se refere esse "Me"? A idéia não seria centralizar o form que é passado no argumento da função?

Abraços,

Graymalkin

se a sub esta num module, esse Me se refere a que? Me é um atalho pra acessar o form onde esta o codigo. se me não esta num formulario você não vai conseguir nada.

outra coisa, existe um formulario com esse nome: "MDIForm1"?

[mestre fyoda]

o form se chama Abrir_Conta_Corrente . e o MDI se chama Frame .

esta numa Function :

Function Centraliza(MDIForm1 As Form)

Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2

Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2

End Function

[Graymalkin]

Faz o seguinte aí. Coloque essa função no módulo:

Public Function Centraliza(ByRef pai As MDIForm, ByVal filho As Form)
    filho.Left = pai.Width / 2 - filho.Width / 2
    filho.Top = pai.Height / 2 - filho.Height / 2
End Function

Depois você vai poder fazer isso para centralizar:

    Centraliza Me, Form1

Supondo, é claro, que "Me" é o MDIForm e Form1 é o MDIChild. Ou seja, esse código acima deverá ser executado no form pai (no MDI).

Abraços,

Graymalkin

[mestre fyoda]

mesmo erro .

Private Sub Form_Load()

Centraliza Me, Abrir_Conta_Corrente

End Sub

Public Function Centraliza(ByRef pai As MDIForm, ByVal filho As Form)

filho.Left = pai.Width / 2 - filho.Width / 2

filho.Top = pai.Height / 2 - filho.Height / 2

End Function

[Graymalkin]

mesmo erro .

Private Sub Form_Load()

Centraliza Me, Abrir_Conta_Corrente

End Sub

Você definitivamente *não* leu o que eu escrevi no último paragráfo do meu último post, né? "Me" se refere ao formulário em que você está, e você não está no MDIForm e sim no MDIChild.

Graymalkin

[mestre fyoda]

também fiz assim

Centraliza Me, Frame

e não deu certo , mesmo erro .

[Graymalkin]

também fiz assim

Centraliza Me, Frame

e não deu certo , mesmo erro .

A questão é: onde você colocou isso?

Baixe o exemplo que fiz agora: http://www.gs.kitbr.com/stuff/MDI.zip

Descompacte, abra no VB e execute. Depois, olhe onde está o código.

Abraços,

Graymalkin

[mestre fyoda]

Graymalkin já vi oand estava errando , tava colocando no form , e o certo seria no MDI .

mas ali no MDi vai ser complcado , porque no caso vou ter varias telas para centralizar , ai como faço para chamalas ?

seria bom coloca no form porque ai já fica mais controlado . tem como colocar no form ?

[Graymalkin]

Graymalkin já vi oand estava errando , tava colocando no form , e o certo seria no MDI .

mas ali no MDi vai ser complcado , porque no caso vou ter varias telas para centralizar , ai como faço para chamalas ?

seria bom coloca no form porque ai já fica mais controlado . tem como colocar no form ?

Não é a partir do MDI que você chama as telas? Seria só ter uma linha a mais para cada chamada, centralizando a janela:

Form1.Show
Centraliza Me, Form1

Form2.Show
Centraliza Me, Form2

Form3.Show
Centraliza Me, Form3

Não?

Graymalkin

[mestre fyoda]

eu fiz do formulario e deu certo , fazendo do form fica mais facil .

vlw galera . boa noite .

o que seria ByVal , ByRef ?

[kuroi]

o que seria ByVal , ByRef ?

veja aqui: http://scriptbrasil.com.br/forum/index.php...topic=48769&hl=