Memainkan file video dengan Windows API di Visual Basic 6

Memainkan file video di Visual Basic 6 cukup mudah, dengan bantuan Windows API tentunya. Secara spesifik kita akan menggunakan perintah API MCISendString dan fungsi ini didukung
oleh seluruh Sistem Operasi Windows modern (seperti Windows XP, Vista dan 7).
Penggunaan MCI sudah cukup untuk memainkan beberapa format video seperti AVI, MPG, MPEG, DAT, WMV dan sebagainya. MCI sebenarnya dapat memainkan seluruh jenis video asalkan anda
memiliki Codecnya, jadi misalnya anda ingin memainkan MOV, MKV, MP4, OGM anda cukup meng-install Codec yang diperlukan atau kalau anda tidak mau repot – repot anda bisa meng-install K-Lite Codec Pack.
Fungsi API:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal

lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,

ByVal hwndCallback As Long) As Long

Dim lokasiFile As String

Dim nilaiKembali As Long

 

Penggunaan API:

lokasiFile = "D:\Pilem\elang.wmv"

'Memberikan informasi bahwa codec mpegvideo seharusnya dipakai.

'Codec ini seharusnya mampu memainkan hampir seluruh video tanpa masalah. Kode ini akan memunculkan video dengan windownya sendiri.

nilaiKembali = mciSendString("open " & filename & " type mpegvideo alias movie", 0, 0, 0)

 

Pengendalian dasar video(letakkan pada tombol – tombol yang sesuai):

'Memainkan video

nilaiKembali = mciSendString("play movie", 0, 0, 0)

'Menghentikan video bila sedang dimainkan

nilaiKembali = mciSendString("stop movie", 0, 0, 0)

'Akan mem-pause video bila sedang dimainkan

nilaiKembali = mciSendString("pause movie", 0, 0, 0)

'Akan melanjutkan video bila sedang di-pause

nilaiKembali = mciSendString("resume movie", 0, 0, 0)

 

Seperti anda lihat potongan kode diatas cukuplah mudah untuk memainkan file video, bahkan kode ini sangat mirip untuk memainkan file audio seperti WAV, MP3 dan sebagainya yang telah saya jelaskan di artikel saya yang lain