Visual Basic - tamaño de pantalla

Life is soft - evento anual de software empresarial
 
Vista:

tamaño de pantalla

Publicado por Alfredo (67 intervenciones) el 04/05/2007 07:51:47
quisiera saber como le hago para que mi aplicación pueda correr en cualquier resolución que tenga la compu en dónde se va a instalar, esto es, como le hago para que las formas y los controles se ajusten a la configuración que tenga la computadora, asi como los programitas hechos en access.....salu2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:tamaño de pantalla

Publicado por Tomas (15 intervenciones) el 04/05/2007 21:18:32
Bueno la solucion a tus problemas es que en el form en la declaracion resize hagas los cambios repectivos... lo mejor es colocar como queires que vallan tus textbox, combobox los list y demas cosas con respecto al tamaño del form

Ejemplo

Private Sub Form_Resize()
Dim tamano As Double
Dim posicion As Double
' Me.btnAtras.Left = frmTabPreciosC.Width - (615 + 400)
' Me.btnModificar.Left = frmTabPreciosC.Width - ((105 * 5) + (855 * 5) + 200)
' Me.btnNuevo.Left = frmTabPreciosC.Width - ((105 * 4) + (855 * 4) + 200)
' Me.btnGuardar.Left = frmTabPreciosC.Width - ((105 * 3) + (855 * 3) + 200)
' Me.btnCancelar.Left = frmTabPreciosC.Width - ((105 * 2) + (855 * 2) + 200)
' Me.btnEliminar.Left = frmTabPreciosC.Width - ((105 * 1) + (855 * 1) + 200)
' Me.btnOk.Left = frmTabPreciosC.Width - 1000
' Me.btnModificar.Top = frmTabPreciosC.Height - 1910
' Me.lstEspeciialidad.Left = frmTabPreciosC.Width - (Me.lstEspeciialidad.Width + 1500)
' Me.Label7.Left = frmTabPreciosC.Width - (Me.lstEspeciialidad.Width + 1500)
' Me.btnNuevo.Top = frmTabPreciosC.Height - 1910
' Me.btnGuardar.Top = frmTabPreciosC.Height - 1910
' Me.btnCancelar.Top = frmTabPreciosC.Height - 1910
' Me.btnEliminar.Top = frmTabPreciosC.Height - 1910
' Me.Label2.Top = frmTabPreciosC.Height - 2150
' Me.txtMuestras.Top = frmTabPreciosC.Height - 1910
' Me.Label3.Top = frmTabPreciosC.Height - 1560
' Me.txtPrecio1.Top = frmTabPreciosC.Height - 1320
' Me.Label4.Top = frmTabPreciosC.Height - 1560
' Me.txtPrecio2.Top = frmTabPreciosC.Height - 1320
' Me.Label5.Top = frmTabPreciosC.Height - 1560
' Me.txtPrecio3.Top = frmTabPreciosC.Height - 1320
' Me.Label6.Top = frmTabPreciosC.Height - 1560
' Me.txtPrecio4.Top = frmTabPreciosC.Height - 1320
' Me.LstPrecios.Height = LstPrecios.Height + (frmTabPreciosC.Height - LstPrecios.Height - 5500)
' Me.LstPrecios.Width = LstPrecios.Width + (frmTabPreciosC.Width - LstPrecios.Width - 400)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:tamaño de pantalla

Publicado por Tomas (15 intervenciones) el 04/05/2007 21:19:41
me falto anexar que esto tambien va cuando cambias el tamaño del form !!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:tamaño de pantalla

Publicado por Alfredo (67 intervenciones) el 06/05/2007 11:06:01
pues muchas gracias por tu ayuda, pero lo que quiero saber tambien, es como le hago para que la forma se ajuste a la resolución que tenga la computadora?????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar