|
|
Postada em 10/12/2004 09:38 hs
Mensagem : OLA, ATÉ UM TEMPO ATRAS EU DESENVOLVIA MEUS SISTEMAS DO VB6 EM WIN98, AGORA FAÇO EM WIN-XP, QUANDO INSTALO NUMA MAQUINA QUE TEM O WIN98, FICA TUDO MAIOR DO QUE A TELA E FEIO, FORA DE PRUMO. O QUE FAZER ??? POIS VEJO VÁRIOS SISTEMAS QUE FAZEMOS DOWNLOAD E FICÃO CERTOS NA TELA DO WIN98 E DO WIN-XP. ALGUÉM TEM A SOLUÇÃO??? AGRADEÇO DESDE JÁ !!!
|
|
|
|
|
|
Wellington
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2004 15:15 hs
Olá...Edu.... Vc antes de começar a desenvolver seus sistemas....vc tem que definir em qual resolução vai programar......eu sugiro que vc use o padrão que é 800x600, inclusive na sua máquina vc deve colocar esta resolução..... Altere sua resolução de video.....coloque 800x600.. |
|
|
|
MARCONE
|
BRASÍLIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2004 15:26 hs
Também tenho esse problema; mas, no meu caso, não se trata de sistema operacional, e sim de hardware. Gero o aplicativo no PC (resolução 800 x 600). Quando instalo em outro PC, tudo bem, fica legal; porém, quando instalo em um notebook a aparência fica muito doida, pois a resolução dos notebooks é diferente da resolução do PC (1024 X 768 ou parecida). Creio que se houver um código para verificar em que tipo de computador o programa está sendo executado, resolveria o problema, pois bastaria mudar a configuração do vídeo na inicialização do programa. Alguém conhece o código para identificar se o programa está rodando em PC ou notebook? 
Marcone
|
|
TÓPICO EDITADO
|
|
|
|
hugo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2004 17:22 hs
vc pode colocar ele pra ficar sempre em 800x600 o cliente nao consegue nem minimizar nem maximizar
no form load
If Screen.Width < 12500 Then
form.WindowState = 2
Else
form.WindowState = 0
form.Width = 12120
form.Height = 8835
form.Top = (Screen.Height - form.Height) / 2
form.Left = (Screen.Width - form.Width) / 2
End If
e no form_Resize
If Screen.Width < 12500 Then
form.WindowState = 2
Else
form.WindowState = 0
form.Width = 12120
form.Height = 8835
form.Top = (Screen.Height - form.Height) / 2
form.Left = (Screen.Width - form.Width) / 2
End If
|
|
|
|
