Como Verificar resolução de vídeo e não deixar programa abrir desposicionado, por exemplo, numa posição de TOP e / ou LEFT que não permite que o form seja visualizado ?

Tentei algo com Screen.TwipsPerPixelX e Screen.TwipsPerPixelY , mas não cheguei a lugar algum :S

sabe...eu nunca usei isso....os meus sempre abrem normais...maximizados...

e sempre com os tops/lefts =0 independente da resolução do video...

 

Meu problema, é que o usuário salva os posicionamentos da tela, cores, etc.., ou seja, ela salva um profile(perfil ou template) para abrir futuramente os aplicativos na mesma posição em que deixou antes.

No meu caso, um terminal de negociação, cheio de janelas!!!

Vilmar, com estes novos monitores de cristal liquido, este problema no VB6 é um saco.

Mas eu estou contornando este problema de uma forma mambembe, mas tem dado um resultado satisfatório, ainda estou melhorando esta rotina, mas "quebra o galho".

Veja, fiz o seguinte:

Coloquei duas variáveis públicas:

lHEIGHT e lWIDTH do Tipo Long

Faço tudo como se fosse 800x600

No formulário inicial, eu pego a resolução de video.

Se for igual a 800x600 as variáveis valem 1.

Se for 1024x768 ou superior: 1024 / 800 = 1,28 e 768 / 600 = 1,28

Então mudou os valores das váriaveis:

Depois:

Private Sub Form_Load()

  Me.Height = (9000 * lHEIGHT)

  Me.Width = (12000 * lWIDTH)

End Sub

Depois chamo uma função em um módulo que percorre todos os controles do form e adequa o tamanho de acordo com a resolução do video.

Isto vale para Top, Left e qualquer posicionamento de controles.

O trabalho é que não pode ser automático, voce tem que posicionar todos os forms na tela, e como eu tenho projetos em 4 módulos com mais de 130 forms, imagine o trabalho que deu.

Mas é a solução que achei, e vem dando resultados.

 

vlu//

 

 

 

 

Valeu pela idéia.
No meu caso, acho que isto já me atende, pois meu problema apenas é em relação a TOP e LEFT do form.:

Private Sub Form_Load()
    Dim intX As Integer
    Dim intY As Integer
    Dim strResolucao As String
   
    X = Screen.Width / Screen.TwipsPerPixelX
    Y = Screen.Height / Screen.TwipsPerPixelY
    strResolucao = X & "x" & Y
   
    'MsgBox "A resolucao é de " & strResolucao
    If strResolucao <> "800x600" And strResolucao <> "1024x768" Then
        Me.Top = 0
        Me.Left = 0
    End If
End Sub