Sabtu, 06 April 2013

Contoh Program Menggunakan Objek Drivelistbox, Dirlistbox Dan Filelistbox Pada Microsoft Visual Basic 6.0



Sebelum kita masuk dalam pembuatan program, ada baiknya saya menjelaskan secara singkat mengenai penggunaan (aplikasi) objek DriveListBox, DirListBox dan FileListBox pada Microsoft Visual Basic 6.0, yaitu sbb :

DriveListBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan drive pada suatu harddisk yang terpasang pada sebuah komputer.
DirLsitBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan direktori atau folder dalam sebuah drive.
FileListBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan file pada suatu direktori atau folder.
 
Langkah – langkah pembuatan program dengan menggunakan objek DriveListBox, DirListBox dan FileListBox adalah sbb :
·     Buka proyek Standard EXE yang baru
·     Disain tampilan form seperti gambar berikut dengan menggunkan objek DriveListBox, DirListBox dan FileListBox, TextBox dan Label
 

   Gbr 1


Gbr 2


·    Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol
Properties
Pengaturan
TextBox1
Name       
Caption     
txt_FileName
(dikosongkan)
CommandButton1
Name        
Caption    
cmd_exit
E&xit
Label1
Caption
File Name :

·   Ketik kode Program (Source Code) dibawah ini :
Dim FileName As String
Private Sub cmd_exit_Click()
End
End Sub
Private Sub Dir1_Change()
Me.File1.Path = Me.Dir1.Path
End Sub
Private Sub Drive1_Change()
Me.Dir1.Path = Me.Drive1.Drive
End Sub
Private Sub File1_Click()
If (Right(Me.File1.Path, 1) = "\") Then
    FileName = Me.File1.Path + Me.File1.FileName
    Else
    FileName = Me.File1.Path + "\" + Me.File1.FileName
End If
Me.txt_FileName.Text = FileName
End Sub

·     Jalankan program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start
·     Hasilnya Ketika program dijalankan



 
 
Gbr 3


Download Program DriveListBox_DirListBox_FileListBox  disini