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

Visual Basic Form | 2000-06-03 | 17KB | 552 lines

VERSION 5.00
Begin VB.Form frmLyrics
   Caption         =   "
   ClientHeight    =   5640
   ClientLeft      =   405
   ClientTop       =   795
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   ScaleHeight     =   5640
   ScaleWidth      =   6735
   Begin VB.TextBox txtAtTotalSec
      Height          =   270
      Left            =   4800
      TabIndex        =   46
      Top             =   4680
      Width           =   1815
   End
   Begin VB.TextBox txtAtFlames
      Height          =   270
      Left            =   4800
      TabIndex        =   44
      Top             =   4380
      Width           =   1815
   End
   Begin VB.TextBox txtAtSilence
      Height          =   270
      Left            =   4800
      TabIndex        =   42
      Top             =   4080
      Width           =   1815
   End
   Begin VB.TextBox txtAtSilencemSec
      Height          =   270
      Left            =   4800
      TabIndex        =   40
      Top             =   3780
      Width           =   1815
   End
   Begin VB.TextBox txtAtOffset
      Height          =   270
      Left            =   4800
      TabIndex        =   38
      Top             =   3480
      Width           =   1815
   End
   Begin VB.TextBox txtAtTimeRatio
      Height          =   270
      Left            =   4800
      TabIndex        =   36
      Top             =   3180
      Width           =   1815
   End
   Begin VB.TextBox txtAtTimeType
      Height          =   270
      Left            =   1320
      TabIndex        =   34
      Top             =   5280
      Width           =   2115
   End
   Begin VB.TextBox txtAtEditedBy
      Height          =   270
      Left            =   1320
      TabIndex        =   32
      Top             =   4980
      Width           =   2115
   End
   Begin VB.TextBox txtAtTaggingBy
      Height          =   270
      Left            =   1320
      TabIndex        =   30
      Top             =   4680
      Width           =   2115
   End
   Begin VB.TextBox txtAtBgfolder
      Height          =   270
      Left            =   1320
      TabIndex        =   28
      Top             =   4380
      Width           =   2115
   End
   Begin VB.TextBox txtAtBgfile
      Height          =   270
      Left            =   1320
      TabIndex        =   27
      Top             =   4080
      Width           =   2115
   End
   Begin VB.TextBox txtAtAlbum
      Height          =   270
      Left            =   1320
      TabIndex        =   26
      Top             =   3780
      Width           =   2115
   End
   Begin VB.TextBox txtAtTitle
      Height          =   270
      Left            =   1320
      TabIndex        =   22
      Top             =   3480
      Width           =   2115
   End
   Begin VB.TextBox txtAtAirtist
      Height          =   270
      Left            =   1320
      TabIndex        =   21
      Top             =   3180
      Width           =   2115
   End
   Begin VB.CommandButton cmdViewAt
      Caption         =   "
      Height          =   255
      Left            =   5580
      TabIndex        =   18
      Top             =   5340
      Width           =   1035
   End
   Begin VB.CheckBox chkViewNoTag
      Caption         =   "
      Height          =   255
      Left            =   2520
      TabIndex        =   17
      Top             =   2760
      Value           =   1  '
      Width           =   1455
   End
   Begin VB.CommandButton cmdGetLyrics
      Caption         =   "
      Height          =   255
      Left            =   4080
      TabIndex        =   16
      Top             =   2760
      Width           =   1035
   End
   Begin VB.CheckBox chkViewType
      Caption         =   "
      Height          =   195
      Left            =   3000
      TabIndex        =   15
      Top             =   2460
      Value           =   1  '
      Width           =   1395
   End
   Begin VB.CommandButton cmdN2W
      Caption         =   "N->W"
      Height          =   255
      Left            =   960
      TabIndex        =   12
      Top             =   2760
      Width           =   675
   End
   Begin VB.CommandButton cmdW2N
      Caption         =   "W->N"
      Height          =   255
      Left            =   60
      TabIndex        =   11
      Top             =   2760
      Width           =   795
   End
   Begin VB.CommandButton cmdOutLyFile
      Caption         =   "
      Height          =   255
      Left            =   5220
      TabIndex        =   10
      Top             =   2760
      Width           =   1395
   End
   Begin VB.CommandButton cmdTimeChange
      Caption         =   "
      Height          =   255
      Left            =   60
      TabIndex        =   7
      Top             =   2460
      Width           =   1275
   End
   Begin VB.Label Label14
      Caption         =   "
      Height          =   195
      Left            =   3540
      TabIndex        =   45
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label13
      Caption         =   "
      Height          =   195
      Left            =   3540
      TabIndex        =   43
      Top             =   4440
      Width           =   1275
   End
   Begin VB.Label Label12
      Caption         =   "
      Height          =   195
      Left            =   3540
      TabIndex        =   41
      Top             =   4140
      Width           =   1275
   End
   Begin VB.Label Label11
      Caption         =   "
[ms]"
      Height          =   195
      Left            =   3540
      TabIndex        =   39
      Top             =   3840
      Width           =   1275
   End
   Begin VB.Label Label10
      Caption         =   "
