home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm1121.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-25  |  2.1 KB  |  69 lines
  1. VERSION 4.00
  2. Begin VB.Form frmmultimedia 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1335
  5.    ClientLeft      =   1140
  6.    ClientTop       =   2445
  7.    ClientWidth     =   6720
  8.    Height          =   1740
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1335
  12.    ScaleWidth      =   6720
  13.    Top             =   2100
  14.    Width           =   6840
  15.    Begin VB.TextBox txttrack 
  16.       Height          =   495
  17.       Left            =   2280
  18.       MultiLine       =   -1  'True
  19.       TabIndex        =   1
  20.       Top             =   780
  21.       Width           =   1215
  22.    End
  23.    Begin MCI.MMControl MMControl1 
  24.       Height          =   495
  25.       Left            =   1260
  26.       TabIndex        =   0
  27.       Top             =   60
  28.       Width           =   3870
  29.       _Version        =   65536
  30.       PrevEnabled     =   -1  'True
  31.       NextEnabled     =   -1  'True
  32.       PlayEnabled     =   -1  'True
  33.       PauseEnabled    =   -1  'True
  34.       StepEnabled     =   -1  'True
  35.       StopEnabled     =   -1  'True
  36.       RecordEnabled   =   -1  'True
  37.       EjectEnabled    =   -1  'True
  38.       BackVisible     =   0   'False
  39.       StepVisible     =   0   'False
  40.       RecordVisible   =   0   'False
  41.       DeviceType      =   "CDAUDIO"
  42.       Shareable       =   -1  'True
  43.       Silent          =   -1  'True
  44.       _ExtentX        =   6826
  45.       _ExtentY        =   873
  46.       _StockProps     =   32
  47.       BorderStyle     =   1
  48.    End
  49. Attribute VB_Name = "frmmultimedia"
  50. Attribute VB_Creatable = False
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53. Dim ntrack As Integer
  54. Private Sub Form_Load()
  55. MMControl1.Command = "open"
  56. End Sub
  57. Private Sub MMControl1_NextClick(Cancel As Integer)
  58. MMControl1.Track = MMControl1.Track + 1
  59. End Sub
  60. Private Sub MMControl1_PlayClick(Cancel As Integer)
  61. MMControl1.Track = 1
  62. End Sub
  63. Private Sub MMControl1_PrevClick(Cancel As Integer)
  64. MMControl1.Track = MMControl1.Track - 1
  65. End Sub
  66. Private Sub MMControl1_StatusUpdate()
  67. txttrack.TEXT = " Track " & MMControl1.Track & " of " & MMControl1.Tracks & " Tracks "
  68. End Sub
  69.