home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Winsock_AP3573111172001.psc / Sock.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-09-18  |  1.4 KB  |  47 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 = "Sock"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. 'local variable(s) to hold property value(s)
  17. Private mvarSocket As Long 'local copy
  18. 'local variable(s) to hold property value(s)
  19. Private mvarSSocket As String 'local copy
  20. Public Property Let SSocket(ByVal vData As String)
  21. 'used when assigning a value to the property, on the left side of an assignment.
  22. 'Syntax: X.SSocket = 5
  23.     mvarSSocket = vData
  24. End Property
  25.  
  26.  
  27. Public Property Get SSocket() As String
  28. 'used when retrieving value of a property, on the right side of an assignment.
  29. 'Syntax: Debug.Print X.SSocket
  30.     SSocket = mvarSSocket
  31. End Property
  32.  
  33.  
  34.  
  35. Public Property Let Socket(ByVal vData As Long)
  36. 'used when assigning a value to the property, on the left side of an assignment.
  37. 'Syntax: X.Socket = 5
  38.     mvarSocket = vData
  39. End Property
  40.  
  41.  
  42. Public Property Get Socket() As Long
  43. 'used when retrieving value of a property, on the right side of an assignment.
  44. 'Syntax: Debug.Print X.Socket
  45.     Socket = mvarSocket
  46. End Property
  47.