RESOLUCAO

JPAULO101 02/06/2011 18:25:44
#375724
MARCELO SEGUE A TELA DO PROGRAMA.
RICARDO.RAPA 02/06/2011 18:30:01
#375726
Era para ter passado mais é facil declara a função

dim test as boolean


FICA ASSIM:

Public Sub MudaResolucao()
Dim test as boolean
Dim t As Boolean
Dim s As Boolean
Dim r As RECT
t = True
s = True
ResX = 1024 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
ResY = 768 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
Call GetClipCursor(r)
OldX = r.Right
OldY = r.Bottom
If test = False Then
If OldX <> ResX Then
troq = MsgBox([Ô]Clique em SIM para Ajustar Resolução de Vídeo[Ô], vbInformation + vbYesNo)
test = True
If troq = vbYes Then
resolucao = True
Call ChangeRes(ResX, ResY)
Else
resolucao = False
End
End If
Else
resolucao = False
End If
End If

End Sub
MARCELO.TREZE 02/06/2011 18:30:20
#375727
Esta tela esta ficando muito pequena no PC do seu cliente ou ela ainda é legivel?
JPAULO101 03/06/2011 08:12:48
#375757
MARCELO SIM ESSA TELA FICA MENOR NO NOTBOOK DO CLIENTE, POIS A RESOLUÇÃO DO NOT é 1622X768, E O APLICATIVO FOI FEITA EM UMA RESOLUÇÃO 1024X768.

RICARDO_RAPA, COMO FAZER PARA QUE QUANDO CLICAR NOS BOTÃO FECHAR MINIMIZAR E RAUTARAR FOLTA A RESOLUÇÃO NORMAL DO CLIENTE.

ABRAÇOS A TODOS
ROBIU 03/06/2011 08:49:28
#375761
JPAULO101 03/06/2011 10:29:05
#375765
BOA DIA ROBIU, DEI UMA OLHA NO ARTIGO, MAIS TENTEI FAZER O EXEMPLO, MAIS NÃO CONSEGUI. A ROTINA DO RICARDO_RAPA
FUNCIONA BLZ. MAIS GOSTARIA DE QUANDO MINIMIZAR, RESTAURAR E SAIR DO SISTEMA VOLTASSE A RESOLUÇÃO NORMAL DO PC DO CLIENTE.

ABRAÇOS
RICARDO.RAPA 03/06/2011 11:28:40
#375773
Cara faça assim:

Coloque um botão ou o comando assim que o usuario entrar no seu sistema, e no evento RESIZE do form coloque o código com a resolução normal do pc do cliente.

é só adaptar o Código.

Toda vez que você minimizar ou fechar o form ele retorna a resolução de origem. Vou fazer aqui e te passo o código completo no proximo texto.
RICARDO.RAPA 03/06/2011 11:35:15
#375774
Segue o código para te facilitar:

CÓDIGO DO FORM:

Private Sub Command1_Click()
Call MudaResolucao2
End Sub

Private Sub Form_Resize()
Call MudaResolucao
End Sub

Public Sub MudaResolucao()
Dim t As Boolean
Dim s As Boolean
Dim r As RECT
t = True
s = True
ResX = 1024 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
ResY = 768 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
Call GetClipCursor(r)
OldX = r.Right
OldY = r.Bottom
If test = False Then
If OldX <> ResX Then
troq = MsgBox([Ô]Clique em SIM para Ajustar Resolução de Vídeo[Ô], vbInformation + vbYesNo)
test = True
If troq = vbYes Then
resolucao = True
Call ChangeRes(ResX, ResY)
Else
resolucao = False
End
End If
Else
resolucao = False
End If
End If

End Sub

Public Sub MudaResolucao2()
Dim t As Boolean
Dim s As Boolean
Dim r As RECT
t = True
s = True
ResX = 800 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
ResY = 600 [ô]ALTERAR RESOLUÇÃO PARA QUALQUER UMA
Call GetClipCursor(r)
OldX = r.Right
OldY = r.Bottom
If test = False Then
If OldX <> ResX Then
troq = MsgBox([Ô]Clique em SIM para Ajustar Resolução de Vídeo[Ô], vbInformation + vbYesNo)
test = True
If troq = vbYes Then
resolucao = True
Call ChangeRes(ResX, ResY)
Else
resolucao = False
End
End If
Else
resolucao = False
End If
End If

End Sub
Página 2 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar