Visual Basic Video einfügen

Seiten: 1
tttt
Verfasst am: 09.09.2012 um: 21:31 Uhr
 
Cw Aufsteiger
Aufsteiger
Beiträge: 55
SPAM:
7% Spam
Hallo,
Wie kann ich in Visual Basic ein Video einfügen??

Vielen Dank im voraus!



MfG
tttt

 

Thema Nr. 38887 in folgendes Forum verschieben:
 


managerfree
Verfasst am: 10.09.2012 um: 00:01 Uhr
 
Cw Guru
King
Beiträge: 565
SPAM:
0% Spam
kommt drauf an...
was für ein Video?

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

 

Anubisssi
Verfasst am: 08.11.2012 um: 12:01 Uhr
 
Cw Greenhorn
Blutiger Anfänger
Beiträge: 3
SPAM:
0% Spam


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




Letzte Änderung am: 08.11.2012 um: 12:03 Uhr durch: Anubisssi
 

 
Seiten: 1

Folgende User sind hier gerade aktiv:
-

ANZEIGE