RESOLU?ÃO

AMORIM 20/02/2016 16:13:45
#457959
Galera tem como verificar o motivo pelo qual não estou
conseguindo pegar a resolução de vídeo com a função abaixo

Function Video() As String
Dim largura
Dim altura
largura = DisplaySize(SM_CXSCREEN)
altura = DisplaySize(SM_CYSCREEN)
valor = largura * altura
If valor = 307200 Then Video = [Ô]640x480[Ô]
If valor = 480000 Then Video = [Ô]800x600[Ô]
If valor = 786432 Then Video = [Ô]1024x768[Ô]
If valor = 1310720 Then Video = [Ô]1280x1024[Ô]
If valor = 576000 Then Video = [Ô]960x600[Ô]
End Function

If Video = [Ô]640x480[Ô] Then
UserLogin.Height = 480
UserLogin.Width = 640
UserLogin.Top = 0
UserLogin.Left = 0
UserLogin.Acesso.Top = 95
UserLogin.Acesso.Left = 120
Acesso.Repaint
End If
If Video = [Ô]800x600[Ô] Then
UserLogin.Height = 429
UserLogin.Width = 600
UserLogin.Top = 0
UserLogin.Left = 0
UserLogin.Acesso.Top = 130
UserLogin.Acesso.Left = 215
Acesso.Repaint
End If
DS2T 20/02/2016 17:43:43
#457961
Qual é o fluxo da execução? Ele entra em quais condicionais? Ou não entra em nenhum?

Abraços!
KURTGU 20/02/2016 17:52:26
#457963
Vc precisa saber em qual resolução está o monitor?
AMORIM 20/02/2016 19:03:22
#457965
Não o sistema tem que detectar a resolução automaticamente porque não sabemos a resolução do cliente
KURTGU 20/02/2016 19:29:25
#457966
Então amigo VC precisa saber a resolução do monitor do cliente qula a resolução que ele esta usando...Amigo voce nem precisa de tanto pra fazer isso, ..Juro que nao entendi isso tudo ai que voce fez e possivel fazer com 1 linha de codigo...
KURTGU 20/02/2016 19:39:25
#457967

E so usar isto e fazer as suas condicoes usando if elseif

Label1.Text = (Screen.PrimaryScreen.Bounds.Width & [Ô]x[Ô] & Screen.PrimaryScreen.Bounds.Height)
NICKOSOFT 21/02/2016 05:26:18
#457977 Resposta escolhida
Se o codigo funciona, falta a function ter um return alguma string tmb, pra ser usado na cadeia de ifs
DAMASCENO.CESAR 21/02/2016 10:50:28
#457981
faz um tempinho, montei isso aqui pra resolução: dá uma olhada:

http://www.vbmania.com.br/index.php?modulo=detalhe&id=9288
AMORIM 28/02/2016 19:37:57
#458332
Tem como mudar a resolução de vídeo ao abrir o formulário?
NICKOSOFT 28/02/2016 22:13:14
#458343
Tem sim segue basta pesquisar q encontra outras formas
AMORIM 29/02/2016 12:20:00
#458374
tá com erro neste if
If Not EnumDisplaySettings(Nothing, 0, [txt-color=#e80000]dm[/txt-color]) Then
Tópico encerrado , respostas não são mais permitidas
Voltar