[ms]"
      Height          =   195
      Left            =   3540
      TabIndex        =   37
      Top             =   3540
      Width           =   1275
   End
   Begin VB.Label Label9
      Caption         =   "
      Height          =   195
      Left            =   3540
      TabIndex        =   35
      Top             =   3240
      Width           =   1275
   End
   Begin VB.Label Label8
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   33
      Top             =   5340
      Width           =   1275
   End
   Begin VB.Label Label7
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   31
      Top             =   5040
      Width           =   1275
   End
   Begin VB.Label Label6
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   29
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label5
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   25
      Top             =   4440
      Width           =   1275
   End
   Begin VB.Label Label4
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   24
      Top             =   4140
      Width           =   1275
   End
   Begin VB.Label Label3
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   23
      Top             =   3840
      Width           =   1275
   End
   Begin VB.Label Label2
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   20
      Top             =   3540
      Width           =   1275
   End
   Begin VB.Label Label1
      Caption         =   "
      Height          =   195
      Left            =   60
      TabIndex        =   19
      Top             =   3240
      Width           =   1275
   End
   Begin VB.Line Line1
      X1              =   0
      X2              =   6720
      Y1              =   3060
      Y2              =   3060
   End
   Begin VB.Label lbWork2
      AutoSize        =   -1  'True
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3960
      TabIndex        =   14
      Top             =   6840
      Visible         =   0   'False
      Width           =   120
   End
   Begin VB.Label lbWork1
      AutoSize        =   -1  'True
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2700
      TabIndex        =   13
      Top             =   6840
      Visible         =   0   'False
      Width           =   120
   End
   Begin VB.Label lbKaraoke
      Height          =   255
      Left            =   4560
      TabIndex        =   9
      Top             =   2460
      Width           =   1995
   End
   Begin VB.Label lbTime
      Height          =   255
      Left            =   1380
      TabIndex        =   8
      Top             =   2460
      Width           =   1455
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00FF0000&
      BackStyle       =   0  '
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   495
      Index           =   6
      Left            =   0
      TabIndex        =   6
      Top             =   960
      Width           =   6735
   End
   Begin VB.Label lbLyrics
      AutoSize        =   -1  'True
      BackColor       =   &H00FF0000&
      BackStyle       =   0  '
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   315
      Index           =   5
      Left            =   0
      TabIndex        =   5
      Top             =   960
      Width           =   120
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   495
      Index           =   4
      Left            =   0
      TabIndex        =   4
      Top             =   1920
      Width           =   6735
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   495
      Index           =   3
      Left            =   0
      TabIndex        =   3
      Top             =   1440
      Width           =   6735
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   495
      Index           =   2
      Left            =   0
      TabIndex        =   2
      Top             =   960
      Width           =   6735
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   495
      Index           =   1
      Left            =   0
      TabIndex        =   1
      Top             =   480
      Width           =   6735
   End
   Begin VB.Label lbLyrics
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "
         Size            =   15.75
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808080&
      Height          =   495
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6735
   End
Attribute VB_Name = "frmLyrics"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim timeFlag As Long
Private Sub chkViewNoTag_Click()
    Call vbmp3_setNotTagLyricsLine(chkViewNoTag.Value)
End Sub
Private Sub cmdGetLyrics_Click()
    frmLyrics2.Show
    lyricsData = ""
    Call vbmp3_getCallbackLyricsData(AddressOf vbmp3_getLyricsDataProc)
    frmLyrics2.lbLyrics.Caption = lyricsData
    Dim lyCnt As Long
    Dim cnt As Long
'    lyCnt = vbmp3_getLyricsCount()
'    Dim lyData(1000) As LYRICS_DATA
'    ReDim lyData(lyCnt)
'    Call vbmp3_getLyricsData(lyData(0), lyCnt)
End Sub
Private Sub cmdN2W_Click()
    Call vbmp3_convTimeN2W
End Sub
Private Sub cmdOutLyFile_Click()
    Dim iFile As String
    iFile = left(Trim(frmPLAY.txtFile.Text), Len(Trim(frmPLAY.txtFile.Text)) - 4)
    iFile = iFile + ".lyr"
    Call vbmp3_outLyricsFile(iFile)
End Sub
Private Sub cmdTimeChange_Click()
    If timeFlag = 0 Then
        Call vbmp3_setLyricsTime(1)
        lbTime.Caption = "VBMP3
        timeFlag = 1
    Else
        Call vbmp3_setLyricsTime(0)
        lbTime.Caption = "Winamp
        timeFlag = 0
    End If
End Sub
Private Sub cmdViewAt_Click()
    Dim atTagData As AT_TAG_DATA
    Call vbmp3_getAtTagData(atTagData)
    txtAtAirtist.Text = atTagData.Artist
    txtAtTitle.Text = atTagData.Title
    txtAtAlbum.Text = atTagData.Album
    txtAtBgfile.Text = atTagData.Bgfile
    txtAtBgfolder.Text = atTagData.Bgfolder
    txtAtTaggingBy.Text = atTagData.TaggingBy
    txtAtEditedBy.Text = atTagData.EditedBy
    txtAtTimeType.Text = atTagData.TimeType
    txtAtTimeRatio.Text = atTagData.TimeRatio
    txtAtOffset.Text = atTagData.Offset
    txtAtSilencemSec.Text = atTagData.SilencemSec
    txtAtSilence.Text = atTagData.Silence
    txtAtFlames.Text = atTagData.flames
    txtAtTotalSec.Text = atTagData.TotalSec
End Sub
Private Sub cmdW2N_Click()
    Call vbmp3_convTimeW2N
End Sub
Private Sub Form_Load()
    If timeFlag = 0 Then
        lbTime.Caption = "Winamp
    Else
        lbTime.Caption = "VBMP3
    End If
End Sub
Private Sub Text3_Change()
End Sub