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
