åpna filer i

NightMaree · 7. november 2004

hallo..

tenkte eg sko prøva å laga meg en media player....

har te nå klart å laga de sån at den bare sepele 1 fil... har lagt inn knapper de pause, stopp, exit,...

mn probleme er, kossen ska eg få den te å spela av andre filer åg... gjerna få opp ei fil lista..

någen så har peiling?

bare sei i fra vist eg skriva litt dårlegt eller de e dårlegt forklart. :blush:

NightMaree · 7. november 2004

her e koden btw

Private Sub Command1_Click()

If Command1.Caption = "Stopp" Then

Command1.Caption = "Start"

MMControl1.Command = "Stop"

Text1.Text = ""

ElseIf Command1.Caption = "Start" Then

Command1.Caption = "Stopp"

MMControl1.Command = "close"

MMControl1.FileName = "F:\Musikk\angel_of_mine.wav"

Text1.Text = (MMControl1.FileName)

MMControl1.Command = "open"

MMControl1.Command = "Start"

MMControl1.Command = "play"

End If

End Sub

Private Sub Command2_Click()

If Command2.Caption = "Fortsett" Then

Command2.Caption = "Pause"

MMControl1.Command = "play"

ElseIf Command2.Caption = "Pause" Then

Command2.Caption = "Fortsett"

MMControl1.Command = "Pause"

End If

End Sub

Private Sub Command3_Click()

End

End Sub

aadnk · 7. november 2004

Du har altså hard-programmert filstien inn i programmet, men du ønsker heller å la dette være valgfritt for brukeren? I så fall kan du løse det med en enkel ActiveX-kontroll.

Gjør følgende:

Velg "Project" -> "Components" i menyen.
I vinduet som nå kommer opp skal du lete deg fram til "Microsoft Common Dialog Control" og trykke på avkrysningsboksen.
Press "OK"

Etter dette skal et nytt objekt være tilgjengelig. Legg det deretter inn i formen, og navngi det til "cdFile".

Når du har gjort alt dette, vil denne koden gi brukeren muligheten å åpne en fil:

' Hvilke filer som skal kunne åpnes
cdFile.Filter = "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

' Vis dialogboksen
cdFile.ShowOpen

' Har alt gått med suksess skal en meldingsboks fortelle om filbanen.
' Ellers vil en meldningsboks fortelle om problemet.

If cdFile.FileName <> "" Then
   ' Legg inn koden som spiller av filen her
   MsgBox "Følgende fil ble åpnet " & cdFile.FileName
Else
   MsgBox "Ingen fil ble åpnet"
End If

Jonas · 7. november 2004

Det finnes ikke noe SpillAvNest()-funksjon, så du må lage noe selv. I min mediaplayer som jeg holder på med, legger jeg til alle sangene i en liste. Hver gang sangen er ferdig, hopper den til nest.

Dim NowPlaying As Long

Private Sub Form_Load()

MediaPlayer.FileName = List1.List(NowPlaying)
MediaPlayer.play

End Sub

Private Sub MediaPlayer_EndOfStream(ByVal Result As Long)

NowPlaying = NowPlaying + 1

MediaPlayer.FileName = List1.List(NowPlaying)
MediaPlayer.play

End Sub

Endret 7. november 2004 av Jonas

NightMaree · 7. november 2004

Du har altså hard-programmert filstien inn i programmet, men du ønsker heller å la dette være valgfritt for brukeren? I så fall kan du løse det med en enkel ActiveX-kontroll.

Gjør følgende:

Velg "Project" -> "Components" i menyen.

I vinduet som nå kommer opp skal du lete deg fram til "Microsoft Common Dialog Control" og trykke på avkrysningsboksen.

Press "OK"

Etter dette skal et nytt objekt være tilgjengelig. Legg det deretter inn i formen, og navngi det til "cdFile".

Når du har gjort alt dette, vil denne koden gi brukeren muligheten å åpne en fil:
' Hvilke filer som skal kunne åpnes
cdFile.Filter = "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

' Vis dialogboksen
cdFile.ShowOpen

' Har alt gått med suksess skal en meldingsboks fortelle om filbanen.
' Ellers vil en meldningsboks fortelle om problemet.

If cdFile.FileName <> "" Then
   ' Legg inn koden som spiller av filen her
   MsgBox "Følgende fil ble åpnet " & cdFile.FileName
