home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / PMP_1_02147813262009.psc / Packmp3 / Form6.frm < prev    next >
Text File  |  2008-11-02  |  6KB  |  185 lines
  1. VERSION 5.00
  2. Begin VB.Form Form6 
  3.    BackColor       =   &H80000008&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Id3"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   8940
  8.    ClientTop       =   5430
  9.    ClientWidth     =   5760
  10.    LinkTopic       =   "Form6"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2715
  14.    ScaleWidth      =   5760
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.Frame Frame1 
  17.       BackColor       =   &H8000000D&
  18.       Caption         =   "Song:"
  19.       BeginProperty Font 
  20.          Name            =   "Arial"
  21.          Size            =   9.75
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       ForeColor       =   &H000080FF&
  29.       Height          =   2175
  30.       Left            =   240
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   5175
  34.       Begin VB.TextBox Text4 
  35.          BackColor       =   &H8000000A&
  36.          Height          =   285
  37.          Left            =   1320
  38.          Locked          =   -1  'True
  39.          TabIndex        =   8
  40.          Top             =   1440
  41.          Width           =   1335
  42.       End
  43.       Begin VB.TextBox Text3 
  44.          BackColor       =   &H8000000A&
  45.          Height          =   285
  46.          Left            =   1320
  47.          Locked          =   -1  'True
  48.          MultiLine       =   -1  'True
  49.          TabIndex        =   7
  50.          Top             =   1080
  51.          Width           =   3615
  52.       End
  53.       Begin VB.TextBox Text2 
  54.          BackColor       =   &H8000000A&
  55.          Height          =   285
  56.          Left            =   1320
  57.          Locked          =   -1  'True
  58.          MultiLine       =   -1  'True
  59.          TabIndex        =   6
  60.          Top             =   720
  61.          Width           =   3615
  62.       End
  63.       Begin VB.TextBox Text1 
  64.          BackColor       =   &H8000000A&
  65.          Height          =   285
  66.          Left            =   1320
  67.          Locked          =   -1  'True
  68.          TabIndex        =   5
  69.          Top             =   360
  70.          Width           =   3615
  71.       End
  72.       Begin VB.Label Label4 
  73.          Alignment       =   2  'Center
  74.          BackStyle       =   0  'Transparent
  75.          Caption         =   "Date:"
  76.          BeginProperty Font 
  77.             Name            =   "Courier New"
  78.             Size            =   8.25
  79.             Charset         =   0
  80.             Weight          =   700
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   255
  86.          Left            =   120
  87.          TabIndex        =   4
  88.          Top             =   1440
  89.          Width           =   735
  90.       End
  91.       Begin VB.Label Label3 
  92.          Alignment       =   2  'Center
  93.          BackStyle       =   0  'Transparent
  94.          Caption         =   "Album:"
  95.          BeginProperty Font 
  96.             Name            =   "Courier New"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   700
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          Height          =   255
  105.          Left            =   120
  106.          TabIndex        =   3
  107.          Top             =   1080
  108.          Width           =   855
  109.       End
  110.       Begin VB.Label Label2 
  111.          Alignment       =   2  'Center
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "Title:"
  114.          BeginProperty Font 
  115.             Name            =   "Courier New"
  116.             Size            =   8.25
  117.             Charset         =   0
  118.             Weight          =   700
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          Height          =   255
  124.          Left            =   240
  125.          TabIndex        =   2
  126.          Top             =   720
  127.          Width           =   735
  128.       End
  129.       Begin VB.Label Label1 
  130.          Alignment       =   2  'Center
  131.          BackStyle       =   0  'Transparent
  132.          Caption         =   "Artist:"
  133.          BeginProperty Font 
  134.             Name            =   "Courier New"
  135.             Size            =   8.25
  136.             Charset         =   0
  137.             Weight          =   700
  138.             Underline       =   0   'False
  139.             Italic          =   0   'False
  140.             Strikethrough   =   0   'False
  141.          EndProperty
  142.          Height          =   255
  143.          Left            =   120
  144.          TabIndex        =   1
  145.          Top             =   360
  146.          Width           =   1095
  147.       End
  148.    End
  149. End
  150. Attribute VB_Name = "Form6"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. Private Sub Form_Load()
  156. ID3.GetTag Form1.List1.Text
  157. If ID3.HTag = True Then
  158.     Text1.Locked = False
  159.     Text2.Locked = False
  160.     Text3.Locked = False
  161.     Text4.Locked = False
  162.     Text1.Text = ID3.Artist
  163.     Text2.Text = ID3.Title
  164.     Text3.Text = ID3.Album
  165.     Text4.Text = ID3.Dated
  166.     Text1.Locked = True
  167.     Text2.Locked = True
  168.     Text3.Locked = True
  169.     Text4.Locked = True
  170. Else
  171.     Text1.Locked = False
  172.     Text2.Locked = False
  173.     Text3.Locked = False
  174.     Text4.Locked = False
  175.     Text1.Text = ""
  176.     Text2.Text = ""
  177.     Text3.Text = ""
  178.     Text4.Text = ""
  179.     Text1.Locked = True
  180.     Text2.Locked = True
  181.     Text3.Locked = True
  182.     Text4.Locked = True
  183. End If
  184. End Sub
  185.