Bom dia meus amigos,
Estou a observar aqui no forum sobre a resolução da tela em todos os computadores. Encontrei este aqui http://maximoaccess.forumeiros.com/t5429-redimensionar-formulario-de-acordo-a-resolucao-da-tela?highlight=resolu%C3%A7%C3%A3o do nosso amigo Criquio, mas esta dando erro quando eu coloco no meu pc
o codigo esta no evendo ao carregar:
DoCmd.MoveSize 0, 0, Largura, Altura ' Usamos as medidas capturadas no módulo mdlTesTela
Me.lblTitle.Width = Me.InsideWidth ' Igualamos a largura do rótulo do título à largura da tela
Me.btnInfo.Top = (Me.InsideHeight / 2) - (Me.btnInfo.Height / 2) ' Posição vertical do botão no centro
Me.btnInfo.Left = (Me.InsideWidth / 2) - (Me.btnInfo.Width / 2) ' Posição horizontal do botão no centro
Me.lblFooter.Top = Me.InsideHeight - Me.lblFooter.Height ' Posição vertical do rodapé
Me.lblFooter.Width = Me.InsideWidth ' Igualamos a largura do rótulo do rodapé à largura da tela
O que esta de vermelho esta dando problema.
Poderiam me ajudar por favor?
Estou a observar aqui no forum sobre a resolução da tela em todos os computadores. Encontrei este aqui http://maximoaccess.forumeiros.com/t5429-redimensionar-formulario-de-acordo-a-resolucao-da-tela?highlight=resolu%C3%A7%C3%A3o do nosso amigo Criquio, mas esta dando erro quando eu coloco no meu pc
o codigo esta no evendo ao carregar:
DoCmd.MoveSize 0, 0, Largura, Altura ' Usamos as medidas capturadas no módulo mdlTesTela
Me.lblTitle.Width = Me.InsideWidth ' Igualamos a largura do rótulo do título à largura da tela
Me.btnInfo.Top = (Me.InsideHeight / 2) - (Me.btnInfo.Height / 2) ' Posição vertical do botão no centro
Me.btnInfo.Left = (Me.InsideWidth / 2) - (Me.btnInfo.Width / 2) ' Posição horizontal do botão no centro
Me.lblFooter.Top = Me.InsideHeight - Me.lblFooter.Height ' Posição vertical do rodapé
Me.lblFooter.Width = Me.InsideWidth ' Igualamos a largura do rótulo do rodapé à largura da tela
O que esta de vermelho esta dando problema.
Poderiam me ajudar por favor?