Imports System.IO
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, _
ByVal hwndCallback As Integer) As Integer
Public Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" ( _
ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, _
ByVal cchBuffer As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciSendString("open " & TextBox1.Text & " alias TempMCI", Nothing, 0, 0)
mciSendString("play TempMCI", Nothing, 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciSendString("stop TempMCI", 0, 0, 0)
mciSendString("close TempMCI", 0, 0, 0)
End Sub
End Class
habe folgenden Quelltext geschrieben um eine MP 3-Datei abspielen zu können, aber es funktioniert nicht und ich findet einfach den Fehler nicht habt dir vielleicht eine Idee wo der Fehler liegen könnte.
Danke für eure Hilfe
