Através de código pegar a resolução do vídeo e manipular a o tamanho da tela do sistema, por exemplo se um deterninado tamanho eu coloco maximizado se não então eu coloco no modo normal, tem como?

 

Clique aqui para baixar um projeto enviado para área de "Troca de Arquivos" do VBWEB.

t++

Marcus Vinícius

MsMarcus, isto é um problema sério para o tamanho que fica o aplicativo dependendo da resolução, mas veja a solução que encontrei:

Voce faz em baixa resolução, por exemplo eu faço em 800x600:

Nomei duas variaveis públicas do Tipo Long

lHEIGHT e lWIDTH

atribua a elas o valor de 1.

pega a resolução da tela e faz um cálculo assim:

 lHEIGHT = (yPixels / 600)
 lWIDTH = (xPixels / 800)

Depois no Load de cada formulário:

 Me.height = (lHEIGHT * 9000)  ou o que quiser

 Me.Width = (lWIDTH * 12000)  idem

 ai chama uma função publica que altere o tamanho dos controles, tomando o cuidado de verificar que determinados controles não aceitam algumas propriedades, por exemplo Menus.

Não ficou 100 por cento, mas chegou bem perto, quando a resolução é muito alta, mas nota-se muito pouco, os formulários se adaptam bem, e nos controles são minimas as diferenças.

 

vlu//

 

Se der pode colocar aqui está idéia mais legível ?

t++

Marcus Vinícius

Valeu pela dica, me foi muito útil Msmarcus, era exatamente o que eu estava precisando,
pegeu seu código fonte e adptei a minha necessidade, estou enviando de volta com a adptação;

Sub ScreenSize()
Dim Resolucao
Dim Xi As Integer
Dim Yi As Integer
Xi = Screen.Width / Screen.TwipsPerPixelX
Yi = Screen.Height / Screen.TwipsPerPixelY
Resolucao = Xi & "x" & Yi
'CASO A RESOLUÇÃO FOR MAIOR QUE 1024
ENTÃO O MDI ABRE NO MODO NORMAL
If Xi > 1024 Then
MDI_principal.WindowState = 0
'MDI_principal.StartUpPosition = 3
'SENÃO ABRE MAXIMIZADO
ElseIf Xi <= 1024 Then
MDI_principal.WindowState = 2
End If
End Sub

Agora sem quere abusar, tem como descobrir se o monitor é de 15'' ou maior que para que
se possa adaptar este rotina?
Um abraço e muito obrigado.

Olha, ainda não procurei sobre este assunto, mais creio que o tamanho do monitor senodo 15" não interfira na sua adaptação que você fez pois o próprio Formulário se ajusta automáticamente de acordo com o tamanho de cada monitor.

E além do mais, não sei se é possivel detecta qual é o tamanho de um monitor..

Sinto muito...

t++

Marcus Vinícius

-- Ainda não se cadastrou no VBWEB ? o que está esperando ? é de graça. --