home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Monkamp227297132001.psc / FrmID3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-06-21  |  6.1 KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmID3 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Monkamp ID3 Editor"
  6.    ClientHeight    =   2640
  7.    ClientLeft      =   4575
  8.    ClientTop       =   3855
  9.    ClientWidth     =   6075
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2640
  15.    ScaleWidth      =   6075
  16.    Begin VB.CommandButton cmdCancel 
  17.       BackColor       =   &H00C00000&
  18.       Cancel          =   -1  'True
  19.       Caption         =   "Cancel"
  20.       Height          =   375
  21.       Left            =   2880
  22.       Style           =   1  'Graphical
  23.       TabIndex        =   13
  24.       Top             =   2040
  25.       Width           =   855
  26.    End
  27.    Begin VB.CommandButton cmdSave 
  28.       BackColor       =   &H00C00000&
  29.       Caption         =   "Save"
  30.       Height          =   375
  31.       Left            =   1800
  32.       Style           =   1  'Graphical
  33.       TabIndex        =   12
  34.       Top             =   2040
  35.       Width           =   855
  36.    End
  37.    Begin VB.TextBox txtComments 
  38.       BackColor       =   &H00C00000&
  39.       ForeColor       =   &H00008000&
  40.       Height          =   285
  41.       Left            =   2640
  42.       MaxLength       =   30
  43.       TabIndex        =   11
  44.       Top             =   1560
  45.       Width           =   3255
  46.    End
  47.    Begin VB.TextBox txtYear 
  48.       BackColor       =   &H00C00000&
  49.       ForeColor       =   &H00008000&
  50.       Height          =   285
  51.       Left            =   960
  52.       MaxLength       =   4
  53.       TabIndex        =   5
  54.       Top             =   1560
  55.       Width           =   615
  56.    End
  57.    Begin VB.TextBox txtAlbum 
  58.       BackColor       =   &H00C00000&
  59.       ForeColor       =   &H00008000&
  60.       Height          =   285
  61.       Left            =   960
  62.       MaxLength       =   30
  63.       TabIndex        =   4
  64.       Top             =   1200
  65.       Width           =   4935
  66.    End
  67.    Begin VB.TextBox txtArtist 
  68.       BackColor       =   &H00C00000&
  69.       ForeColor       =   &H00008000&
  70.       Height          =   285
  71.       Left            =   960
  72.       MaxLength       =   30
  73.       TabIndex        =   3
  74.       Top             =   840
  75.       Width           =   4935
  76.    End
  77.    Begin VB.TextBox txtSong 
  78.       BackColor       =   &H00C00000&
  79.       ForeColor       =   &H00008000&
  80.       Height          =   285
  81.       Left            =   960
  82.       MaxLength       =   30
  83.       TabIndex        =   2
  84.       Top             =   480
  85.       Width           =   4935
  86.    End
  87.    Begin VB.TextBox txtFilename 
  88.       BackColor       =   &H00C00000&
  89.       Enabled         =   0   'False
  90.       ForeColor       =   &H00008000&
  91.       Height          =   285
  92.       Left            =   960
  93.       TabIndex        =   0
  94.       Top             =   120
  95.       Width           =   4935
  96.    End
  97.    Begin VB.Label Label7 
  98.       Alignment       =   1  'Right Justify
  99.       BackColor       =   &H00C00000&
  100.       Caption         =   "Comments:"
  101.       ForeColor       =   &H000000C0&
  102.       Height          =   255
  103.       Left            =   1680
  104.       TabIndex        =   10
  105.       Top             =   1560
  106.       Width           =   855
  107.    End
  108.    Begin VB.Label Label5 
  109.       Alignment       =   1  'Right Justify
  110.       BackColor       =   &H00C00000&
  111.       Caption         =   "Year:"
  112.       ForeColor       =   &H000000C0&
  113.       Height          =   255
  114.       Left            =   120
  115.       TabIndex        =   9
  116.       Top             =   1560
  117.       Width           =   735
  118.    End
  119.    Begin VB.Label Label4 
  120.       Alignment       =   1  'Right Justify
  121.       BackColor       =   &H00C00000&
  122.       Caption         =   "Album:"
  123.       ForeColor       =   &H000000C0&
  124.       Height          =   255
  125.       Left            =   120
  126.       TabIndex        =   8
  127.       Top             =   1200
  128.       Width           =   735
  129.    End
  130.    Begin VB.Label Label3 
  131.       Alignment       =   1  'Right Justify
  132.       BackColor       =   &H00C00000&
  133.       Caption         =   "Artist:"
  134.       ForeColor       =   &H000000C0&
  135.       Height          =   255
  136.       Left            =   120
  137.       TabIndex        =   7
  138.       Top             =   840
  139.       Width           =   735
  140.    End
  141.    Begin VB.Label Label2 
  142.       Alignment       =   1  'Right Justify
  143.       BackColor       =   &H00C00000&
  144.       Caption         =   "Song:"
  145.       ForeColor       =   &H000000C0&
  146.       Height          =   255
  147.       Left            =   120
  148.       TabIndex        =   6
  149.       Top             =   480
  150.       Width           =   735
  151.    End
  152.    Begin VB.Label Label1 
  153.       Alignment       =   1  'Right Justify
  154.       BackColor       =   &H00C00000&
  155.       Caption         =   "Filename:"
  156.       ForeColor       =   &H000000C0&
  157.       Height          =   255
  158.       Left            =   120
  159.       TabIndex        =   1
  160.       Top             =   120
  161.       Width           =   735
  162.    End
  163. Attribute VB_Name = "FrmID3"
  164. Attribute VB_GlobalNameSpace = False
  165. Attribute VB_Creatable = False
  166. Attribute VB_PredeclaredId = True
  167. Attribute VB_Exposed = False
  168. Private ontop As New clsOnTop
  169. Option Explicit
  170. Dim mvarFilename As String
  171. Private Sub cmdCancel_Click()
  172.     Unload Me
  173. End Sub
  174. Private Sub cmdSave_Click()
  175.     Dim sInfo As Id3
  176.     sInfo.Album = Left(txtAlbum.Text, 30)
  177.     sInfo.Artist = Left(txtArtist.Text, 30)
  178.     sInfo.Title = Left(txtSong.Text, 30)
  179.     sInfo.sYear = Left(txtYear.Text, 4)
  180.     sInfo.Comments = Left(txtComments.Text, 30)
  181.     Id3Module.SaveId3 mvarFilename, sInfo
  182.     Unload Me
  183. End Sub
  184. Private Sub Form_Load()
  185.     ontop.MakeTopMost hWnd
  186.     Dim sInfo As New clsMP3Info
  187.     sInfo.Filename = mvarFilename
  188.     txtFilename.Text = mvarFilename
  189.     txtSong.Text = sInfo.Title
  190.     txtArtist.Text = sInfo.Artist
  191.     txtAlbum.Text = sInfo.Album
  192.     txtYear.Text = sInfo.Year
  193.     txtComments.Text = sInfo.Comment
  194.     Set sInfo = Nothing
  195. End Sub
  196. Public Property Let Filename(ByVal sData As String)
  197.     mvarFilename = sData
  198. End Property
  199. Public Property Get Filename() As String
  200.     Filename = mvarFilename
  201. End Property
  202.