(Resolvido) Formato de tela

[Lameira]

Olá galera do bem!!!

Tenho mais uma para esse fórum.

Existe alguma forma do sistema identificar quando a tela é widescreen ou normal???

Explico..., fiz um sistema no meu notebook que possui tela widescreen e apresentei num computador com monitor normal, ficou bem visível que o sistema não entendeu a mudança e as telas não cabiam na tela do computador.

Existe alguma forma disso não acontecer??? Qual é o melhor formato de tela para se elaborar um sistema, widescreen ou normal???

fico no aguardo e agradeço mais essa ajuda.

:wacko:

[kuroi]

pra pegar a resolucao, você usa a api GetSystemMetrics.

mas o melhor no visual basic é você fazer os formularios de um tamanho q caiba em qualquer tela. eu tento fazer sempre q os forms fiquem inteiros visiveis ate em 800 X 600, nunca se sabe a resolucao do cara q vai usar.

[Lameira]

Olá Kurói!!! Valeu pela força (+1x)

Dei uma pesquisada e encontrei um código, dá uma olhada como ficou...

na declaração do Form foi colocado:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _

ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0

Private Const SM_CYSCREEN = 1

Private Const HWND_TOP = 0

Private Const SWP_SHOWWINDOW = &H40

e, no Form_Load:

Dim cx As Long

Dim cy As Long

Dim RetVal As Long

Me.WindowState = vbNormal

' retorna a largura da tela cheia (resolução H).

cx = GetSystemMetrics(SM_CXSCREEN)

' retorna a altura da tela cheia (resolução V).

cy = GetSystemMetrics(SM_CYSCREEN)

' chama a API para definir o novo tamanho da janela.

RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW)

' ajusta dimensão do componente Image de acordo com a tela

imgpri.Width = Me.Width - 500

imgpri.Height = Me.Height + 2300

imgpri.Left = Me.Left + 700

imgpri.Top = Me.Top + 2300

O código só foi testado no meu note (widescreen), não tenho monitor no formato normal, assim que testar eu posto o resultado mas fique a vontade para comentar o que foi feito; só observei uma falha: quando abre o formulário dá uma piscada na tela mas depois fica tudo normal.

Editado Janeiro 7, 2010 por Lameira

[kuroi]

o q é imgpri??

pelo q entendi esse codigo so vai aumentar o tamanho do form e posiciona-lo em 0, 0. mas vai continuar maior do q a tela, não??

[Lameira]

'imgpri' é um componente Image do Form Principal. Consegui fazer um teste e funcionou, tanto num monitor normal como no widescreen, o form ficou bem dimensionado e posicionado. Vlw pela dica da API GetSystemMetrics. :rolleyes:

Só ficou o 'pisca' quando o formulário é iniciado. :blink:

Editado Janeiro 8, 2010 por Lameira