Resolução no Visual Basic 6.0


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Resolução no Visual Basic 6.0

Rafael
não registrado

ENUNCIADA !

Postada em 02/05/2009 14:40 hs

Olá, tenho um aplicativo em Visual Basic e ele foi totalmente programado numa resolução 1680 x 1050, e quando passei pra um computador com a resolução de 1280 x 768, fica muito grande, procurei em alguns fóruns, mas não entendi, sou iniciante, sei como deixar a tela centralizada mas só não sei como deixar na resolução do computador......

Donkey

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 04/05/2009 14:33 hs

Se vc fez em visual basic 6 desista... impossivel.... até é possivel, + é tanto trabalho que não vale a pena.....

Melhor vc refazer as telas usando essa resolução.... por isso ao desenvolver vc tem que pensar muito bem na resolução....

Antigamente 800x600 era padrão, agora a maioria já prefere 1024x768 pois já tem monitores maiores, mais 1680x1050 ja é uma resolução pouco utilizada... não use esta para desenvolver.

Abraço.

George_Ferraz
não registrado

Postada em 04/05/2009 15:10 hs

Rafael, olha só, verifica os temas da máquina que vc instalou seu software, se tiver igual ao seu, eu concordo com o Donkey, caso contrário, vai nas configurações de tela dessa máquina e altera, que provalvelmente ficará legal.

"Sábio o homem que inventou a cerveja" (Platão)

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 04/05/2009 16:17 hs

Este problema é uma droga, dificil de ajustar, mas veja, se quiser resolver pra qualquer resolução, vai uma dica trabalhosa. mas resolve de vez.

Nomeie duas variaveis públicas em um módulo

Public lHEIGHT As Long

Public lWIDTH As Long

No Formulário Inicial:

Dim xTwips As Long
Dim yTwips As Long
Dim xPixels As Long
Dim yPixels As Long
Private Sub Form_Load()
    xTwips = Screen.TwipsPerPixelX
    yTwips = Screen.TwipsPerPixelY
    yPixels = Screen.height / yTwips
    xPixels = Screen.width / xTwips
    lHEIGHT = (yPixels / 600) ' neste caso resolução de 800 x 600
    lWIDTH = (xPixels / 800)

    Me.Top = 0    ' aqui coloca as posições que voce quer, assim como tamanho
    Me.Left = 0    ' baseado em 800 x 600, mas pode mudar
    Me.Height = (6000 * lHEIGHT)
    Me.Width = (12000 * lWIDTH)

' bem agora aqui, voce chama uma função pública que acerta os tamanhos e posição

' dos controles no Formulário

End Sub

Isto deve ser feito em cada formulário que voce carregar, seja mdi, normal, ou child.

Trabalhoso, mas apenas uma única vez, fazendo na base de 800 x 600, a resolução pode

ser qualquer uma, vai ficar beleza, e ai, esquece configuração.

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR