' öffnen und laden einer Multimedia-Datei (Menü - Öffnen)
Private Sub Mnu_Open_Click()
  Dim OF As OPENFILENAME, RetVal As Long
 
  With OF
    .lStructSize = Len(OF)
    .hInstance = App.hInstance
    .hwndOwner = Me.hWnd
    .lpstrTitle = "Multimediadatei Öffnen"
    .lpstrFilter = GetMciFileTypes
    .nFilterIndex = 1
    .lpstrFile = Space(512) & Chr(0)
    .nMaxFile = Len(.lpstrFile)
    .flags = OFN_EXPLORER
  End With
 
    ' Preview-Dialog anzeigen
  RetVal = GetOpenFileNamePreview(OF)
  CloseHandle RetVal
 
    ' falls Datei gewählt, dann die Datei mit dem Treiber öffnen
  If RetVal <> 0 Then
    Picture1.Cls
    Mci_Open Left$(OF.lpstrFile, InStr(1, OF.lpstrFile, vbNullChar) - 1)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de