Yo hago algo parecido, quizas un poco/bastante más artesanal, tomo el
ancho/alto de pantalla, y luego proporciono los botones a lo ancho y
la/s grilla/s a lo alto, tengo un sspanel setado arriba y un sspanel
seteado abajo donde van los botones.
Y la grilla la meto al medio, si son 2 grillas , 50 % y 50 % del espacio
disponible.
Luego te mando un ejemplo de codigo fuente, no lo tengo en este momento.
Slds.
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Beto
Carranza
Sent: Viernes, 6 de Julio de 2007 15:50
To: vbusers List Member
Subject: [Bulk] [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
