Meu sistema esta normal so que meu monitor LCD 17P, quando instalo em outra maquina

Exe: monitor de 15P a tela nao corresponde com o tamanho,

a tela Principal que é em  MDIForm.

Grato

 

 

olha, pra contornar esse problema em alguns de meus sistemas, eu mudo a resolução do vídeo para 1024x768 ao se iniciar o sistema, quando o sistema é fechado volto a resolução inicial do vídeo. Acredito que aqui mesmo no site tenha algumas rotinas para mudança de resolução. Essa é uma opção... qq duvida eu posto as rotinas... ah, pra dar certo, vc tem que moldar seus forms dentro da resolução 1024x768...

 

abs.

APW....

 

Se possivel me envie essa função pois existem clientes que usam o 1024X768 e meu sistema e 800X600 ai ajustaria a resolução e quando sair do sistema voltaria a original que estava.

 

Obrigado

Olha, pessoal, pastei, comi muita grama por causa disso, é uma solução, ao entrar mudar a resolução, e retornar ao sair, mas alguns clientes reclamam disto, fiz um POG, e coloquei o tamanho em cada formaulário, chamando uma função que altera os controles do form, mas foram baseados em 800 x 600, dai verifico a resolução e vou alterando, foi a melhor solução que encontrei, por que adapta a qualquer uma, agora continuo aceitando sugestões para melhorar isto, pois está funcionando muito bem, apesar do trabalho que deu.

 

Duas variaveis públicas:

 Public lHEIGHT As Long

 Public lWIDTH As Long

 Dim xTwips As Long
 Dim yTwips As Long
 Dim xPixels As Long
 Dim yPixels As Long
Private Sub Form_Load()
    xTwips = Screen.TwipsPerPixelX
    yTwips = Screen.TwipsPerPixelY
    yPixels = Screen.Height / yTwips
    xPixels = Screen.Width / xTwips
    lHEIGHT = (yPixels / 600)
    lWIDTH = (xPixels / 800)

End Sub

 

isto no formulário inicial

 

Depois em cada formulário carregado

Private Sub Form_Load()

    Me.Height = (9000 * lHEIGHT)

    Me.Width =  (12000 * lWIDTH)

    ' DAQUI EU CHAMO UMA FUNÇÃO TAMANHO QUE ACERTA AS COORDENADAS DOS CONTROLES NO FORM.

 

Ens Sub

 

Trabalhoso, mas uma unica vez.

 

vlu//