home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / VCR / TAPE.CLS < prev    next >
Encoding:
Text File  |  1997-01-26  |  1.4 KB  |  53 lines
  1. VERSION 1.0 CLASS 
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsTape"
  6. Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
  7. Attribute VB_Creatable = False
  8. Attribute VB_TemplateDerived = False
  9. Attribute VB_PredeclaredId = False
  10. Attribute VB_Exposed = False
  11. Attribute VB_Customizable = False
  12. '**********************************************
  13. ' ╙├╙┌ VCR ╩╛└²╙ª╙├│╠╨≥╡─└α─ú┐Θíú
  14. ' ╛═╧± VCR ╡─┤┼┤°╩Σ╦═╫░╓├╥╗╤∙ú¼
  15. ' ┐╪╓╞╫┼═╝╧±╡─í░╗╪╖┼í▒íú
  16. '**********************************************
  17.  
  18. Option Explicit
  19.  
  20. Public Left As Integer      '╫ε║≤╡─╬╗╓├
  21. Public Forward As Boolean   '┤┼┤°╖╜╧≥
  22. Public Speed As Integer     '┤┼┤°╦┘╢╚
  23. '**********************************************
  24. ' ─┐╡─ú║  ╬¬├┐╥╗╖∙╢»╗¡╝╞╦π╨┬╫∙▒Ωíú
  25. ' ╩Σ╚δú║  ┐φ╢╚ú║ ▓Ñ╖┼╢»╗¡╡─═╝╞¼┐≥╡─┐φ╢╚
  26. '**********************************************
  27. Public Sub Animate(Width As Integer)
  28.     If Forward = True Then
  29.         ' ╧≥╟░╫▀ - ╘÷╝╙╡▒╟░╡─ left ╓╡
  30.         ' ╓▒╡╜╡╜┤∩╙╥▒▀╜τ
  31.         If Left < Width - 50 Then
  32.             Left = Left + 50
  33.         Else
  34.             Left = 0
  35.         End If
  36.     Else
  37.         ' ╧≥╟░╫▀ - ╝⌡╔┘╡▒╟░╡─ left ╓╡   ú┐ú┐ú┐╘¡╬─╙╨╬≤
  38.         ' ╓▒╡╜╡╜┤∩╫≤▒▀╜τ
  39.         If Left > 0 Then
  40.             Left = Left - 50
  41.         Else
  42.             Left = Width - 50
  43.         End If
  44.     End If
  45. End Sub
  46.  
  47. Private Sub Class_Initialize()
  48.     ' │⌡╩╝╗»└α╩⌠╨╘
  49.     Forward = True
  50.     Left = 0
  51.     Speed = 300
  52. End Sub
  53.