Postby BenShoan » 28 Jul 2009 05:30
Install vlc on your PC
In VB-6 go to project references and browes to C:\Program Files\VideoLAN\VLC\axvlc.dll and add it to your list.
In your Form header add:
Private WithEvents Myvlc As AXVLC.VLCPlugin
Private Myvlc2 As AXVLC.VLCPlugin2
To play files
Dim VlcStartOptions As String
Set Myvlc = Nothing
Set Myvlc2 = Nothing
Set Myvlc = New AXVLC.VLCPlugin
VlcPlayerOptions = "no-quiet file-logging language=en osd video-title-show" _
+ " video-title-timeout=10000 disable-screensaver video-on-top " _
+ " directx-audio-device=2 " _
+ " directx-device=\\.\DISPLAY1"
'// this is to play video, you can find more options to start with on vlc-help.txt
MyVlc_1.addTarget "Filename.wmk, mp3..." , VlcStartOptions, VLCPlayListAppendAndGo, -666
MyVlc_1.Volume = 50
MyVlc_1.Play
.
.
.
Myvlc.pause
To close vlc:
MyVlc_1.Stop
MyVlc = Nothing
Myvlc2 = Nothing
to get extra functions:
Set Myvlc2 = Myvlc
Myvlc2.input.Rate
go for it