Intro in Spiel Bauen bitte Helfen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Riggo95.

    Intro in Spiel Bauen bitte Helfen

    Hi leute ich wollte bei meinem spiel zu anfang ein 8 sekunden intro laufen lassen hatte schon was versucht hatte aber nicht funktioniert kann mir bitte wer schnell helfen ??

    Folgendens hatte ich bisher gemacht:


    VB.NET-Quellcode

    1. Public Class intro
    3. 'Existiert eine Datei?
    4. Function FileExists(ByVal File As String) As Boolean
    5. On Error Resume Next
    6. FileExists = False
    7. FileExists = Dir(File) <> ""
    8. End Function
    10. 'absoluten Pfad ermitteln
    11. Dim pfd As String = Application.StartupPath
    12. 'Musik einlesen, muss im Verzeichnis sound liegen
    13. Dim startVideo As String = pfd & "\Video\intro.avi"
    15. Private Sub AxWindowsMediaPlayer1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
    17. If FileExists(startVideo) Then
    18. Dim AxWindowsMediaPlayer1 = "\Video\intro.avi"
    20. Else
    21. MsgBox("Kein Video gefunden")
    22. End If
    24. End Sub
    27. Private Sub intro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    29. End Sub
    30. End Class


    lag ich da schon ungefähr richtig ?

    LG Riggo

    nein tut mir leid, ich habs dir sogar mal umgeschrieben, wie ichs gedacht hätte:

    VB.NET-Quellcode

    1. Public Class intro
    2. 'absoluten Pfad ermitteln
    3. Dim pfd As String = Application.StartupPath
    4. 'Musik einlesen, muss im Verzeichnis sound liegen
    5. Dim startVideo As String = pfd & "\Video\intro.avi"
    7. Private Sub AxWindowsMediaPlayer1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
    9. If Io.File.Exists(startVideo) Then
    10. AxWindowsMediaPlayer1.Url = startVideo
    11. 'evtl.l auch direkt starten mit AxWindowsMediaPlayer1.Ctlcontrols.play()
    12. Else
    13. MsgBox("Kein Video gefunden")
    14. End If
    16. End Sub
    19. Private Sub intro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    21. End Sub
    22. End Class
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Nein, wie sollte ich auch bei einem solchen Code...xD

    setz doch mal den Code von Z 9-14 in die intro_Load Methode,

    das als AxWindowsMediaPlayer1_load getarnte Event ist in echt das Enter Event des Controls...xD
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Du kannst auch nen WPF-Container in dein Form setzen und dadrin ein Multimedia-Control einsetzen. das kann avi und vor allem WMV auch abspielen und ist native VB und nicht ein AX-Control, dass da sein kann oder auch nicht, ja nachdem, was der Nutzer installiert hat.

Facebook
Telefonspende