trik visual basic membuat multimedia

PRAKTIKUM VISUAL BASIC MULTIMEDIA


Pertama anda harus mengaktifkan Componen:
>> Microsoft Multimedia Control 6.0
>> Microsoft Common Dialog Control 6.0
Dengan cara tekan | Ctrl + T.

scripnya:

Option Explicit
Dim NamaFile
-----------------
Private Sub Mainkan()
NamaFile = CommonDialog1.FileName
With MMCTest
.FileName = NamaFile
.Command = "Open"
.Command = "play"
End With
End Sub
----------------------
Private Sub MMCTest_Done(NotifyCode As Integer)
MMCTest.Command = "close"
End Sub
--------------------
Private Sub MnAvi_Click()
With CommonDialog1
.Filter = "file suara (*.avi)|*.avi|"
.InitDir = "d:"
.ShowOpen
End With
Mainkan
Print "Nama File Musik Avi"
Print NamaFile
End Sub
--------------------
Private Sub MnExit_Click()
End
End Sub