DigiNG edición Scripting

Propiedad Atributos

Devuelve el número de atributos pertenecientes al Objeto Entidad sobre el cual se ejecuta el método.

objeto.Atributos

Ejemplo

' Este ejemplo solicita una entidad al usuario y muestra en un cuadro

' de diálogo el número de atributos asociados con la entidad seleccionada

' mensaje todos los atributos asociados a la entidad

Option Explicit

Const vbLineas = 1

Const vbPuntos = 2

Const vbTextos = 4

Dim entidad

Dim i

digi.ImprimeMensaje "Seleccione elemento"

Set entidad = digi.PideEntidad( False, vbLineas + vbPuntos + vbTextos )

digi.ImprimeMensaje ""

If entidad.Atributos = 0 Then

        MsgBox "La entidad seleccionada no tiene atributos."

Else

        MsgBox "La entidad seleccionada tiene " & entidad.Atributos & & " atributos"

End If

Set entidad = Nothing ' Liberamos la memoria

Mirar también

Método ImprimeMensaje | Método PideEntidad | Objeto Entidad

Fecha de última modificación: lunes, 27 de mayo de 2002

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