PROBLEMA COM NEW FORM

ALEXANDRE.SANTO 21/01/2005 05:00:34
#62098
E ae pessoal..............bom é o seguinte tenho um Mdiform e um form vinculado a ele.........e quando clico no menu do Mdiform que irá chamar o form vinculado coloquei esse codigo:

Private Sub MnuSobr_Click()
Set f = New frmSobr
f.Show
End Sub

Até ae blz.............Só q eu quero q o form inicie centralizado no Mdiform entao usei este codigo no form vinculado:

Private Sub Form_Load()
Dim VA_X, VA_Y
VA_X = (((MDIForm1.ScaleWidth - frmSobr.Width) \ 2) + MDIForm1.Left)
VA_Y = (((MDIForm1.ScaleHeight - frmSobr.Height) \ 2) + MDIForm1.Top)
frmSobr.Move VA_X, VA_Y
End Sub

Agora vem o problema..............abre 2 forms quando eu faço isso........1 está centralizado e outro nao.............mas eu gostaria q nao iniciasse 2 forms e sim 1 só..........e quando a pessoa clicasse no menu outra vez ae sim ficava com 2 forms..............c nao entender o q eu quis dizer fale q eu tento explico d novo
quem puder me ajudar eu agradeço..............brigado!!!
USUARIO.EXCLUIDOS 21/01/2005 08:22:19
#62110
vc tem q continuar pela rotina do click

Private Sub MnuSobr_Click()
Set f = New frmSobr
f.move x,y,w,h
f.Show
End Sub

e naum entendi o q vc quer fazer... se vc setou como New pq quer q abra somente um?
USUARIO.EXCLUIDOS 21/01/2005 08:33:44
#62116 Resposta escolhida
Private Sub Form_Load()
Dim VA_X, VA_Y
VA_X = (((MDIForm1.ScaleWidth - [txt-color=#ff0000]frmSobr.[/txt-color]Width) \ 2) + MDIForm1.Left)
VA_Y = (((MDIForm1.ScaleHeight - [txt-color=#ff0000]frmSobr.[/txt-color]Height) \ 2) + MDIForm1.Top)
[txt-color=#ff0000]frmSobr.[/txt-color]Move VA_X, VA_Y
End Sub

esta funcao deve ser alterada em um unico detalhe
quando vc da o nome do form frmSobr - ele acredita ser outro formulário...
então simplesmente remova o nome e ele tratará localmente
Tópico encerrado , respostas não são mais permitidas
Voltar