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 / 309X0805.TXT < prev    next >
Encoding:
Text File  |  1998-06-17  |  1.5 KB  |  49 lines
  1.  
  2. Private Sub UserControl_InitProperties()
  3.  
  4. ' Set the property values to their defaults.
  5. msdcBOFAction = DefaultBOFAction
  6. msdcEOFAction = DefaultEOFAction
  7. mstrConnectionString = DefaultConnectionString
  8. mstrRecordSource = DefaultRecordSource
  9.  
  10. ' Set the hsbRecScroll.LargeChange property to
  11. ' the default value.
  12. hsbRecScroll.LargeChange = DefaultLargeChange
  13.  
  14. End Sub
  15.  
  16.  
  17. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  18.  
  19. ' Read the property values from the property bag.
  20. msdcBOFAction = PropBag.ReadProperty("BOFAction", _
  21.     DefaultBOFAction)
  22. msdcEOFAction = PropBag.ReadProperty("EOFAction", _
  23.     DefaultEOFAction)
  24. mstrConnectionString = PropBag.ReadProperty("ConnectionString", _
  25.     DefaultConnectionString)
  26. mstrRecordSource = PropBag.ReadProperty("RecordSource", _
  27.     DefaultRecordSource)
  28. hsbRecScroll.LargeChange = PropBag.ReadProperty("LargeChange", _
  29.     DefaultLargeChange)
  30.  
  31. End Sub
  32.  
  33.  
  34. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  35.  
  36. ' Write the property values to the property bag.
  37. Call PropBag.WriteProperty("BOFAction", _
  38.     msdcBOFAction, DefaultBOFAction)
  39. Call PropBag.WriteProperty("EOFAction", _
  40.     msdcEOFAction, DefaultEOFAction)
  41. Call PropBag.WriteProperty("ConnectionString", _
  42.     mstrConnectionString, DefaultConnectionString)
  43. Call PropBag.WriteProperty("RecordSource", _
  44.     mstrRecordSource, DefaultRecordSource)
  45. Call PropBag.WriteProperty("LargeChange", _
  46.     hsbRecScroll.LargeChange, DefaultLargeChange)
  47.     
  48. End Sub
  49.