Video

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    Video

    Hallo zusammen

    Ich weiss nicht ob das möglich ist, abr ich frag trotzdem mal.

    Wie füge ich ein Video in meine Form ein ? Das Video liegt bei mir aufem Desktop (C:\Users\Admin\Desktop\VideoBiker.mp4). Das will ich nun irgendwie in eine Form kriegen.
    Aussderdem sollte die Form auch 2 Buttons enthalten: Einen "Play" Button und einen "Pause" Button. Buttons wären nicht so wichtig, dass schaff ich (hoffentlich) selber ^^ .

    Lg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Jop, da hab ich etwas gefunden. Es kommt allerdings ne Fehlermeldung.

    Hier der jetzige Code:

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    3. Public Class Form1
    4. Dim Video As AudioVideoPlayback.Video
    6. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    7. Video = AudioVideoPlayback.Video.FromFile("C:\Users\Admin\Desktop\VideoBiker.mp4")
    8. End Sub
    10. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    11. Try
    12. Video.Stop()
    13. Catch ex As Exception
    15. End Try
    16. End Sub
    18. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    19. Try
    20. Video.Pause()
    21. Catch ex As Exception
    23. End Try
    24. End Sub
    26. Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
    28. End Sub
    30. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    31. Try
    32. Video.SeekCurrentPosition(0, AudioVideoPlayback.SeekPositionFlags.AbsolutePositioning)
    33. Video.Play()
    34. Catch ex As Exception
    36. End Try
    37. End Sub
    38. End Class


    Fehlermeldung: DirectXExeption wurde nicht behandelt.
    Und ich hab keine Ahnung was damit gemeint ist,... ?(

    EDIT: Ich hab statt Buttons PictureBoxen genommen, geht anscheinend auch odr ?
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    in welcher Situation kommt der Fehler denn, also wann?

    soweit ich weiß, musst du noch ein Owner(Besitzer), also in welchem Control das gespielt werden soll, angeben. Dazu würde ich ein Panel verwenden ;), am besten setzt du den Owner direkt nach dem Laden des Videos...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    du hast vergessen das:

    VB.NET-Quellcode

    1. imports microsoft.directX.audiovideoplayback

    zu schreiben


    jvbsl schrieb:

    in welcher Situation kommt der Fehler denn, also wann?

    soweit ich weiß, musst du noch ein Owner(Besitzer), also in welchem Control das gespielt werden soll, angeben. Dazu würde ich ein Panel verwenden ;), am besten setzt du den Owner direkt nach dem Laden des Videos...

    nein, wenn man keinen owner setzt wird ein neues fenster mit dem video aufgemacht


    mfg Gugi

    Also der Fehler kommt bei

    Video = AudioVideoPlayback.Video.FromFile("C:\Users\Admin\Desktop\VideoBiker.mp4")

    Und wie füg ich einen Owner hinzu ? und wie geb ich dem an in welchem Control der spielt ? Und was hat das mit dem Panel zutun 8| , keine Ahnung was du mit diesen Begriffen gemeint hast...
    Kannst du mir den Code geben oder mir das nochmals erklären ( wenn du die Geduld dazu hast) :D

    Lg Dancger

    @Gugi : habs dazu gescghrieben aber es kommt immernoch der gleiche Fehler :(
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dancger“ ()

    Naja mir is lw kriegst source xD

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    2. Imports Microsoft.DirectX.AudioVideoPlayBack
    4. Public Class Form1
    5. Private WithEvents Video As Video
    7. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    8. Video = New Video("C:\Users\Admin\Desktop\VideoBiker.mp4")
    9. End Sub
    11. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    12. Try
    13. Video.Stop()
    14. Catch ex As Exception
    16. End Try
    17. End Sub
    19. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    20. Try
    21. Video.Pause()
    22. Catch ex As Exception
    24. End Try
    25. End Sub
    27. Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
    29. End Sub
    31. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    32. Try
    33. Video.SeekCurrentPosition(0, AudioVideoPlayback.SeekPositionFlags.AbsolutePositioning)
    34. Video.Play()
    35. Catch ex As Exception
    37. End Try
    38. End Sub
    39. End Class

    müsste so klappen ;)

    so jetzt muss es aber klappen ;) ( du musst noch einen panel hinzufügen namens panel1):

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    2. Imports Microsoft.DirectX.AudioVideoPlayback
    4. Public Class Form1
    5. Private WithEvents Video As Video
    6. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    7. Video = New Video("C:\Users\Admin\Desktop\VideoBiker.mp4")
    8. End Sub
    9. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    10. Video.Stop()
    11. End Sub
    12. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    13. Video.Pause()
    14. End Sub
    15. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    16. Video.Owner = Panel1
    17. Video.Play()
    18. End Sub


    mfg Gugi

    Also wenn ich nun auf die "Play"PictureBox klicke kommt: 0 Referenz wurde nicht angegeben.

    sollte der Teil nicht da bleiben? :

    VB.NET-Quellcode

    1. Video.SeekCurrentPosition(0, AudioVideoPlayback.SeekPositionFlags.AbsolutePositioning)


    Und wenn ich auf die PB1 drücke kommt der gleiche Fehler wie vorhin schon ...
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...