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 <HYPERLINK "mailto:[EMAIL PROTECTED]"[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 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
<<image001.gif>>
