home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / WorldView / worldview.exe / %MAINDIR% / Source / FieldEl.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-02-21  |  910 b   |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsFieldEl"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Dim m_Name As String
  13. Dim m_Trailer As String
  14. Dim m_Precision As Integer
  15.  
  16. Public Fields As New clsFieldCol
  17. Public Property Get Precision() As Integer
  18.   Precision = m_Precision
  19. End Property
  20. Public Property Let Precision(ByVal Value As Integer)
  21.   m_Precision = Value
  22. End Property
  23. Public Property Get Trailer() As String
  24.   Trailer = m_Trailer
  25. End Property
  26. Public Property Let Trailer(ByVal Value As String)
  27.   m_Trailer = Value
  28. End Property
  29. Private Sub Class_Terminate()
  30.   Set Fields = Nothing
  31. End Sub
  32. Public Property Get Name() As String
  33.   Name = m_Name
  34. End Property
  35. Public Property Let Name(ByVal Value As String)
  36.   m_Name = Value
  37. End Property
  38.