[Resolvido]Tela Widescreen

Bom dia,
Minha aplicação desejo colocalá em um notebook e sua tela é widescreen, como que faço para que o formulário não fique cortando?

Obrigado

Amigo, verifique no repositório de exemplos aqui do forum o exemplo que ajusta as telas à resolução do monitor.

Crie um módulo e copie o conteudo abaixo nele!


Option Explicit

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000

Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Dim DevM As DEVMODE

Sub ChangeRes(iWidth As Single, iHeight As Single)
Dim a As Boolean, i&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
Dim b&
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub


'Muda a resolução da tela (No evento open do form)
'Para chamar
'Call ChangeRes(800, 600)
'Call ChangeRes(640, 480)
'Call ChangeRes(1024, 768)
'Call ChangeRes(1024, 600) e por ai vai...

Bom Dia

Nem precisa de se dar ao trabalho de escrever a resolução que quer. Este exemplo automatiza isso com 1 linha de código no evento load e 1 no evento resize.

Mas é que na verdade, não é a resolução que quero mudar, e sim o tamanho do form para que se ajuste a tela wide. Tem como?

Obrigado.

Exactamente isso que qualquer um dos exemplos faz. Ajusta-se à resolução da tela. O exemplo que lhe coloquei faz isso automaticamente. É composto de 2 módulos que devem acompanhar a aplicação (copie para a sua aplicação) e veja os eventos que passei atrás.

Funcionou perfeitamente. Obrigado

Valew, obrigado pelo retorno o fórum agradece

No meu caso tenho uma tela principal (Form) onde tem varios ícones que chsmam os form's do aplicativo... essa tela principal esta configuarada para maximazar e ajustar a tela....
Ocorre que quando instalo em algum pc com um monitor diferente, a tela principal se ajusta... mas os ícones nao acompanham a tela... ficando assim fora de lugar...

Tem como fazer algo para que o ícone acompanhe a tela quando esta for alongada?

Obrigado

Mas esses ícones estão localizados em que lugar? No formulário como se fossem botões ou menus?

O form tem uma imagem incorporada....que e a apresentacao principal do bd....
os icones estao espalhados pelo form.. como se fossem botoes...
utilizando uma macro associada ao icone para chamar o form respectivo...

Amigão

Na propriedade da imagem do form altere de Recortar para Zoom e veja se funciona direito assim. Normalmente é recortar, mas tem casos que o zoom funciona melhor. Experimente.

A imagem incorporada esta certo.. ela alonga quando maximixa a tela principal...
o problema é que os botoes e ícones nao a acompanham.... eles ficam no mesmo lugar... ai como o for se adequa a tela.. eles ficam fora de lugar...

Mude a propriedade para zoom dos ícones e teste por favor

Amiga.. os icones estao certos...

Imagine assim... um form qua abre em pop_up em tamanho 15 cm x 10 cm

Esse form tem botoes para ir para registro e voltar...

No form tem o controle de maximazar e minimar form...

se eu maximar... a imagem incorporada maximiza junto...

mas os icones ficam alianhados a direita. os botoes ficam a direita e nao acompanha a maximização do form...

Espero que tenha compreendido...

Caso nao posso lhe enviar um modelo..
Obrigado

Experimente a solução que eu passei ao colega que abriu este tópico. Temos que tentar todas as opções.

Bom dia a todos,

sou iniciante no uso do vba e não entendi uma parte da explicação. A tela ajusta automaticamente ou eu preciso digitar ativar essa macro?

Obrigado

Outra dúvida. Esse código tmb funciona no excel?

Bom dia Harysohn.

O link abaixo mostra um exemplo do Criquio que faz exatamente o que você quer.

Você precisa colocar no ao carregar da propiedade do formulário.

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

Podendo organizar os botões a onde você quizer dentro do formulário e quando abrir ele fica exatamente no local programado.

Link do exemplo:

http://maximoaccess.forumeiros.com/t5429-redimensionar-formulario-de-acordo-a-resolucao-da-tela?highlight=ajustar+formul%C3%A1rio+a+tela

Harysohn eu utilizo muito em meu formulário essa função.


Me.btOk.Top = Me.InsideHeight - Me.btOk.Height - 300 ' Posição vertical do rodapé
que consta também no exemplo.