Postada em 29/01/2011 01:19 hs
Em um módulo.
Public lheiGHT As Double
Public lwidTH As Double
No seu formulário inicial.
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 / 800)
lwidTH = (xPIXELS / 1028)
End Sub
Ao Carregar o formulário.
Private Sub Form_Load()
Me.Top = (Me.Top * lheiGHT)
Me.Left = (Me.Left * lwidTH)
Me.Height = (Me.Height * lheiGHT)
Me.Width = (Me.Width * lwidTH)
End Sub
Claro, ao carregar o formulário, você cria um Função pública que acerta os controles do formulário, testando quais controles, aceitam Top, Left, Height e Width, assentando estes controles com novos tamanhos e posições.
Tenho usado assim, e funciona muito bem, mas também para isto, você precisa padronizar os nomes dos controles de acordo com o tipo, usando como parâmetro os 3 primeiros digitos do nome do controle exemplo:
Label = lbl
TextBox = txt
CommandButton = btn
Frame = fra
DbGrid = dbg
Assim por diante.
Você terá trabalho apenas uma vez, e fica ótimo.
vlu//
|
