Pessoal eu estou desenvolvendo aplicativos em vb6.0 em uma maquina com monitor de 17" com resolução 1280 x 1024 e estou passando por aqueles probleminhas chatos tipo:
crio a aplicação no tamanho certo a interface fica legal, mas o aplicativo irá rodar em uma maquina com monitor de 15" com resolução de 800 x 600 e ai a interface fica muito grande em 800 x 600, ai eu tenho que baixar a minha resolução para 800 x 600 para criar a interface e isto é ruim porque agora tem mais terminais rodando o aplicativo e com resolução 1280 x 1024 e agora fica muito pequena a interface.

Alguem sabe como fazer com que o aplicativo detecte a resolução do monitor e se ajuste altomáticamente?

Muito Obrigado!
rodrigo-developer@hotmail.com

Amigo, não sei se irá servir mas tente essas dicas:

 

obter a resolução
http://www.vbweb.com.br/dicas_visual.asp?Codigo=132&Classificacao=

redimensionar
http://www.macoratti.net/dica4.htm

 

t+

Se seu monitor for 17 quando voce trabalha em 1024x768 é quase que a resolução de 800x600 no monitor de 15

Dizem por ai que eu sou do contra...

Não que eu goste de fazer o trabalho duas vezes, mas me poupa muita dor de cabeça... alem do mais, nao gosto de reinventar a roda cada vez que preciso dela...

Tenho em todos os meus sistemas um Form MDI. Isso resolve 90% dos problemas com resolução... pois desenvolvo todos os MDIChilds de forma a caber em 800x600... se a resolução for maior, o que sobra é o Workspace do MDI...

Pros outros 10% de telas, que nao da pra ser MDIChild, eu costumo fazer um formulario pra cada Resolução...

Não é programar tudo 2 ou 3 vezes.. basta programar uma vez, salvar como, e mudar apenas os tamanhos e alinhamento dos controles... o codigo por traz do form é exatamente o mesmo...

O unico trabalho a mais vai ser na chamada dos forms, fazer o sistema verificar a resolução do monitor e chamar o form certo...

tipo:

Select Case Screen.Width / Screen.TwipsPerPixelX

    Case 800

        FClientes1.Show

    Case 1024

        FClientes2.Show

 

Facil assim...

Olhe isto é problemático, mas resolvi de uma forma que roda em qualquer resolução, pode não ser elegante, mas é bem prático, por que deixei de me preocupar com isto.

Tenho duas variáveis públicas do tipo Long

lHEIGHT E lWIDTH

Quando o sistema é acessado, ele verifica a resolução do monitor.

Faço tudo em 800X600.

Então, lHEIGHT e lWIDTH, valem 1 se a resolução for 800X600.

Caso contrário, efetuo a divisão da resolução:

lHEIGHT = (RESOLUÇÃO / 600)

lWIDTH = (RESOLUÇÃO / 800)

Pronto tenho a diferença dai ao carregar os Forms

 

Me. Height = (9000 * lHEIGHT)

Me.Width = (12000 * lWIDTH)

 

Ajustei os Forms.

 

Chamo uma função:

 

TAMANHO      ' função que ajusta os objetos do Form.

 

Pronto terminado o problema.

 

vlu//