Chip 2003 January/Chip_2003-01_cd2.bin/editors/songs/SoundEngine/vbmp31615.lzh/sample.LZH/frmLyrics3Input.frm

Visual Basic Form | 2000-04-07 | 9KB | 298 lines

VERSION 5.00
Begin VB.Form frmLyrics3Input
   Caption         =   "Lyrics3
   ClientHeight    =   6945
   ClientLeft      =   5775
   ClientTop       =   4035
   ClientWidth     =   7710
   LinkTopic       =   "Form1"
   ScaleHeight     =   6945
   ScaleWidth      =   7710
   Begin VB.CommandButton cmdLyricsSet
      Caption         =   "
      Height          =   375
      Left            =   2940
      TabIndex        =   22
      Top             =   6540
      Width           =   1515
   End
   Begin VB.CommandButton cmdLyrics3Delete
      Caption         =   "
      Height          =   375
      Left            =   4560
      TabIndex        =   21
      Top             =   6540
      Width           =   915
   End
   Begin VB.CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "
      Height          =   375
      Left            =   6660
      TabIndex        =   20
      Top             =   6540
      Width           =   975
   End
   Begin VB.CommandButton cmdReg
      Caption         =   "
      Default         =   -1  'True
      Height          =   375
      Left            =   5580
      TabIndex        =   19
      Top             =   6540
      Width           =   975
   End
   Begin VB.TextBox txtIMG
      Height          =   1230
      Left            =   720
      MaxLength       =   60000
      MultiLine       =   -1  'True
      ScrollBars      =   3  '
      TabIndex        =   17
      Top             =   4920
      Width           =   6915
   End
   Begin VB.TextBox txtINF
      Height          =   1230
      Left            =   720
      MaxLength       =   60000
      MultiLine       =   -1  'True
      ScrollBars      =   3  '
      TabIndex        =   15
      Top             =   3600
      Width           =   6915
   End
   Begin VB.TextBox txtLRY
      Height          =   1230
      Left            =   720
      MaxLength       =   60000
      MultiLine       =   -1  'True
      ScrollBars      =   3  '
      TabIndex        =   13
      Top             =   2280
      Width           =   6915
   End
   Begin VB.TextBox txtAUT
      Height          =   270
      Left            =   1860
      MaxLength       =   250
      TabIndex        =   11
      Top             =   840
      Width           =   5775
   End
   Begin VB.TextBox txtETT
      Height          =   270
      Left            =   1860
      MaxLength       =   250
      TabIndex        =   7
      Top             =   1920
      Width           =   5775
   End
   Begin VB.TextBox txtEAR
      Height          =   270
      Left            =   1860
      MaxLength       =   250
      TabIndex        =   6
      Top             =   1560
      Width           =   5775
   End
   Begin VB.TextBox txtEAL
      Height          =   270
      Left            =   1860
      MaxLength       =   250
      TabIndex        =   5
      Top             =   1200
      Width           =   5775
   End
   Begin VB.CheckBox chkLyrField
      Caption         =   "LYR
      Height          =   315
      Left            =   1020
      TabIndex        =   4
      Top             =   420
      Width           =   2295
   End
   Begin VB.CheckBox chkTimeTag
      Caption         =   "
      Height          =   315
      Left            =   3360
      TabIndex        =   3
      Top             =   420
      Width           =   2055
   End
   Begin VB.TextBox txtFile
      Height          =   270
      Left            =   1020
      TabIndex        =   0
      Top             =   60
      Width           =   5655
   End
   Begin VB.CommandButton btOpen
      Caption         =   "open"
      Height          =   255
      Left            =   6780
      TabIndex        =   1
      Top             =   60
      Width           =   855
   End
   Begin VB.Label Label5
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   0
      TabIndex        =   18
      Top             =   4920
      Width           =   675
   End
   Begin VB.Label Label4
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   16
      Top             =   3600
      Width           =   615
   End
   Begin VB.Label Label3
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   14
      Top             =   2280
      Width           =   615
   End
   Begin VB.Label Label2
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   12
      Top             =   840
      Width           =   1755
   End
   Begin VB.Label Label31
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   10
      Top             =   1200
      Width           =   1755
   End
   Begin VB.Label Label30
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   9
      Top             =   1560
      Width           =   1755
   End
   Begin VB.Label Label29
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   8
      Top             =   1920
      Width           =   1755
   End
   Begin VB.Label Label1
      Alignment       =   1  '
      BackStyle       =   0  '
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   2
      Top             =   60
      Width           =   855
   End
