Jumat, 06 November 2009

Video Player Menggunakan Visual BAsic


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






1 komentar:

Anonim mengatakan...

sangat bagus saya suka. akan tetapi kalau bisa seperti aplikasi media player GOM

Labels

 

Copyright 2018 All Rights Reserved @ Sistem Informasi|Fasilkom Unsri| Mkom Budi Luhur |