Option Explicit On
Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Return Then
            My.Forms.Form2.Show()
        End If
    End Sub
    Private Declare Function mciSendString Lib "winmm.dll" _
      Alias "mciSendStringA" ( _
      ByVal lpstrCommand As String, _
      ByVal lpstrReturnString As String, _
      ByVal uReturnLength As Long, _
      ByVal hwndCallback As Long) As Long
 
    Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 100
    End Sub
 
    Private Sub OpenMP3(ByVal sFile As String)
        Dim sBuffer As String
        Dim lResult As Long
        Dim sReturn As String
 
        ' Da die mciSendString Funktion mit langen Dateinamen
        ' nicht korrekt arbeitet, muss zuvor der kurze
        ' 8.3 Dateiname der MP3-Datei ermittelt werden.
        sBuffer = Space$(255)
        lResult = GetShortPathName(sFile, sBuffer, _
          Len(sBuffer))
 
        If lResult <> 0 Then
            sFile = (HIER IST DER FEHLER)Left$(sBuffer, InStr(sBuffer, _
              vbNullChar) - 1)
        End If
 
        ' MP3-Datei öffnen
        mciSendString("open " & sFile & _
          " type MPEGVideo alias myMP3", 0, 0, 0)
    End Sub
 
    ' MP3-Datei schließen
    Private Sub CloseMP3()
        mciSendString("close myMP3", 0, 0, 0)
    End Sub
 
    ' Kommando senden und "Ergebnis" zurückgeben
    Private Function SendCommand(ByVal sCmd As String) As Long
        Dim lResult As Long
        Dim sReturn As String
 
        sReturn = Space$(256)
        lResult = mciSendString(sCmd, sReturn, Len(sReturn), 0&)
 
        SendCommand = Val(sReturn)
    End Function
 
    Private Sub cmdPlay_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdPlay.Click
        Dim sFile As String
 
        ' MP3-Datei, die abgespielt werden soll
        sFile = "c:\Daten\mp3\50cent.mp3"
 
        ' MP3 öffnen
        OpenMP3(sFile)
 
        ' Abpsielvorgang starten
        SendCommand("play myMP3 from 0")
 
        ' Timer aktivieren
        Timer1.Enabled = True
    End Sub
 
    Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStop.Click
        Timer1.Enabled = False
        CloseMP3()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        ' Status abfragen und ggf. Abspielvorgang von
        ' vorne beginnen
        Dim lCurPos As Long
        Dim lLength As Long
 
        ' aktuelle Position
        lCurPos = SendCommand("status myMP3 position")
 
        ' Gesamtspielzeit
        lLength = SendCommand("status myMP3 length")
 
        ' Prüfen, ob am Ende angelangt und ggf.
        ' Abspielvorgang von vorne beginnen
        If lCurPos >= lLength Then
            SendCommand("play myMP3 from 0")
        End If
    End Sub
End Class