Video Player Menggunakan Visual BAsic

Anda biasa nonton Filem menggunakan Video Player seperti Power di DVD atau Windows Media Player. Kini Ada Video Player Unik dan Anda Pasti puas Menontonnya..
Aplikasi Video Player Menggunakan Visual Basic. Berikut Dengan Source Codenya.
Sangat cocok untuk semua kalangan,Para Programer Bisa memodifikasi souce code untuk menjadi lebih unik.

Berikut Tampilan Di Menu Utama nya



source code nya :

Pada Menu Buka fungsi mengambil File yang akan di tonton

Private Sub cmdOpen_Click()
On Error Resume Next

Dim FileNames() As String
Dim myList As ListItem
Dim i As Long

ShowFileDialog (Me.hWnd)

FileNames = Split(mFileName, "|")
i = UBound(FileNames)

If i = 0 Then
mMPEG.FileName = mFileName
If mMPEG.FileOK Then
Set myList = Me.lvwFile.ListItems.Add( _
, , FilePart(mFileName, NameOnly))
myList.SubItems(1) = mMPEG.Length
myList.Tag = mFileName

myList.Selected = True
myList.EnsureVisible
End If
DoEvents
Else
For i = 1 To UBound(FileNames)
mMPEG.FileName = FileNames(0) & "\" & FileNames(i)
If mMPEG.FileOK Then
Set myList = Me.lvwFile.ListItems.Add( _
, , FilePart(FileNames(i), NameOnly))
myList.SubItems(1) = mMPEG.Length
myList.Tag = FileNames(0) & "\" & FileNames(i)
myList.Selected = True
myList.EnsureVisible
End If
DoEvents
Next
End If

End Sub

Untuk Lebih Lengkapnya silahkan download disini