Hallöchen...bastle seit paar Wochen in vb .net 2008 ...kam bisher auch super mit google suche zurecht , aba jetzt steck ich fest:
versuche den vlc player in mein prog zu integrieren(mometan versuche ich es noch in nem leeren formular), aber es gibt so wenige handfeste tipps dazu....jetzt habe ich bisl was zusammengeschrieben, was auch läuft, nur es verursacht beim beenden einen bluescreen...könnte mir da jemand helfen...was habe ich wohl vergessen?...
Hier mein Prog:
Public Class Form1
versuche den vlc player in mein prog zu integrieren(mometan versuche ich es noch in nem leeren formular), aber es gibt so wenige handfeste tipps dazu....jetzt habe ich bisl was zusammengeschrieben, was auch läuft, nur es verursacht beim beenden einen bluescreen...könnte mir da jemand helfen...was habe ich wohl vergessen?...
Hier mein Prog:
Public Class Form1
Private Sub AxVLCPlugin1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxVLCPlugin1.Enter
Dim strArray(10) As String
strArray(0) = ":dshow-vdev=""ULi M9205 TV Box"" "
strArray(1) = ":dshow-adev=""ULI M9205 "" "
strArray(2) = ":dshow-Size = """" "
strArray(3) = ":dshow-caching = 200"
strArray(4) = ":dshow-chroma = """" "
strArray(5) = ":dshow-fps =0.0"
strArray(6) = ":no-dshow-config"
strArray(7) = ":dshow-tuner"
strArray(8) = ":dshow-tuner-channel= 58"
strArray(9) = ":dshow-tuner-country= 60"
strArray(10) = ":dshow-tuner-Input= 2"
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.addTarget("E:\Videos\Escaflowne_Sora. flv", strArray, AXVLC.VLCPlaylistMode.VLCPlayListAppendAndGo, 0)
If Not AxVLCPlugin1.Playing Then
AxVLCPlugin1.play()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxVLCPlugin1.play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxVLCPlugin1.stop()
AxVLCPlugin1.Dispose()
Close()
End Sub
End Class
Dim strArray(10) As String
strArray(0) = ":dshow-vdev=""ULi M9205 TV Box"" "
strArray(1) = ":dshow-adev=""ULI M9205 "" "
strArray(2) = ":dshow-Size = """" "
strArray(3) = ":dshow-caching = 200"
strArray(4) = ":dshow-chroma = """" "
strArray(5) = ":dshow-fps =0.0"
strArray(6) = ":no-dshow-config"
strArray(7) = ":dshow-tuner"
strArray(8) = ":dshow-tuner-channel= 58"
strArray(9) = ":dshow-tuner-country= 60"
strArray(10) = ":dshow-tuner-Input= 2"
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.playlistClear()
AxVLCPlugin1.AutoPlay = True
AxVLCPlugin1.addTarget("E:\Videos\Escaflowne_Sora. flv", strArray, AXVLC.VLCPlaylistMode.VLCPlayListAppendAndGo, 0)
If Not AxVLCPlugin1.Playing Then
AxVLCPlugin1.play()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxVLCPlugin1.play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxVLCPlugin1.stop()
AxVLCPlugin1.Dispose()
Close()
End Sub
End Class
Comment