cursor

NAMA


Click here for Myspace Layouts

Minggu, 10 April 2011

Membuat Aplikasi Explorer Sederhana dengan Visual Basic [Pemula]

Membuat Aplikasi Explorer Sederhana dengan Visual Basic [Pemula]


Kali ini saya ingin memberitahu cara membuat list direktori sederhana menggunakan Visual Basic. Nah tampilannya seperti gambar di atas. hal pertama yang anda lakukan untuk membuat bentuk seperti itu adalah dengan menambahkan DriveListBox, lalu menambahkan DirListBox dan yang terakhir menambahkan FileListBox.
Nah, untuk membuat from itu berjalan, maka ditambahkan code. Kurang lebih codenya seperti ini

saya akan jelaskan satu per satu kegunaan dari codenya, yang pertama
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
code ini digunakan untuk mengubah daftar list Folder, misalnya kita ingin ganti dari Drive C:\ ke Drive D:\
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Kalau kode yang ini digunakan untuk mengubah daftar File yang ada di FileListBox, misalnya berpindah dari C:\ini ke C:\itu, maka daftar yang semula ditampilkan adalah file yang ada di C:\ini dan berubah ke C:\itu
Private Sub File1_Click()
MsgBox “Name: ” & File1.FileName & vbNewLine & _
“Size: ” & FileLen(File1.Path & “\” & File1.FileName)
End Sub
code ini digunakan untuk menampilkan Message seperti ini

File1.FileName adalah code yang digunakan untuk memanggil nama file yang sedang terpilih sedangkan
File1.Path adalah code yang digunakan untuk memanggil tempat file tersebut berada.
FileLen() adalah function yang digunakan untuk menghitung banyaknya byte yang ada pada file (ukuran file)
mungkin ada pertanyaan kenapa File1.Path & “\” & File1.FileName memakai & “\” &?
hal itu dikarenakan File1.Path tidak memiliki akhiran “\” dan bila tanpa “\” maka akan menjadi ex: C:\WindowsNotepad.exe padalah seharusnya C:\Windows\Notepad.exe
Nah, itulah langkah sederhana untuk membuat aplikasi Explorer sederhana dari Visual Basic.
Download Aplikasi Explorer Sederhana Visual Basic

2 komentar:

kak adh tutor lain tah bwt VB nya.

Posting Komentar

bye bye

Twitter Delicious Facebook Digg Stumbleupon Favorites More