DigiNG edición Scripting

Propiedad Altura

Establece o Devuelve la altura 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, la llamada fallará.

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

objeto.Altura

Ejemplo

' Este ejemplo amula la orden CAMB_AT de DigiNG

Const vbTexto = 4

Dim texto

Dim nueva

Digi.ImprimeMensaje "Selecciona un texto para cambiar su altura"

Set texto = Digi.PideEntidad(True, vbTexto)

Digi.ImprimeMensaje ""

Set nueva = Digi.ClonaEntidad(texto)

nueva.Altura = digi.AT * digi.Precision

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 AT | Propiedad PRECISION | Objeto Entidad

Fecha de última modificación: lunes, 28 de enero de 2002

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