DigiNG edición Scripting

Propiedad Justificacion

Establece o Devuelve la justificación asociada a un Objeto Entidad de tipo texto.

Si el Objeto Entidad no representa una entidad de tipo Texto, cuando accedemos a la propiedad en modo lectura o escritura, la llamada fallará.

objeto.Justificacion

Ejemplo

' Este ejemplo emula la orden CAMB_JT de DigiNG

Const vbTexto = 4

Dim texto

Dim nueva

Digi.ImprimeMensaje "Selecciona un texto para cambiar su justificación"

Set texto = Digi.PideEntidad(True, vbTexto)

Digi.ImprimeMensaje ""

Set nueva = Digi.ClonaEntidad(texto)

nueva.Justificacion = digi.JT

Digi.OcultaEntidad texto

Digi.BorraEntidad texto

Digi.DibujaEntidad nueva

Digi.AnadeEntidad nueva

' Liberamos la memoria

Set nueva = Nothing

Set texto = Nothing

Mirar también

Método ImprimeMensaje | Método PideEntidad | Método OcultaEntidad | Método BorraEntidad | Método DibujaEntidad | Método AnadeEntidad | Propiedad JT | Objeto Entidad

Fecha de última modificación: viernes, 25 de julio de 2003

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