Aunque no recuerdo la funcionalidad que describió Cristian, el MZTools
lo encontrás en: www.mztools.com
Suerte.
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Cristian
C. Bittel
Sent: Friday, July 06, 2007 5:24 PM
To: vbusers List Member
Subject: [vbusers] RE: [vbusers] Re: Tamaños del forma
Beto, hay un Add-In FREE para VB6 q se llama MZTools. No sé dónde lo podrás
conseguir y yo no lo tengo en su configuración original
Bueno, este Add-In tiene una opción de integrar a tu aplicación unos módulos
que hacen eso que vos querés. Sirve sólo con pantallas simples, con
controles complejos se confunde un poco, pero funciona!
Buscalo con Google seguro lo encontrás.
Cristian.
_____
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Beto
Carranza
Enviado el: Viernes, 06 de Julio de 2007 15:50
Para: vbusers List Member
Asunto: [vbusers] Re: Tamaños del forma
Muchas gracias Cesar,
El problema que tengo es que lo que necesito es que me posicione todos los
botones, texts, etc en una posición similar a la que diseño yo, pero en otra
resolución mas chica.
Yo ya tengo los forms diseñados, y lo que me pasa es esto:
Pantalla 1024x768: Pantalla
800x600:
__________________________________ _______________________
| | |
|
| | |
|
| | |
| | | |
|
| | |
|
| |
|______________________|
| |
| textbox |
textbox
|_________________________________|
Osea lo que necesitaría, que no se si se puede, es que aparte de achicarme
el form, me posicione los componentes insertados.
Saludos, y gracias denuevo,
Beto.
2007/7/5, César Daniel Falchi <[EMAIL PROTECTED]>:
Beto, probá esta rutina, ponela en el form - activate.
César.
'Tamaño del area de trabajo (Ancho x Alto)
'Altura de la pantalla
h = Screen.Height / Screen.TwipsPerPixelY
'Ancho de la pantalla
w = Screen.Width / Screen.TwipsPerPixelX
'REsolucion 800 x 600
If h = 600 And w = 600 Or h = 600 And w = 800 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 8670 Or Me.Height < 8670 Then
Me.WindowState = 0
Me.Height = 9000
Me.Width = 12000
Me.Top = 0
Me.Left = 0
End If
End If
'Resolución 1024 x 768
'If h = 768 And w = 1024 Or h = 864 And w = 1152 Then
If h = 768 And w = 768 Or h = 768 And w = 1024 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 9930 Or Me.Height < 9930 Then
Me.WindowState = 0
Me.Height = 9000 '9930
Me.Width = 12000
Me.Top = 1200
Me.Left = 1800
End If
End If
'Resolución 1024 x 1280
'If h = 1280 And w =1024 Or h = 864 And w = 1152 Then
If h = 1024 And w = 1024 Or h = 1024 And w = 1024 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 9930 Or Me.Height < 9930 Then
Me.WindowState = 0
Me.Height = 9000 '9930
Me.Width = 12000
Me.Top = 2800
Me.Left = 3600
End If
End If
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.10.1/888 - Release Date: 06/07/2007
06:36
__________ NOD32 2383 (20070706) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.10.1/888 - Release Date: 06/07/2007
06:36
_____________ NOD32 EMON 2383 (20070706) information _____________
This message was checked by NOD32 antivirus system
http://www.eset.com
_____________ NOD32 EMON 2383 (20070706) information _____________
This message was checked by NOD32 antivirus system
http://www.eset.com
