home *** CD-ROM | disk | FTP | other *** search
Visual Basic class definition | 2000-02-21 | 910 b | 38 lines |
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- END
- Attribute VB_Name = "clsFieldEl"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- Option Explicit
-
- Dim m_Name As String
- Dim m_Trailer As String
- Dim m_Precision As Integer
-
- Public Fields As New clsFieldCol
- Public Property Get Precision() As Integer
- Precision = m_Precision
- End Property
- Public Property Let Precision(ByVal Value As Integer)
- m_Precision = Value
- End Property
- Public Property Get Trailer() As String
- Trailer = m_Trailer
- End Property
- Public Property Let Trailer(ByVal Value As String)
- m_Trailer = Value
- End Property
- Private Sub Class_Terminate()
- Set Fields = Nothing
- End Sub
- Public Property Get Name() As String
- Name = m_Name
- End Property
- Public Property Let Name(ByVal Value As String)
- m_Name = Value
- End Property
-