RESOLUCAO PADRAO

USUARIO.EXCLUIDOS 14/12/2006 16:07:55
#189982
ALGUEM SABE ME DIZER SE TEM COMO CONFIGURAR A RESOLUÇÃO PADRÃO DE TELA TIPO 800x600px via codigo no vb
USUARIO.EXCLUIDOS 14/12/2006 16:13:17
#189985 Resposta escolhida
Olá,

Peguei uma função de uma dica aqui no VBM que talvez possa ajudá-lo. Ela redimensiona os controles da tela para a resolução que vc informar como o fator.

Public Sub 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 Sub



Espero poder tê-lo ajudado.

Boa Sorte.

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