home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / VCR / VCR.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-01-27  |  3.3 KB  |  98 lines
  1. Attribute VB_Name = "VCRModule"
  2. '**********************************************
  3. ' ─┐╡─ú║ ╙├╙┌ VCR ╩╛└²╙ª╙├│╠╨≥╡─═¿╙├─ú┐Θíú
  4. ' ░ⁿ║¼┴╦╥╗╨⌐╣▓╧φ╡──ú┐Θíú
  5. '**********************************************
  6. Option Explicit
  7.  
  8. ' │⌡╩╝╗» recorder └α
  9. Public Recorder As New clsRecorder
  10.  
  11. '**********************************************
  12. ' ─┐╡─ú║  ╗∙╙┌╡▒╟░╡──ú╩╜ú¼╩╣ VCR ┤░╠σ
  13. '         ╔╧╡─░┤┼Ñ╙╨╨º╗≥╬▐╨ºíú
  14. ' ╩Σ╚δú║  Button: ╡≈╙├╣²│╠╡─├ⁿ┴ε░┤┼Ñíú
  15. '**********************************************
  16. Sub ButtonManager(Button As Control)
  17.     Dim vntControl As Variant   ' ┐╪╝■╡─╓╡
  18.     
  19.     ' ╚╖╢¿░┤╧┬┴╦──╕÷╣ª─▄░┤┼Ñ
  20.     ' ▓ó╕ⁿ╨┬╦∙╙╨╡─░┤┼Ñ║═ Recorder └α
  21.     Select Case Button
  22.         Case frmVCR.cmdPlay, frmVCR.cmdForward, frmVCR.cmdRewind
  23.             frmVCR.cmdPause.Enabled = True
  24.             frmVCR.cmdStop.Enabled = True
  25.             frmVCR.cmdRec.Enabled = False
  26.             frmVCR.cmdDown.Enabled = False
  27.             frmVCR.cmdUp.Enabled = False
  28.             Recorder.Enabled = False
  29.         Case frmVCR.cmdRec
  30.             frmVCR.cmdPause.Enabled = True
  31.             frmVCR.cmdStop.Enabled = True
  32.             frmVCR.cmdPlay.Enabled = False
  33.             frmVCR.cmdForward.Enabled = False
  34.             frmVCR.cmdRewind.Enabled = False
  35.             frmVCR.cmdDown.Enabled = False
  36.             frmVCR.cmdUp.Enabled = False
  37.             Recorder.Enabled = False
  38.         Case frmVCR.cmdPause
  39.             frmVCR.cmdPause.Enabled = False
  40.         Case frmVCR.cmdStop
  41.             frmVCR.cmdStop.Enabled = False
  42.             frmVCR.cmdPause.Enabled = False
  43.             frmVCR.cmdRec.Enabled = True
  44.             frmVCR.cmdPlay.Enabled = True
  45.             frmVCR.cmdForward.Enabled = True
  46.             frmVCR.cmdRewind.Enabled = True
  47.             frmVCR.cmdDown.Enabled = True
  48.             frmVCR.cmdUp.Enabled = True
  49.             Recorder.Enabled = True
  50.     End Select
  51.     ' ░╤░┤┼Ñ╕│╓╡╕°╙δ╞Σ╧α╣╪╡─
  52.     ' shape ┐╪╝■
  53.     vntControl = Button.Name
  54.     vntControl = Right$(vntControl, Len(vntControl) - 3)
  55.     vntControl = "shp" & vntControl
  56.     ' ╡≈╙├╕ⁿ╨┬╓╕╩╛╡╞╡─╣²│╠
  57.     HighlightButton vntControl
  58. End Sub
  59. '**********************************************
  60. ' ─┐╡─ú║  ╗∙╙┌╡▒╟░╡──ú╩╜ú¼╩╣ VCR ╔╧
  61. '         ╡─ shape ┐╪╝■╙╨╨º╗≥╬▐╨ºíú
  62. ' ╩Σ╚δú║  MyControl: ┤½╡▌╕°╣²│╠╡─ Shape ┐╪╝■íú
  63. '**********************************************
  64. Sub HighlightButton(MyControl As Variant)
  65.     Dim i As Integer    ' ╝╞╩²╞≈▒Σ┴┐
  66.     
  67.     ' ▒Θ└· Controls ╝»║╧
  68.     For i = 0 To frmVCR.Controls.Count - 1
  69.         ' ▓Γ╩╘ Shape ┐╪╝■
  70.         If TypeOf frmVCR.Controls(i) Is Shape Then
  71.             ' ╚τ╣√╩╟┤½╚δ╡─┐╪╝■ú¼╩╣╞Σ┐╔╝√ú╗
  72.             ' ╖±╘≥ú¼╩╣╞Σ▓╗┐╔╝√íú
  73.             If frmVCR.Controls(i).Name = MyControl Then
  74.                 frmVCR.Controls(i).Visible = True
  75.             Else
  76.                 frmVCR.Controls(i).Visible = False
  77.             End If
  78.         End If
  79.     Next
  80. End Sub
  81. '**********************************************
  82. ' ─┐╡─ú║  ┤µ┤ó╫ε║≤╩╣╙├╡─╞╡╡└║┼ú¼
  83. '         ┬╝╧±╓«║≤╛═┐╔╥╘╗╓╕┤╦ⁿíú
  84. ' ╩Σ╚δú║  Channel: ┤½╡▌╕°╣²│╠╡─╞╡╡└║┼íú
  85. ' ╖╡╗╪ú║  ┤µ┤ó╘┌╛▓╠¼▒Σ┴┐╓╨╡─╞╡╡└íú
  86. '**********************************************
  87. Function SaveChannel(Channel As Variant) As Integer
  88.     Static intChannel As Integer '┤µ┤ó╞╡╡└
  89.     
  90.     ' ╜½╓╡╕│╕°╛▓╠¼▒Σ┴┐
  91.     If Channel <> 0 Then
  92.         intChannel = Channel
  93.     End If
  94.     
  95.     ' ╖╡╗╪╞╡╡└║┼
  96.     SaveChannel = intChannel
  97. End Function
  98.