RESOLUCAO DE MONITOR X TELA DO PROGRAMA
Boa tarde galera to com o seguinte problema:
eu fiz um aplicativo que roda legal num monitor comum so que eu mandei para o cliente e la o monitor dele e daqueles pequenos monocromaticos com a resolução de 640 x 480 e a tela do aplicativo não fica centralizada direito como é que eu faço para dimencionar a tela de acordo com essa resolução
obs: segundo o monitor é de 12 polegadas.
muito grato
eu fiz um aplicativo que roda legal num monitor comum so que eu mandei para o cliente e la o monitor dele e daqueles pequenos monocromaticos com a resolução de 640 x 480 e a tela do aplicativo não fica centralizada direito como é que eu faço para dimencionar a tela de acordo com essa resolução
obs: segundo o monitor é de 12 polegadas.
muito grato
Cara... o que vc tem que fazer é criar ou adaptar o seu PROGRAMA para rodar em 640 x 480!!!!!!!!!
Coloque o monitor da sua casa/serviço em 640x480...
Abra o VB.... Abra seu PROJETO.. e faça as modificações...
Diminua.. o tamanho das fontes.. das letras... tire os espaços vazios
e etc..
é a única solução...
Coloque o monitor da sua casa/serviço em 640x480...
Abra o VB.... Abra seu PROJETO.. e faça as modificações...
Diminua.. o tamanho das fontes.. das letras... tire os espaços vazios
e etc..
é a única solução...
Ps: Quando vou desenvolver uma aplicação para FARMà ÂCIA, LOCADORA e etc. A primeira coisa que pergunto é a RESOLUÇÃO onde o programa vai rodar...
Porque se for 640x480 ... já começo desde o inÃcio nessa resolução...
Você pode fazer dois projetos.. um pra 640x480... e outro pra 800x600 e etc.. na hora que o programa dor executado... detecta a resolução...e já abre o programa no tamanho certinho... MAS ISSO é TÃO PENOSO... que nunca me meti a fazer tal coisa... faço uma única resolução mesmo e pronto....
Porque se for 640x480 ... já começo desde o inÃcio nessa resolução...
Você pode fazer dois projetos.. um pra 640x480... e outro pra 800x600 e etc.. na hora que o programa dor executado... detecta a resolução...e já abre o programa no tamanho certinho... MAS ISSO é TÃO PENOSO... que nunca me meti a fazer tal coisa... faço uma única resolução mesmo e pronto....
o problema que aqui no trabalho a resolução do monitor é de no minimo 800x600
Não tem problema, você na hora de construir seus FORMS..
Não ultrapasse as seguintes medidas
Width = 9720 'equivale a 780px
Height = 6975 'equivale a 640px
Pronto... se a resolução do cliente for.. 640x480.. vai dar tudo certo
Não ultrapasse as seguintes medidas
Width = 9720 'equivale a 780px
Height = 6975 'equivale a 640px
Pronto... se a resolução do cliente for.. 640x480.. vai dar tudo certo
Faça no seu formulário de entrada:
Public Sub MudaResolucao()
Dim t As Boolean
Dim s As Boolean
Dim r As RECT
t = True
s = True
' Neste ponto coloque a resolução que você deseja para seu programa. Se ele for diferente, ele vai chamar a rotina para alterar...
ResX = 800
ResY = 600
Call GetClipCursor(r)
OldX = r.Right
OldY = r.Bottom
If test = False Then
'Vai testar agora se a resolução está correta ou se precisa ser alterada
If OldX <> ResX And OldY <> ResY Then
troq = MsgBox("Este programa está otimizado para computadores com resolução de vÃdeo de " & ResX & " X " & ResY & "." & vbNewLine & "Talvez não seja possÃvel alterá-lo. Quer tentar alterar as resoluções agora?", vbQuestion + vbYesNo, "NeoSoft - Aviso de resolução")
test = True
If troq = vbYes Then
resolucao = True
Call ChangeRes(ResX, ResY)
Else
resolucao = False
End If
Else
resolucao = False
End If
End If
End Sub
Espero ter ajudado.
Um abraço!
Public Sub MudaResolucao()
Dim t As Boolean
Dim s As Boolean
Dim r As RECT
t = True
s = True
' Neste ponto coloque a resolução que você deseja para seu programa. Se ele for diferente, ele vai chamar a rotina para alterar...
ResX = 800
ResY = 600
Call GetClipCursor(r)
OldX = r.Right
OldY = r.Bottom
If test = False Then
'Vai testar agora se a resolução está correta ou se precisa ser alterada
If OldX <> ResX And OldY <> ResY Then
troq = MsgBox("Este programa está otimizado para computadores com resolução de vÃdeo de " & ResX & " X " & ResY & "." & vbNewLine & "Talvez não seja possÃvel alterá-lo. Quer tentar alterar as resoluções agora?", vbQuestion + vbYesNo, "NeoSoft - Aviso de resolução")
test = True
If troq = vbYes Then
resolucao = True
Call ChangeRes(ResX, ResY)
Else
resolucao = False
End If
Else
resolucao = False
End If
End If
End Sub
Espero ter ajudado.
Um abraço!
Ou vocÃÅ pode alterar o tamanho dos seus controles conforme a resolução de uma olhada nesta dica :
http://www.codex.com.br/colaboracao/VerOK.asp?ID=1736
http://www.codex.com.br/colaboracao/VerOK.asp?ID=1736
Tópico encerrado , respostas não são mais permitidas