Hallo,
Wie kann ich in Visual Basic ein Video einfügen??

Vielen Dank im voraus!



MfG
tttt

kommt drauf an...
was für ein Video?

Youtube, lokaler Speicher (Festplatte, USB-Stick, etc.), MyVideo!?

Ich habe das mal so gemacht - mit Windows Media Player

In deinem Ordner legst du dann eine : VideoListe.txt an und schreibst da untereinander
die Titel der Videos. Müßte eigentlich auch als Avi gehen.

Ob andere Formate gehen k.a. ist schon ne weile her, aber so hast du erst mal ein Ansatz.

Für das Beispiel brauchst du:

1 Komponente : WindowsMediaPlayer1
1 Listbox : lstVideo
1 CommandButton: cmdVideoAbspielen

Option Explicit

Private Sub cmdVideoAbspielen_Click()
Dim VideoName As String
VideoName = lstVideo.Text
WindowsMediaPlayer1.URL = App.Path & "/" & VideoName
End Sub

Private Sub Form_Load()
  Dim InhaltTextdatei As String
  Dim ZeilenTextdatei As Integer
  '********* Lesen aus der Textdatei und zuweisen an die Listbox
  '********* In der Textdatei müssen die Werte untereinander geschrieben werden
    lstVideo.Clear
    If Len(Dir$(App.Path & "\VideoListe.txt", vbNormal)) > 0 Then
        ZeilenTextdatei = FreeFile
        Open App.Path & "\VideoListe.txt" For Input As #ZeilenTextdatei
            Do While Not EOF(ZeilenTextdatei)
           & nbsp;    Input #ZeilenTextdatei, InhaltTextdatei
           & nbsp;    lstVideo.AddItem InhaltTextdatei
            Loop
        Close ZeilenTextdatei
            If lstVideo.ListCount > 0 Then
           & nbsp;    lstVideo.ListIndex = 0
            End If
    End If
End Sub


Private Sub lstVideo_Click()
cmdVideoAbspielen_Click
End Sub

Private Sub lstVideo_DblClick()
cmdVideoAbspielen_Click
End Sub