Programación General > Visual Basic 6.0 e inferiores

 Coordenadas De Formulario

(1/1)

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

gracias!

Jose Arriagada:
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.

DiabloRojo:
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

Navegación

[0] Índice de Mensajes