home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP08 / 309X0803.TXT < prev    next >
Encoding:
Text File  |  1998-06-17  |  2.1 KB  |  93 lines
  1.  
  2. Public Property Get BOFAction() As sdcBOFActionConstants
  3.  
  4. ' Return the value of the BOFAction property.
  5. BOFAction = msdcBOFAction
  6.  
  7. End Property
  8.  
  9.  
  10. Public Property Let BOFAction(ByVal NewValue As sdcBOFActionConstants)
  11.  
  12. ' Store the new value for the BOFAction property.
  13. msdcBOFAction = NewValue
  14. UserControl.PropertyChanged "BOFAction"
  15.  
  16. End Property
  17.  
  18.  
  19. Public Property Get EOFAction() As sdcEOFActionConstants
  20.  
  21. ' Return the value of the EOFAction property.
  22. EOFAction = msdcEOFAction
  23.  
  24. End Property
  25.  
  26.  
  27. Public Property Let EOFAction(ByVal NewValue As sdcEOFActionConstants)
  28.  
  29. ' Store the new value for the EOFAction property.
  30. msdcEOFAction = NewValue
  31. UserControl.PropertyChanged "EOFAction"
  32.  
  33. End Property
  34.  
  35.  
  36. Public Property Get LargeChange() As Integer
  37.  
  38. ' Return the value of the LargeChange property,
  39. ' which is the same as the hsbRecScroll control's
  40. ' LargeChange property.
  41. LargeChange = hsbRecScroll.LargeChange
  42.  
  43. End Property
  44.  
  45.  
  46. Public Property Let LargeChange(ByVal NewValue As Integer)
  47.  
  48. ' Store the new value for the LargeChange property
  49. ' directly into the hsbRecScroll control's
  50. ' LargeChange property.
  51. hsbRecScroll.LargeChange = NewValue
  52. UserControl.PropertyChanged "LargeChange"
  53.  
  54. End Property
  55.  
  56.  
  57. Public Property Get ConnectionString() As String
  58.  
  59. ' Return the value of the ConnectionString property.
  60. ConnectionString = mstrConnectionString
  61.  
  62. End Property
  63.  
  64.  
  65. Public Property Let ConnectionString(ByVal NewValue As String)
  66.  
  67. ' Store the new value for the ConnectionString
  68. ' property. Any extra spaces at the start or end of
  69. ' the string are trimmed.
  70. mstrConnectionString = Trim$(NewValue)
  71. UserControl.PropertyChanged "ConnectionString"
  72.  
  73. End Property
  74.  
  75.  
  76. Public Property Get RecordSource() As String
  77.  
  78. ' Return the value of the RecordSource property.
  79. RecordSource = mstrRecordSource
  80.  
  81. End Property
  82.  
  83.  
  84. Public Property Let RecordSource(ByVal NewValue As String)
  85.  
  86. ' Store the new value for the RecordSource property.
  87. ' Any extra spaces at the start or end of the string
  88. ' are trimmed.
  89. mstrRecordSource = Trim$(NewValue)
  90. UserControl.PropertyChanged "RecordSource"
  91.  
  92. End Property
  93.