ERRO PARA CENTRALIZAR A JANELA
Bem pessoal, eu tenho dois forms
E em uma eu coloco a largura e a altura da janela, e clico em abrir.
Ela abra a janela do tamanho que eu preenchi, mas eu quero abrir ela centralizada.
Mas ela abre fora do centro da tela, e se eu clico no botão abrir novamente, ai então ela abre no centro.
Usei o frmJanela.StartUpPosition = 1, mas dá erro, ja tentei com "1", e nada.
Vou mandar um anexo
Abraços e até +
E em uma eu coloco a largura e a altura da janela, e clico em abrir.
Ela abra a janela do tamanho que eu preenchi, mas eu quero abrir ela centralizada.
Mas ela abre fora do centro da tela, e se eu clico no botão abrir novamente, ai então ela abre no centro.
Usei o frmJanela.StartUpPosition = 1, mas dá erro, ja tentei com "1", e nada.
Vou mandar um anexo
Abraços e até +
Tente:
frmJanela.StartUpPosition = 2
frmJanela.StartUpPosition = 2
LUCASERODRIGUES
Deu o mesmo erro.
Já tentei de todo jeito e não deu.
Mesmo assim obrigado...
Deu o mesmo erro.
Já tentei de todo jeito e não deu.
Mesmo assim obrigado...
a propriedade StartUpPosition é uma propriedade que só pode ser aplicada em tempo de design
se vc quer centralizar o form via código faça isso
se vc quer centralizar o form via código faça isso
Private Sub Form_Load()
Me.Left = (Screen.Width / 2) - (Me.Width / 2)
Me.Top = (Screen.Height / 2) - (Me.Height / 2)
End Sub
Cleverton....
Ficou na mesma, não centralizou
Botei este codigo no frmJanela e não abriu no centro não....
Ficou na mesma, não centralizou
Botei este codigo no frmJanela e não abriu no centro não....
Cara, na boa
tire ess código
frmJanela.StartUpPosition = 1
e coloca o código que eu te passei somente no Form_Load dos forms que vc quer centralizar
se o código que eu te passei não funcionar, é porquê vc estáfazendo algo de errado.
crie um novo projeto ,coloque um form e adicione somente o código que eu te passei pra vc ver.
tire ess código
frmJanela.StartUpPosition = 1
e coloca o código que eu te passei somente no Form_Load dos forms que vc quer centralizar
se o código que eu te passei não funcionar, é porquê vc estáfazendo algo de errado.
crie um novo projeto ,coloque um form e adicione somente o código que eu te passei pra vc ver.
Cara, coloque no cmdAbrir_Click a seguinte rotina, pois assim ganhará em linhas de código e desempenho:
Qualquer dúvida poste...flw
Private Sub cmdAbrir_Click()
'Inicio da rotina que atribui o tamanho a janela e centraliza
frmJanela.Move (Screen.Width - txtWidht) / 2, (Screen.Height - txtHeight) / 2, txtWidht, txtHeight
'Chama a janela
frmJanela.Show
End SubQualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas