kostenloser Webspace werbefrei: lima-city


VB MP3 hören

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    h******0

    Gibt es ein Easy Skript mit Declares zum MP3 abspielen .

    Will nehmlich eine GUI f?r meine MP3 Sammlung schreiben

    Ich habe das Skript

    ------------------------ MusicModule.bas ------------------------
    Option Explicit

    Public bMusicPlay As Boolean
    Public pMC As FilgraphManager
    Public bPause As Boolean

    Public Sub PlayMusic()
    Set pMC = New FilgraphManager
    pMC.RenderFile Form1.CDiag.FileName

    Form1.MusicTimer.Enabled = True

    pMC.Run
    bMusicPlay = True
    bPause = False
    End Sub

    Public Sub PauseMusic()
    If bPause Then
    pMC.Run
    Form1.cmd_Pause.Caption = "P&ause"
    bPause = False
    Else
    pMC.Pause
    Form1.cmd_Pause.Caption = "Pl&ay"
    bPause = True
    End If
    End Sub

    Public Sub StopMusic()
    bMusicPlay = False
    bPause = False
    Form1.MusicTimer.Enabled = False
    pMC.Stop
    Set pMC = Nothing
    End Sub

    '--------------------------- Form1.frm ---------------------------
    Option Explicit

    Private Sub cmd_Load_Click()
    cmd_Play.Enabled = False
    cmd_Stop.Enabled = False
    cmd_Pause.Enabled = False
    lbl_CurrentPos.Caption = "aktuelle Position: "
    lbl_StopTime.Caption = "MP3-L?nge: "
    lbl_Rate.Caption = "Rate (1=normal,.5=halftime,-1=r?ckw?rts): "
    With CDiag
    .Filter = ".MP3 File|*.mp3"
    .FileName = "*.mp3"
    .ShowOpen
    If Trim$(.FileName <> vbNullString) Then
    If Trim$(.FileName) = "*.mp3" Then Exit Sub
    cmd_Play.Enabled = True
    Else
    Exit Sub
    End If
    End With
    End Sub

    Private Sub cmd_Play_Click()
    PlayMusic
    cmd_Stop.Enabled = True
    cmd_Play.Enabled = False
    cmd_Pause.Enabled = True
    End Sub

    Private Sub cmd_Stop_Click()
    StopMusic
    cmd_Stop.Enabled = False
    cmd_Play.Enabled = True
    cmd_Pause.Enabled = False
    End Sub

    Private Sub cmd_Pause_Click()
    PauseMusic
    End Sub

    Private Sub cmd_Beenden_Click()
    Unload Me
    End
    End Sub

    Private Sub MusicTimer_Timer()
    If Not bMusicPlay Then Exit Sub

    Dim pME As IMediaEvent
    Dim pMEPos As IMediaPosition
    Dim EventCode As Long

    Set pME = pMC

    On Error Resume Next
    pME.WaitForCompletion 0, EventCode
    Set pMEPos = pMC

    lbl_CurrentPos.Caption = _
    "aktuelle Position: " & pMEPos.CurrentPosition
    lbl_StopTime.Caption = "MP3-L?nge: " & pMEPos.Duration
    lbl_Rate.Caption = _
    "Rate (1=normal,.5=halftime,-1=r?ckw?rts): " & pMEPos.Rate

    Set pMEPos = Nothing
    Set pME = Nothing

    If EventCode = 0 Then Exit Sub

    MusicTimer.Enabled = False
    pMC.Stop
    Set pMC = Nothing
    bMusicPlay = False
    bPause = False
    PlayMusic
    End Sub

    aber ich will das auf einen Klick auf ne Commandbox eine im Code festgelegt MP? Datei abgespielt wird ohne Pause u. Stop Funktion

    Beitrag ge?ndert am 6.10.2005 14:16 von hoster90
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. Ich w?rde einfach unter Komponenten nen Windows Media Player(fast ganz unten in der Liste) einf?gen und ein Label so davorsetzen, dass man den Player nicht sieht.

    Dann im Button (z.B. Song1)

    ---Code---

    Private Sub Song1_Click()
    WindowsMediaPlayer1.URL = "C:/.../.../....mp3 oder http://www.meinepage.de/???.mp3"
    WindowsMediaPlayer1.Controls.play
    End Sub

    ---Code---

    Du musst die URl nat?rlich anpassen.

    mfg Alex
  4. Ich versteh dein Problem nicht ganz. Ne MP3 abspielen kannst du ja anscheinend schon, falls nicht, schau mal hier auf meine antwort:
    http://www.lima-city.de/boards.php?m=thread&id=36932
    Der Code Funktioniert auch mit Mp3.
    Und wo ist dein Problem?
  5. Autor dieses Themas

    h******0

    Danke f?r eure Tipps .

    Durch den Tipp mit dem Mediaplayer, hab ich es geschafft Thanks.
  6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!