home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / VB_MP3.exe / frmMP3Player.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-10-10  |  5.2 KB  |  172 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Object = "{05589FA0-C356-11CE-BF01-00AA0055595A}#2.0#0"; "AMOVIE.OCX"
  4. Begin VB.Form frmMP3_Player 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H00000000&
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "AiE VB5 MP3 Player Example Projects By : Rw Bivins"
  9.    ClientHeight    =   1440
  10.    ClientLeft      =   150
  11.    ClientTop       =   720
  12.    ClientWidth     =   6705
  13.    Icon            =   "frmMP3Player.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   1440
  17.    ScaleWidth      =   6705
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.PictureBox Picture1 
  20.       BackColor       =   &H00000000&
  21.       BorderStyle     =   0  'None
  22.       Height          =   1455
  23.       Left            =   2520
  24.       ScaleHeight     =   1455
  25.       ScaleWidth      =   3855
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   3855
  29.       Begin VB.VScrollBar VScroll1 
  30.          Height          =   3615
  31.          Left            =   0
  32.          TabIndex        =   2
  33.          TabStop         =   0   'False
  34.          Top             =   0
  35.          Visible         =   0   'False
  36.          Width           =   255
  37.       End
  38.       Begin VB.Timer Timer1 
  39.          Interval        =   55
  40.          Left            =   240
  41.          Top             =   3120
  42.       End
  43.       Begin VB.TextBox Text1 
  44.          Alignment       =   2  'Center
  45.          Appearance      =   0  'Flat
  46.          BackColor       =   &H00000000&
  47.          BorderStyle     =   0  'None
  48.          ForeColor       =   &H00C0C0C0&
  49.          Height          =   6000
  50.          Left            =   240
  51.          MouseIcon       =   "frmMP3Player.frx":030A
  52.          MousePointer    =   99  'Custom
  53.          MultiLine       =   -1  'True
  54.          TabIndex        =   1
  55.          TabStop         =   0   'False
  56.          Text            =   "frmMP3Player.frx":0614
  57.          Top             =   0
  58.          Width           =   3495
  59.       End
  60.    End
  61.    Begin MSComDlg.CommonDialog CommonDialog1 
  62.       Left            =   0
  63.       Top             =   2040
  64.       _ExtentX        =   847
  65.       _ExtentY        =   847
  66.       _Version        =   327681
  67.       Filter          =   $"frmMP3Player.frx":07FD
  68.    End
  69.    Begin AMovieCtl.ActiveMovie ActiveMovie1 
  70.       Height          =   750
  71.       Left            =   5880
  72.       TabIndex        =   3
  73.       Top             =   2160
  74.       Width           =   3990
  75.       _ExtentX        =   7038
  76.       _ExtentY        =   1323
  77.       ShowDisplay     =   0   'False
  78.       ShowControls    =   0   'False
  79.       AutoStart       =   -1  'True
  80.       PlayCount       =   0
  81.       FileName        =   "C:\WINDOWS\DESKTOP\FILES\Rw MP3s\AiE.mp3"
  82.    End
  83.    Begin VB.Image Image1 
  84.       Height          =   1260
  85.       Left            =   120
  86.       Picture         =   "frmMP3Player.frx":0886
  87.       Top             =   120
  88.       Width           =   2250
  89.    End
  90.    Begin VB.Menu mnuFile 
  91.       Caption         =   "File"
  92.       Begin VB.Menu mnuOpen 
  93.          Caption         =   "Play"
  94.       End
  95.       Begin VB.Menu sep1 
  96.          Caption         =   "-"
  97.       End
  98.       Begin VB.Menu mnuStop 
  99.          Caption         =   "Stop"
  100.       End
  101.       Begin VB.Menu sep2 
  102.          Caption         =   "-"
  103.       End
  104.       Begin VB.Menu mnuAiE 
  105.          Caption         =   "AiE "
  106.          Begin VB.Menu mnuWebsite 
  107.             Caption         =   "WebSite"
  108.          End
  109.          Begin VB.Menu sep3 
  110.             Caption         =   "-"
  111.          End
  112.          Begin VB.Menu mnuWebBoard 
  113.             Caption         =   "WebBoard"
  114.          End
  115.          Begin VB.Menu sep4 
  116.             Caption         =   "-"
  117.          End
  118.          Begin VB.Menu mnudownloads 
  119.             Caption         =   "Downloads"
  120.          End
  121.       End
  122.    End
  123. Attribute VB_Name = "frmMP3_Player"
  124. Attribute VB_GlobalNameSpace = False
  125. Attribute VB_Creatable = False
  126. Attribute VB_PredeclaredId = True
  127. Attribute VB_Exposed = False
  128. Private Sub Form_Load()
  129. GradientForm Me
  130. VScroll1.Max = Picture1.Height
  131. VScroll1.Min = 0 - Text1.Height
  132. VScroll1.Value = VScroll1.Max
  133. End Sub
  134. Private Sub mnudownloads_Click()
  135. Dim ret&
  136.     ret = ShellExecute(Me.hwnd, "Open", _
  137.         "http://members.tripod.com/~AceInterActive/Downloads/", _
  138.         "", App.Path, 1)
  139. End Sub
  140. Private Sub mnuOpen_Click()
  141. 'Dim MP3File As String
  142. 'CommonDialog1.ShowOpen
  143. '      MP3File = CommonDialog1.filename
  144. ActiveMovie1.filename = "AiE.mp3"
  145. ActiveMovie1.Run
  146. End Sub
  147. Private Sub mnuStop_Click()
  148. ActiveMovie1.Stop
  149. End Sub
  150. Private Sub mnuWebBoard_Click()
  151. Dim ret&
  152.     ret = ShellExecute(Me.hwnd, "Open", _
  153.         "http://disc.server.com/discussion.cgi?id=17429", _
  154.         "", App.Path, 1)
  155. End Sub
  156. Private Sub mnuWebsite_Click()
  157. Dim ret&
  158.     ret = ShellExecute(Me.hwnd, "Open", _
  159.         "http://members.tripod.com/~AceInterActive/", _
  160.         "", App.Path, 1)
  161. End Sub
  162. Private Sub Timer1_Timer()
  163. 'Move the textbox here
  164. If VScroll1.Value >= VScroll1.Min + 30 Then
  165.   VScroll1.Value = VScroll1.Value - 20
  166.   VScroll1.Value = VScroll1.Max
  167.   DoEvents
  168. End If
  169. Text1.Top = VScroll1.Value
  170. DoEvents
  171. End Sub
  172.