【VB开源代码栏目提醒】：网学会员VB开源代码为您提供Tags.frm参考，解决您在Tags.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
    Begin VB.Form frmTags 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "MPEG歌曲标签设定"
       ClientHeight    =   5145
       ClientLeft      =   45
       ClientTop       =   435
       ClientWidth     =   8355
       BeginProperty Font 
          Name            =   "Tahoma"
          Size            =   6.75
          Charset         =   0
          Weight          =   400
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       Icon            =   "Tags.frx":0000
       LinkTopic       =   "Form3"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5145
       ScaleWidth      =   8355
       ShowInTaskbar   =   0   'False
       Begin ComctlLib.ListView listRef 
          Height          =   1125
          Left            =   60
          TabIndex        =   39
          Top             =   5895
          Visible         =   0   'False
          Width           =   8175
          _ExtentX        =   14420
          _ExtentY        =   1984
          View            =   3
          LabelWrap       =   -1  'True
          HideSelection   =   -1  'True
          _Version        =   327682
          ForeColor       =   -2147483640
          BackColor       =   -2147483643
          BorderStyle     =   1
          Appearance      =   1
          NumItems        =   7
          BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "FILE"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   1
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "TITLE"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   2
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "ARTIST"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   3
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "ALBUM"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(5) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   4
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "YEAR"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(6) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   5
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "GENRE"
             Object.Width           =   2540
          EndProperty
          BeginProperty ColumnHeader(7) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
             SubItemIndex    =   6
             Key             =   ""
             Object.Tag             =   ""
             Text            =   "LYRICS"
             Object.Width           =   2540
          EndProperty
       End
       Begin VB.CommandButton cmdNext 
          Caption         =   "Album >>"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Left            =   2040
          MaskColor       =   &H00FFFFFF&
          TabIndex        =   1
          TabStop         =   0   'False
          Top             =   750
          UseMaskColor    =   -1  'True
          Visible         =   0   'False
          Width           =   1065
       End
       Begin VB.CommandButton cmdPrev 
          Caption         =   "<< Album"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   285
          Left            =   540
          MaskColor       =   &H00FFFFFF&
          TabIndex        =   0
          TabStop         =   0   'False
          Top             =   750
          UseMaskColor    =   -1  'True
          Visible         =   0   'False
          Width           =   1065
       End
       Begin VB.CommandButton cmdSelAll 
          Caption         =   "选择全部"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   315
          Left            =   915
          TabIndex        =   3
          Top             =   4740
          Width           =   1875
       End
       Begin VB.Frame Frame1 
          Height          =   660
          Left            =   30
          TabIndex        =   36
          Top             =   -30
          Width           =   8250
          Begin ComctlLib.ProgressBar pbProgress 
             Height          =   270
             Left            =   60
             TabIndex        =   38
             Top             =   330
             Visible         =   0   'False
             Width           =   8115
             _ExtentX        =   14314
             _ExtentY        =   476
             _Version        =   327682
             Appearance      =   1
          End
          Begin VB.Label lblFile 
             Caption         =   "label file"
             BeginProperty Font 
                Name            =   "Courier New"
                Size            =   8.25
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00800000&
             Height          =   465
             Left            =   60
             TabIndex        =   37
             Top             =   120
             Width           =   8235
          End
       End
       Begin VB.Frame Frame 
          BeginProperty Font 
             Name            =   "Courier New"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00C00000&
          Height          =   4500
          Index           =   2
          Left            =   30
          TabIndex        =   35
          Top             =   600
          Width           =   3780
          Begin VB.FileListBox FileTags 
             Appearance      =   0  'Flat
             BeginProperty Font 
                Name            =   "宋体"
                Size            =   9
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   3630
             Left            =   60
             MultiSelect     =   2  'Extended
             Pattern         =   "*.mp3;*.wma;*.wav"
             System          =   -1  'True
             TabIndex        =   2
             Top             =   480
             Width           =   3660
          End
       End
       Begin VB.CommandButton cmdApply 
          Caption         =   "应用"
          Enabled         =   0   'False
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   315
          Left            =   6720
          TabIndex        =   24
          Top             =   4680
          Width           =   1305
       End
       Begin VB.