home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhalrm / propprof.cls < prev    next >
Encoding:
Text File  |  1995-11-30  |  1.0 KB  |  37 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CProfessor"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = False
  8. ' This class is used for storing and applying selected properties of the Alarm control
  9.  
  10. Option Explicit
  11.  
  12. Public Style As Integer, WaveName As String, WaveSource As String
  13. '  This procedure sets the properties of the Student object to match the
  14. '       corresponding properties of this class instance
  15. Public Sub TeachPropertiesToObject(Student As Object)
  16.  
  17.  
  18.     Student.Style = Me.Style
  19.     Student.WaveName = Me.WaveName
  20.     Student.WaveSource = Me.WaveSource
  21.     
  22.  
  23. End Sub
  24.  
  25. '  This procedure sets the properties of this object instnce to match the
  26. '       corresponding properties of the passed Alarm control
  27. Public Sub LearnAlarmProperties(Alarm As Object)
  28.  
  29.  
  30.     ' change my properties to match that of the control on which I am working
  31.     Me.Style = Alarm.Style
  32.     Me.WaveName = Alarm.WaveName
  33.     Me.WaveSource = Alarm.WaveSource
  34.  
  35.  
  36. End Sub
  37.