home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Complete_W1770747172004.psc / WISPA / dllsrc / CDnsResult.cls < prev    next >
Text File  |  2004-04-16  |  3KB  |  82 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CDnsResult"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. ' *************************************************************************************************
  15. ' Copyright (C) Chris Waddell
  16. '
  17. ' This program is free software; you can redistribute it and/or modify
  18. ' it under the terms of the GNU General Public License as published by
  19. ' the Free Software Foundation; either version 2, or (at your option)
  20. ' any later version.
  21. '
  22. ' This program is distributed in the hope that it will be useful,
  23. ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  24. ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25. ' GNU General Public License for more details.
  26. '
  27. ' You should have received a copy of the GNU General Public License
  28. ' along with this program; if not, write to the Free Software
  29. ' Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  30. '
  31. ' Please consult the LICENSE.txt file included with this project for
  32. ' more details
  33. '
  34. ' *************************************************************************************************
  35. Option Explicit
  36.  
  37. ' Fully qualified domain name
  38. Private m_strFullyQualifiedDomainName   As String
  39.  
  40. ' array of aliases
  41. Private m_Aliases                       As Collection
  42.  
  43.  
  44. ' Collection of addresses
  45. Private m_AddressList                   As CIP4Collection
  46.  
  47.  
  48. ' *************************************************************************************************
  49. ' The fully qualified domain name.
  50. ' *************************************************************************************************
  51. Public Property Get FullyQualifiedDomainName() As String
  52.     FullyQualifiedDomainName = m_strFullyQualifiedDomainName
  53. End Property
  54.  
  55. Public Property Let FullyQualifiedDomainName(Value As String)
  56.     m_strFullyQualifiedDomainName = Value
  57. End Property
  58.  
  59.  
  60. ' *************************************************************************************************
  61. ' Alias list
  62. ' *************************************************************************************************
  63. Public Property Get Aliases() As Collection
  64.     Set Aliases = m_Aliases
  65. End Property
  66.  
  67. Public Property Set Aliases(Value As Collection)
  68.     Set m_Aliases = Value
  69. End Property
  70.  
  71.  
  72. ' *************************************************************************************************
  73. ' IP Address list
  74. ' *************************************************************************************************
  75. Public Property Get AddressList() As CIP4Collection
  76.     Set AddressList = m_AddressList
  77. End Property
  78.  
  79. Public Property Set AddressList(Value As CIP4Collection)
  80.     Set m_AddressList = Value
  81. End Property
  82.