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