Attribute VB_Name = "frmLyrics3Input"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btOpen_Click()
    Dim lyrData As String * 60000    '
    Dim InfData As String * 60000    '
    Dim ImgData As String * 60000    '
    Dim Lyrics3Info As LYRICS3_INFO_VB
    If Dir(txtFile.Text) = "" Then Exit Sub
    If vbmp3_getFileLyrics3InfoVB(Trim(txtFile.Text), Lyrics3Info, lyrData, InfData, ImgData) Then
        chkLyrField.Value = Lyrics3Info.IND_LYR
        chkTimeTag.Value = Lyrics3Info.IND_TIMETAG
        txtAUT.Text = NTrim(Lyrics3Info.AUT)
        txtEAL.Text = NTrim(Lyrics3Info.EAL)
        txtEAR.Text = NTrim(Lyrics3Info.EAR)
        txtETT.Text = NTrim(Lyrics3Info.ETT)
        txtLRY.Text = NTrim(lyrData)
        txtINF.Text = NTrim(InfData)
        txtIMG.Text = NTrim(ImgData)
    Else
        chkLyrField.Value = 0
        chkTimeTag.Value = 0
        txtAUT.Text = ""
        txtEAL.Text = ""
        txtEAR.Text = ""
        txtETT.Text = ""
        txtLRY.Text = ""
        txtINF.Text = ""
        txtIMG.Text = ""
    End If
End Sub
Private Sub cmdCancel_Click()
    Unload Me
End Sub
Private Sub cmdLyrics3Delete_Click()
    If vbmp3_delFileLyrics3Info(Trim(txtFile.Text)) = False Then
        MsgBox "
", vbCritical + vbOKOnly
        Exit Sub
    End If
    btOpen_Click
End Sub
Private Sub cmdLyricsSet_Click()
    If vbmp3_setReadLyrics3Info(Trim(txtFile.Text)) = False Then
        MsgBox "
", vbCritical + vbOKOnly
    End If
End Sub
Private Sub cmdReg_Click()
    Dim lyrData As String * 60000    '
    Dim InfData As String * 60000    '
    Dim ImgData As String * 60000    '
    Dim Lyrics3Info As LYRICS3_INFO_VB
    Lyrics3Info.IND_LYR = chkLyrField.Value
    Lyrics3Info.IND_TIMETAG = chkTimeTag.Value
    Lyrics3Info.AUT = txtAUT.Text
    Lyrics3Info.EAL = txtEAL.Text
    Lyrics3Info.EAR = txtEAR.Text
    Lyrics3Info.ETT = txtETT.Text
    lyrData = txtLRY.Text
    InfData = txtINF.Text
    ImgData = txtIMG.Text
    If vbmp3_setFileLyrics3InfoVB(Trim(txtFile.Text), Lyrics3Info, lyrData, InfData, ImgData) = False Then
        MsgBox "
", vbCritical + vbOKOnly
    End If
End Sub
Private Sub Label6_Click()
End Sub
Private Sub Form_Load()
    Dim lyricsInfo As LYRICS_INFO2
    If vbmp3_getLyrics2(lyricsInfo) Then
        cmdLyricsSet.Enabled = True
    Else
        cmdLyricsSet.Enabled = False
    End If

End Sub