Este es el sitio web histórico de la documentación de 4D. La documentación se está trasladando progresivamente a developer.4d.com |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v20 R7
GOTO XY
|
GOTO XY ( x ; y ) | ||||||||
Parámetro | Tipo | Descripción | ||||||
x | Entero largo |
![]() |
Posición x (horizontal) del cursor | |||||
y | Entero largo |
![]() |
Posición y (vertical) del cursor | |||||
El comando GOTO XY se utiliza conjuntamente con el comando MESSAGE cuando usted muestra mensajes en una ventana abierta por el comando Open window.
GOTO XY determina la posición del cursor de inserción de caracteres (un cursor invisible) para definir la ubicación del siguiente mensaje en la ventana.
La esquina superior izquierda representa las coordenadas 0,0. El cursor se ubica automáticamente en 0,0 cuando una ventana se abre y luego se ejecuta ERASE WINDOW.
Después de que GOTO XY defina la posición del cursor, puede utilizar MESSAGE para mostrar los caracteres en la ventana.
Ver el ejemplo del comando MESSAGE.
Ver el ejemplo del comando Milliseconds.
El siguiente ejemplo:
Open window(50;50;300;300;5;"Esta es sólo una prueba")
For($vlFila;0;9)
GOTO XY($vlFila;0)
MESSAGE(String($vlFila))
End for
For($vlLinea;0;9)
GOTO XY(0;$vlLinea)
MESSAGE(String($vlLinea))
End for
$vhHoraInicio:=Current time
Repeat
Until((Current time-$vhHoraInicio)>†00:00:30†)
Muestra la siguiente ventana (en Macintosh) por 30 segundos:
Producto: 4D
Tema: Mensajes
Número
161
Creado por: < 4D v6
Manual de lenguaje 4D ( 4D v20 R7)