home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cdplay / cdabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  5.5 KB  |  169 lines
  1. VERSION 2.00
  2. Begin Form CDAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   5025
  7.    ClientLeft      =   4140
  8.    ClientTop       =   3030
  9.    ClientWidth     =   6075
  10.    ControlBox      =   0   'False
  11.    Height          =   5430
  12.    KeyPreview      =   -1  'True
  13.    Left            =   4080
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   5025
  18.    ScaleWidth      =   6075
  19.    Top             =   2685
  20.    Width           =   6195
  21.    Begin SSPanel Panel3D1 
  22.       BackColor       =   &H00C0C0C0&
  23.       BevelInner      =   1  'Inset
  24.       BevelOuter      =   1  'Inset
  25.       Font3D          =   0  'None
  26.       Height          =   4815
  27.       Left            =   120
  28.       TabIndex        =   6
  29.       Top             =   120
  30.       Width           =   5775
  31.       Begin PictureBox PicLogo 
  32.          AutoSize        =   -1  'True
  33.          BackColor       =   &H00C0C0C0&
  34.          BorderStyle     =   0  'None
  35.          Height          =   615
  36.          Left            =   1560
  37.          ScaleHeight     =   615
  38.          ScaleWidth      =   2535
  39.          TabIndex        =   9
  40.          Top             =   120
  41.          Width           =   2535
  42.          Begin Label lblLogo 
  43.             AutoSize        =   -1  'True
  44.             BackStyle       =   0  'Transparent
  45.             Caption         =   "CD Player"
  46.             FontBold        =   -1  'True
  47.             FontItalic      =   -1  'True
  48.             FontName        =   "MS Serif"
  49.             FontSize        =   24
  50.             FontStrikethru  =   0   'False
  51.             FontUnderline   =   0   'False
  52.             ForeColor       =   &H00C00000&
  53.             Height          =   525
  54.             Index           =   0
  55.             Left            =   0
  56.             TabIndex        =   7
  57.             Top             =   0
  58.             Width           =   2415
  59.          End
  60.          Begin Label lblLogo 
  61.             AutoSize        =   -1  'True
  62.             BackStyle       =   0  'Transparent
  63.             Caption         =   "CD Player"
  64.             FontBold        =   -1  'True
  65.             FontItalic      =   -1  'True
  66.             FontName        =   "MS Serif"
  67.             FontSize        =   24
  68.             FontStrikethru  =   0   'False
  69.             FontUnderline   =   0   'False
  70.             ForeColor       =   &H00FFFFFF&
  71.             Height          =   525
  72.             Index           =   1
  73.             Left            =   0
  74.             TabIndex        =   8
  75.             Top             =   30
  76.             Width           =   2415
  77.          End
  78.       End
  79.       Begin CommandButton Command1 
  80.          Caption         =   "&OK"
  81.          Height          =   735
  82.          Left            =   240
  83.          TabIndex        =   4
  84.          Top             =   3960
  85.          Width           =   5295
  86.       End
  87.       Begin ListBox List1 
  88.          Height          =   1590
  89.          Left            =   240
  90.          TabIndex        =   5
  91.          Top             =   2280
  92.          Width           =   5295
  93.       End
  94.       Begin Label Label2 
  95.          Alignment       =   2  'Center
  96.          BackStyle       =   0  'Transparent
  97.          Height          =   255
  98.          Index           =   3
  99.          Left            =   240
  100.          TabIndex        =   0
  101.          Top             =   1920
  102.          Width           =   5295
  103.       End
  104.       Begin Label Label2 
  105.          Alignment       =   2  'Center
  106.          BackStyle       =   0  'Transparent
  107.          Height          =   255
  108.          Index           =   2
  109.          Left            =   240
  110.          TabIndex        =   1
  111.          Top             =   1560
  112.          Width           =   5295
  113.       End
  114.       Begin Label Label2 
  115.          Alignment       =   2  'Center
  116.          BackStyle       =   0  'Transparent
  117.          Height          =   255
  118.          Index           =   1
  119.          Left            =   120
  120.          TabIndex        =   2
  121.          Top             =   1200
  122.          Width           =   5475
  123.       End
  124.       Begin Label Label2 
  125.          Alignment       =   2  'Center
  126.          BackStyle       =   0  'Transparent
  127.          Height          =   255
  128.          Index           =   0
  129.          Left            =   120
  130.          TabIndex        =   3
  131.          Top             =   840
  132.          Width           =   5475
  133.       End
  134.    End
  135. Option Explicit
  136. Dim SelIndex As Integer
  137. Dim Dirty As Integer
  138. Sub Command1_Click ()
  139.     If SelIndex >= 0 And Dirty = True Then
  140.         CDForm.MMControl1.To = SelIndex + 1
  141.         CDForm.MMControl1.Command = "Seek"
  142.         CDForm.MMControl1.Track = SelIndex + 1
  143.     End If
  144.     Unload Me
  145. End Sub
  146. Sub Form_KeyUp (KeyCode As Integer, Shift As Integer)
  147.     If KeyCode = 27 Then Unload Me
  148. End Sub
  149. Sub Form_Load ()
  150.     CenterForm CDAbout, False
  151.     CenterLogo Me, Panel3D1
  152.     CDAbout.Caption = "About """ & CDInfo.CDTitle & """ By " & CDInfo.CDAuthor
  153.     Label2(0) = CDInfo.CDTitle
  154.     Label2(1) = "By " & CDInfo.CDAuthor
  155.     Label2(2) = "Total Tracks: " & NumOfTracks
  156.     Label2(3) = "Total Playing Time: " & CDInfo.CDTotalTime
  157.     LoadListBox List1
  158.     List1.Selected(CDForm.MMControl1.Track - 1) = True
  159.     If CDForm.mnuOptionsItem(2).Checked Then OnTop CDForm
  160.     Dirty = False
  161. End Sub
  162. Sub Form_Unload (Cancel As Integer)
  163.     If CDForm.mnuOptionsItem(2).Checked Then OnTop CDForm
  164. End Sub
  165. Sub List1_Click ()
  166.     Dirty = True
  167.     SelIndex = List1.ListIndex
  168. End Sub
  169.