DigiNG edición Scripting

Método digi.PideDistancia

Devuelve una distancia introducida por el usuario rellenando el cuadro de diálogo ó digitalizando dos puntos.

Cuando se ejecuta este método aparece un cuadro de diálogo solicitando al usuario que introduzca una distancia ó que digitalice dos puntos. En la llamada al método se puede especificar el título del cuadro de diálogo, así como un texto que aparecerá dentro del mismo para indicar al usuario que introduzca un valor. Si el usuario digitaliza un dato, el cuadro de diálogo desaparece y se muestra en la barra de mensajes un texto que también se pasa por parámetro al método y que le invita al usuario a digitalizar un segundo punto.

El valor de la distancia devuelto están multiplicadas por el valor de la Propiedad Precision.

digi.PideDistancia (titulo, mensaje, mensajeBarraEstado)

Argumentos

titulo

        El título del cuadro de diálogo.

mensaje

        El mensaje que aparece dentro del cuadro de diálogo.

mensajeBarraEstado

        Mensaje que aparece en la barra de estado cuando el usuario ha registrado un primer punto.

Ejemplo

Dim distancia

distancia = digi.PideDistancia("Paralela", "Introduzca numéricamente la distancia ó digitalice un punto", "Digitalice el segundo punto...")

MsgBox "La distancia introducida ha sido: " & distancia/digi.Precision

Mirar también

Método ImprimeMensaje | Objeto Point

Fecha de última modificación: domingo, 9 de diciembre de 2001

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.