SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Alvaro TC en Miércoles 21 de Julio de 2004, 22:26

Título: Coordenadas De Formulario
Publicado por: Alvaro TC en Miércoles 21 de Julio de 2004, 22:26

bueno, sabes como puedo recuperar las coordenadas que ocupa cierto formulario en pantalla?

gracias!

Título: Re: Coordenadas De Formulario
Publicado por: Jose Arriagada en Jueves 22 de Julio de 2004, 00:08

Private Sub Form_Click()
msg = "Tope=" & Me.Top
msg = msg & "  Costado=" & Me.Left
msg = msg & "  Alto=" & Me.Height
msg = msg & "  Ancho=" & Me.Width
Me.Caption = msg
End Sub

Mueve el form, y picha sobre el.

Título: Re: Coordenadas De Formulario
Publicado por: DiabloRojo en Jueves 22 de Julio de 2004, 18:45

Hola Alvaro.
La respuesta que te manda José está muy bién. Me tomo la libertad de sugerirte que añadas éste código en el mismo procedimiento Click del formulario justo después del Me.Caption = msg. Prueba moviendo el fomulario de posición, ensanchándolo y alargándolo. Así verás las coordenadas que ocupan cada una de las cuatro esquinas de tu formulario en la pantalla. También te recomiendo chequear el sistema o unidad de medida que usas en tu proyecto. Sin más, ahí te va el código:

Me.Cls
Print "Esquina superior izquierda " & "(" & Me.Top & "," & Me.Left & ")"
Print "Esquina superior derecha " & "(" & Me.Top & "," & Me.Left + Me.Width & ")"
Print "Esquina inferior izquierda " & "(" & Me.Top + Me.Height & "," & Me.Left & ")"
Print "Esquina inferior derecha " & "(" & Me.Top + Me.Height & "," & Me.Left +  Me.Width & ")"
Print "Sistema de medida (o unidad de medida) " & Me.ScaleMode

Suerte y espero que te sea de utilidad