alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/52f8a787f7ca17a72d8b489d/mohon-bntuan-agan-cara-tambah-daftar-putar-video-di-vb6-lebih-dari-1
mohon bntuan agan, cara tambah daftar putar video di vb6 lebih dari 1
slmt sore gan, sblmnya mhn maaf kalau kurang sopan. saya ingin bertanya mengenai menambahkan video di tampilan vb6, kalau cuma 1 video sudah bisa. tapi bgaimana jika lebih dari satu, nyerah gogling sana sini belum ketemu. barangkali ada master bisa membantu karena aplikasi ini untuk antrian pasien di puskesmas. jadi ya buatnya amal aja,

WindowsMediaPlayer1
.URL = App.Path &
"\
"
Judul Video
Anda.flv

cara diatas sudah brhasil utk memutar 1 video, mhn bntuan jika ingin lebih dari 1 video jd nanti setelah habis bersambung supaya pasien tidak bosan. trm ksh. salam hormat saya. setyo
Gini aja gan,

Code:
Private Sub cmd_PlayAll_Click()
Dim x As Integer
Dim arrFiles(1 To 5) As String
WMP1.currentPlaylist = WMP1.playlistCollection.newPlaylist("MyPlayList")
arrFiles(1) = App.Path & "\Movie-01.flv"
arrFiles(2) = App.Path & "\Movie-02.flv"
arrFiles(3) = App.Path & "\Movie-03.flv"
arrFiles(4) = App.Path & "\Movie-04.flv"
arrFiles(5) = App.Path & "\Movie-05.flv"
For x = 1 To UBound(arrFiles)
Call WMP1.currentPlaylist.appendItem(WMP1.newMedia(arrFiles(x)))
Next
Me.WMP1.Controls.play
End Sub


terima kasih gan untk ptnjuknya, smga Allah swt membls kebaikan agan,