[Visual Basic 6.0] 簡易使用 WindowsMediaPlayer 製作 MP3 動態歌詞製造器

2013-11-11

摘要:[Visual Basic 6.0] 簡易使用 WindowsMediaPlayer 製作 MP3 動態歌詞製造器

※ 以上歌詞時間數據只是為了測試隨意產生。


Dim A, B, C, K

Private Sub Form_Load()
    A = 0
    B = 0
    C = 0
End Sub

Private Sub Label10_Click()
Open App.Path & "/歌詞.txt" For Input As #1
    List1.Clear
    List2.Clear
Do While Not EOF(1)
    Input #1, Inp
    List1.AddItem Inp
Loop
    K = 0
    Close
    MsgBox "歌詞載入完成！", , "Visual Basic MP3 歌詞製作器"
End Sub

Private Sub Label3_Click()
    On Error GoTo 0
    CommonDialog1.ShowOpen
    Label2 = CommonDialog1.FileName
    WindowsMediaPlayer1.URL = Label2
End Sub

Private Sub Label4_Click()
    WindowsMediaPlayer1.Controls.play ' 播放
    Timer1.Enabled = True
End Sub

Private Sub Label5_Click()
    WindowsMediaPlayer1.Controls.pause ' 暫停
    Timer1.Enabled = False
End Sub

Private Sub Label6_Click()
    WindowsMediaPlayer1.Controls.stop  ' 停止
    A = 0
    B = 0
    C = 0
    Timer1.Enabled = False
End Sub

Private Sub Label7_Click()
    WindowsMediaPlayer1.Close
    WindowsMediaPlayer1.URL = Label2.Caption
    A = 0
    B = 0
    C = 0
    Timer1.Enabled = False
End Sub

Private Sub Label8_Click()
List2.AddItem "[" & Format(C, "00") & ":" & Format(B, "00") & ":" & Format(A, "00") & "]" & " " & List1.List(K)
K = K + 1
End Sub

Private Sub Label9_Click()
Open App.Path & "/動態歌詞.txt" For Output As #1
    Out = ""
For I = 0 To List2.ListCount - 1
    Out = Out & List2.List(I) & vbCrLf
Next I
    Print #1, Out
    Close
    MsgBox "動態歌詞已輸出至目錄下！", , "Visual Basic MP3 歌詞製作器"
End Sub

Private Sub Timer1_Timer()
    A = A + 1
    If A = 10 Then
        A = 0
        B = B + 1
        If B > 59 Then
            B = 0
            C = C + 1
        End If
    End If
End Sub

Visual Basic MP3 歌詞製作器.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