Else
   MsgBox "Ingen fil ble åpnet"
End If

der kommer opp en feilmelding...: invalide outside procedure

de kommer opp på denne linja: "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

aadnk · 7. november 2004

Meningen var at du skulle legge koden inn i f.eks hendelsen til Command2_Click, som dette:

Private Sub Command2_Click()

' Hvilke filer som skal kunne åpnes
cdFile.Filter = "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

' For å spare plass la jeg ikke hele koden inn.
' ...
' ...

End Sub

Deretter kan du f.eks sette Caption på Command2 til "Åpne fil" e.l.

NightMaree · 7. november 2004

hehe, tog an nå

takker for hjelpn :love:

NightMaree · 7. november 2004

hmm.. sikker litt for møyje n00b eg... mn eg får ikke til å spela av den filå eg åpner.,,, någen idear?

Jonas · 7. november 2004

Du må legge filen som åpned med dialog, i en liste:

Private Sub Command1_Click()
On Error GoTo feil

CommonDialog1.Filter = "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

CommonDialog1.ShowOpen

List1.AddItem CommonDialog1.FileName

MediaPlayer.FileName = List1.List(List1.ListCount - 1)
MediaPlayer.Play

feil:
End Sub

Private Sub Form_Load()

CommonDialog1.CancelError = True

End Sub

NightMaree · 7. november 2004

for å få filene i ei lista får eg til... men eg får ikke til å spela di av,, :no:

Private Sub Command1_Click()

If Command1.Caption = "Stopp" Then

Command1.Caption = "Start"

MMControl1.Command = "Stop"

Text1.Text = ""

ElseIf Command1.Caption = "Start" Then

Command1.Caption = "Stopp"

MMControl1.Command = "close"

MMControl1.FileName = "F:\Musikk\angel_of_mine.wav"

Text1.Text = (MMControl1.FileName)

MMControl1.Command = "open"

MMControl1.Command = "Start"

MMControl1.Command = "play"

End If

End Sub

Private Sub Command2_Click()

If Command2.Caption = "Fortsett" Then

Command2.Caption = "Pause"

MMControl1.Command = "play"

ElseIf Command2.Caption = "Pause" Then

Command2.Caption = "Fortsett"

MMControl1.Command = "Pause"

End If

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

On Error GoTo feil

CommonDialog1.Filter = "MP3-file (*.mp3)|*.mp3|WAV-file (*.wav)|*.wav|Alle filer|*"

CommonDialog1.ShowOpen

List1.AddItem CommonDialog1.FileName

MMControl1.FileName = List1.List(List1.ListCount - 1)

MMControl1.Command = "Play"

feil:

End Sub

Private Sub Form_Load()

CommonDialog1.CancelError = True

End Sub

Private Sub exit_Click()

End

End Sub

Private Sub Text1_Change()

Text1.Locked = True

Text1.FontSize = 15

End Sub

Jonas · 7. november 2004

Hmm ... Det ser da riktig ut her ifra. Prøv å ta bort "On error goto feil", og post her hvis du får en error.

NightMaree · 7. november 2004

fekk error då ja.

runtime error.

objeck requierd

List1.AddItem CommonDialog1.FileName

den linja kommer der error opp på

NightMaree · 7. november 2004

drid i... eg fant feilien...

hadde heve inne "filelistbox" isteden for "list" :blush:

NightMaree · 7. november 2004

hmm... men probleme er som følgende: eg får ikke til å spela av di filene eg har lagt inn i "list 1"

NightMaree · 7. november 2004

eg må nokk begynna å prøva litt mer før eg spør itte hjelp. fekk de til nå :love:

Logg inn

åpna filer i

Anbefalte innlegg

NightMaree

Lenke til kommentar

Videoannonse

NightMaree

Lenke til kommentar

aadnk

Lenke til kommentar

Jonas

Lenke til kommentar

NightMaree

Lenke til kommentar

aadnk

Lenke til kommentar

NightMaree

Lenke til kommentar

NightMaree

Lenke til kommentar

Jonas

Lenke til kommentar

NightMaree

Lenke til kommentar

Jonas

Lenke til kommentar

NightMaree

Lenke til kommentar

NightMaree

Lenke til kommentar

NightMaree

Lenke til kommentar

NightMaree

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Opprett konto

Logg inn

Hvem er aktive 0 medlemmer