Afspille film i vb

Hvilken film?

Du skal vel have fat i en player af en art, det nemmeste er vel en shell kommando?
Troede lige jeg kunne give dig et eksempel, men det lader til at jeg har slettet dao350.dll på en finurlig måde, så jeg må lige lege lidt med installations-rommerne i et stykke tid :O)

- Mikker

Hmmm Jeg skal afspille (app.path & "/godfilm.wmv")... Hvordan gør jeg det?

Shell-commandoen virker ikke til det... :)

Hmmm det burde den vel, hvis din player er sat op til det?

Jeg må være dig svar skyldig, men jeg skal nok sige til, hvis jeg finder ud af noget interessant.

Held og lykke :O)
- Mikker

ok tak :)

men hvordan sætter man sin player op til det??

Du kan højrelikke ude i komponentlisten ude til højre.....
og vælg Components......nederst i listen finder du Windows Media Player

Så kan du sætte sådan en ind......

du bruger den på følgende måde for at spille en film ved tryk på knap:

Private Sub Command1_Click()
  MediaPlayer1.Open (App.Path & "\film.wmv")
End Sub

Du kan endda sætte fuldskærm på med Alt+Enter hvis din mediaplayer har focus....

Du kan også lave en filmliste med en filelistbox.....

Private Sub Form_Load()
  FileListBox1.Path("D:\Movies")
End Sub

Private Sub Command1_Click()
  MediaPlayer1.Open(FileListBox1.Path & "\" & FileListBox1.FileName)
End Sub

Ja ok men når jeg bruger filelistbox så skriver den:

Compile error:
Invalid use of property

Hvorfor?

2 sec kigger lige på det.....

tubber <- hvad er dit ICQ-nr.?

Private Sub Form_Load()
  File1.Path = "D:\Movies"
End Sub

Private Sub Command1_Click()
  MediaPlayer1.Open(File1.Path & "\" & File1.FileName)
End Sub

YES... Det virker :) Men inden jeg accepterer dit svar vil jeg lige spørge:

1) Kan man give filerne navne uden at omdøbe dem i mappen?
2) Tubber <- Hvad er dit ICQ-nr.?

1) Nej så skal du lave en listbox du smidder dem ind i og giver det index de har i filelistboxen.....og så lave filelistboxen hidden.....kan godt lave et eksempel på det senere......

2) 16780329

Her kommer lige en udvidet ting...som kan spille mp3 osv....

Du skal have følgende.....:
Combobox som hedder Combo1
FileListBox som hedder File1
ListBox som hedder List1
Command button som hedder Command1
Media Player som hedder MediaPlayer1

Og her kommer koden så:

-------Form_Load--------------------------------------------------------------

Private Sub Form_Load()
File1.Visible = False
Combo1.AddItem ("Fun"), 0
Combo1.AddItem ("DivX"), 1
Combo1.AddItem ("VCD"), 2
Combo1.AddItem ("SVCD"), 3
Combo1.AddItem ("Mp3"), 4
Combo1.Text = Combo1.List(0)
File1.Path = "F:\movies\Fun"
For i = 1 To File1.ListCount
    List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
Next i
End Sub

-------Combo1_Click------------------------------------------------------------

Private Sub Combo1_Click()
If Combo1.Text = "DivX" Then
    File1.Path = "D:\movies\DivX"
    File1.Refresh
    List1.Clear
    For i = 1 To File1.ListCount
        List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
    Next i
ElseIf Combo1.Text = "VCD" Then
    File1.Path = "D:\movies\VCD"
    File1.Refresh
    List1.Clear
        For i = 1 To File1.ListCount
            List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
        Next i
ElseIf Combo1.Text = "SVCD" Then
    File1.Path = "D:\movies\SVCD"
    File1.Refresh
    List1.Clear
        For i = 1 To File1.ListCount
            List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
        Next i
ElseIf Combo1.Text = "Fun" Then
    File1.Path = "D:\movies\Fun"
    File1.Refresh
    List1.Clear
        For i = 1 To File1.ListCount
            List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
        Next i
ElseIf Combo1.Text = "Mp3" Then
    File1.Path = "D:\Mp3"
    File1.Refresh
    List1.Clear
        For i = 1 To File1.ListCount
            List1.AddItem (Left(File1.List(i - 1), InStr(File1.List(i - 1), ".") - 1)), i - 1
        Next i
End If
End Sub

-------Command_Click-----------------------------------------------------------

Private Sub Command1_Click()
MediaPlayer1.Open (File1.Path & "\" & File1.List(List1.ListIndex))
End Sub