REDIMENSIOR CONFORME RESOLUCAO DE VIDEO

USUARIO.EXCLUIDOS 15/09/2006 09:27:11
#171624
Bom dia Pessoal,

Por Favor alguem pode me ajudar.
Fiz um programinha basico em vb6 em uma máquina com resolução de video de 1024 x 768, até ai tudo beleza, só que quando executo o programa em máquinas com resolução de 800 x 600 por exemplo, fica tudo deformado alguns componentes usados como o msflexgrid fica aparecendo pela metade,
como posso corrigir isso?
USUARIO.EXCLUIDOS 15/09/2006 09:35:40
#171629 Resposta escolhida 
  Public Function ResizeForm(Fator As Double, frm As Form)
'*** ALTERA DIMENSÕES DOS CONTROLES DO FORM
'*** FATOR DE 1024x768 PARA 800x600 = 0.78125
'*** FATOR DE 800x600 PARA 1024x768 = 1.28
    Dim ctl
    frm.Top = 0
    frm.Left = 0
    frm.Width = frm.Width * Fator
    frm.Height = frm.Height * Fator
    On Error Resume Next
    For Each ctl In frm.Controls
        ctl.Top = ctl.Top * Fator
        ctl.Width = ctl.Width * Fator
        If Left(ctl.Name, 3) <> "cbo" Then ctl.Height = ctl.Height * Fator
        ctl.Left = ctl.Left * Fator
        ctl.FontSize = ctl.FontSize * Fator \ 1
    Next
End Function

Tópico encerrado , respostas não são mais permitidas
Voltar