[VB2008] mciSendString und mehrere dateien?

[Q2460]

Hallo, Ich hb ein Problem in VB2008. Ich habe einen Webbrowser gemacht der einen integrierten MediaPlayer hat. Also nicht den Windows Media Player sondern einen selbst gemachten. Der spielt aber nur einzelne Dateien ab. Ich möchte aber, dass er alle dateien nacheinander abspielt, die ich auch gewählt hab und nicht nur eine. Es wär auch ganz gut wenn der player auch langere Titelbeschriftungen nutzen würde, da er nur Dateien Abspielt die eine kurtze beschriftung haben (z.B. titel1.mp3 geht aber Titel1vonDemundDem.mp3 nicht).

Wäre wirklich klasse wenn jemand da helfen kann. Playercode

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 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

Public Enum mciType

fromVideo = 0

fromSound = 1

End Enum

Dim i As Integer = 0

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click

Dim browse As New WebBrowser

browse.Name = "b1"

browse.Dock = DockStyle.Fill

AddHandler browse.DocumentCompleted, AddressOf WebbrowserB

TabControl1.TabPages.Add(i, "Page " & i + 1)

TabControl1.SelectTab(i)

TabControl1.SelectedTab.Controls.Add(browse)

i = i + 1

End Sub

Private Sub WebbrowserB(ByVal Sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)

TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle

End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click

TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)

i = i - 1

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ToolStripTextBox1.TextBox.Text)

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim browse As New WebBrowser

browse.Name = "b1"

browse.Dock = DockStyle.Fill

AddHandler browse.DocumentCompleted, AddressOf WebbrowserB

TabControl1.TabPages.Add(i, "Page " & i + 1)

TabControl1.SelectTab(i)

TabControl1.SelectedTab.Controls.Add(browse)

i = i + 1

End Sub

Private Sub ToolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripTextBox1.KeyDown

If e.KeyCode = Keys.Return Then CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ToolStripTextBox1.TextBox.Text)

End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

mciSendString("stop WebbrowserB", 0, 0, 0)

mciSendString("close WebbrowserB", 0, 0, 0)

End Sub

Private Sub cmdopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click

OpenFileDialog1.ShowDialog()

mciSendString("open " & OpenFileDialog1.FileName & " alias WebbrowserB", Nothing, 0, 0)

mciSendString("play WebbrowserB", Nothing, 0, 0)

End Sub

End Class