Avatar billede Slettet bruger
21. januar 2007 - 13:47 Der er 8 kommentarer og
1 løsning

MP3 Afspiller

Hej Eksperten, jeg er i gang med at programere en mp3 afspiller.

Jeg programere i VB.NET i kan se min kode her

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

jeg er ikke kommet rat lnagt da jeg har problemere mit lige nu kan den kun åbne sig og man kan vælge vilken fil man vil have men jeg vil have sådan at hvis man vælger en musik fil så skal den afspille den :) er der nogen der kan hjælp ? så vil jeg blive mega GLAD :)
Avatar billede kalp Novice
21. januar 2007 - 14:19 #1
her har du koden til en mp3 player i vb
http://www.vbcodesource.org/downloads/mp3media.zip
Avatar billede Slettet bruger
21. januar 2007 - 14:26 #2
den dur ik jeg kan ikke udpakke den i VB.NET den melder fejl  har du / i ander ? så
Avatar billede kalp Novice
21. januar 2007 - 14:31 #3
Avatar billede Slettet bruger
21. januar 2007 - 14:38 #4
Tak koden kan jeg bruge som der er det men et problem :( jeg ved ikke hvor koden skal stå eller være og hvad der skal laves om i den
Avatar billede sjh Nybegynder
21. januar 2007 - 14:49 #5
madsls : måske du skulle smide dit spørgsmål under Visual Basic.NET
http://www.eksperten.dk/spm/Programmering/Visual-Basic-NET/
Avatar billede kalp Novice
21. januar 2007 - 14:51 #6
i det du har lavet  skal du før du kalder end sub have sat dette ind

Dim app_path As String

  app_path = stien til mp3 filen som du har hentet siger du
    mmcAudio.Notify = False
    mmcAudio.Wait = True
    mmcAudio.Shareable = False
    mmcAudio.Command = "Close"
cmdPlay_Click()


alt det denne metode skal du oprette

Private Sub cmdPlay_Click()
    If cmdPlay.Caption = "Play" Then
        mmcAudio.FileName = txtFile.Text
        mmcAudio.Command = "Open"
        mmcAudio.Command = "Play"
        cmdPlay.Caption = "Stop"
    Else
        mmcAudio.Command = "Stop"
        mmcAudio.Command = "Close"
    End If
End Sub


sådan ca. i hvertfald.
Avatar billede Slettet bruger
21. januar 2007 - 15:18 #7
Kan ikke helt forstå :(

min kode er her Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

        End If
    End Sub
End Class

Kan du hjælp det her er fra top til bund.
Avatar billede Slettet bruger
21. januar 2007 - 15:18 #8
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

        End If
    End Sub
End Class



Var en fejl der i
Avatar billede Slettet bruger
04. marts 2013 - 22:15 #9
Lukket
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester