Drive, Dir, File Boxen

R

reflexor

Mitglied
So ich habe die drei Funktionen in meine Form eingebaut!

Drive, Dir und File

die habe ich auch miteinander verbunden, das ist ja kein Problem.

Allerdings möchte ich in dem File feld nur ausgewählte dateien anzeigen lassen!
Also z.B. *.avi *.mpg *.mp3

Und die wenn ich doppelklick draufmache in einem eingebauten Mediaplayer abspielt!

Habe auch die anderen Threads zum Thema Video und so angeguckt nur keins mit diesem Problem gefunden!

Gruss Michael
 
Hallo, das kannst Du so machen:
Code: 
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" _
  Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () _
  As Long

Private Const SE_ERR_NOASSOC = 31
Private Const SE_ERR_NOTFOUND = 2

Private Sub File1_DblClick()
Dim Pfad As String

 Pfad = File1.Path
 If Not Right(Pfad, 1) = "\" Then Pfad = Pfad & "\"
 Pfad = Pfad & File1.List(File1.ListIndex)
 DocumentOpen Pfad

End Sub

Private Sub Form_Load()
 File1.Pattern = "*.avi;*.mpg"
End Sub

Private Sub DocumentOpen(sFilename As String)
  Dim sDirectory As String
  Dim lRet As Long
  Dim DeskWin As Long
  
  DeskWin = GetDesktopWindow()
  lRet = ShellExecute(DeskWin, "open", sFilename, _
    vbNullString, vbNullString, vbNormalFocus)

  If lRet = SE_ERR_NOTFOUND Then
    
  ElseIf lRet = SE_ERR_NOASSOC Then
    sDirectory = Space(260)
    lRet = GetSystemDirectory(sDirectory, Len(sDirectory))
    sDirectory = Left(sDirectory, lRet)
    Call ShellExecute(DeskWin, vbNullString, _
      "RUNDLL32.EXE", "shell32.dll,OpenAs_RunDLL " & _
      sFilename, sDirectory, vbNormalFocus)
  End If
End Sub
 
OK danke hat supi geklappt mit den dateinamen und öffnen und so ! nur irgendiwe zeigt er das movie dann nicht in dem in der Form eingebauten WindowsMediaPlayer an!

Gruss Michael
 
Habe das mit dem eingebauten Player überlesen.
Was für eine Version Windows Mediaplayer hast Du denn eingebaut ?
Code: 
Private Sub File1_DblClick()
Dim Pfad As String

 Pfad = File1.Path
 If Not Right(Pfad, 1) = "\" Then Pfad = Pfad & "\"
 Pfad = Pfad & File1.List(File1.ListIndex)

 ' hier der Befehle für Deinen eingebauten Player

End Sub
Die Sub DocumentOpen und die Deklarationen kannst Du Dir in dem Fall sparen.
 
Den kann man leider nicht in der Form abspielen. Ich habe zumindest noch nicht herausgefunden. Mit der Version 7 ging das, soweit ich mich erinnern kann.
Ich werde mal ein wenig googeln, vielleicht finde ich was.
 
ok! danke das du das machst, ich weiss nie was ich in die Suchleiste von google eingeben soll! und wenn ich mal was zum thema VB suche finde ich es nicht!

Gruss Michael
 
Habe leider nichts brauchbares gefunden. Meist wurden nicht alle Dateiformate abgespielt.
Es wird Dir nichts anderes übrig bleiben die Dateien im Windows Mediaplayer abzuspielen oder die Version 7.xxx zu installieren.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück