home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD93018252000.psc / claFrame.cls next >
Encoding:
Visual Basic class definition  |  2000-08-25  |  1.1 KB  |  44 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 = "claFrame"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  16. 'Individual frames (for the animation) are defined in this structure
  17. 'Many frames make up an animation 'Sequence'
  18. Option Explicit
  19.  
  20. Public Key As String
  21.  
  22. Private mvarInterval As Integer
  23. Private mvarImageNum As Integer
  24.  
  25. ' PROPERTIES *************************************************
  26. Public Property Let ImageNum(ByVal vData As Integer)
  27.     mvarImageNum = vData
  28. End Property
  29.  
  30. Public Property Get ImageNum() As Integer
  31.     ImageNum = mvarImageNum
  32. End Property
  33.  
  34. Public Property Let Interval(ByVal vData As Integer)
  35.     mvarInterval = vData
  36. End Property
  37.  
  38. Public Property Get Interval() As Integer
  39.     Interval = mvarInterval
  40. End Property
  41.  
  42.  
  43.  
  44.