DigiNG edición Scripting

Propiedad Atributo

Devuelve una copia de un determinado atributo perteneciente al Objeto Entidad sobre el cual se ejecuta el método.

objeto.Atributo (posición)

Ejemplo

' Este ejemplo solicita una entidad al usuario y muestra en cuadros de

' 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"

        For i = 0 To entidad.Atributos - 1

                MsgBox "Atributo: " & i & vbCrLf & _

                           "Tabla: " & entidad.Atributo(i).Tabla & vbCrLf & _

                           "Registro: " & entidad.Atributo(i).Registro & vbCrLf & _

                           "Resto: " & entidad.Atributo(i).Resto

        Next

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.