VB6: DriveListBox, DirListBox, dan FileListBox Control

Kali ini penjelasan mengenai ketiga kontrol ini sepertinya lebih mengena jika langsung ke sample.
So... have a check \(◦'⌣'◦)/

Ini letak control pada toolbox.

Atur UI sebagai berikut lblPath adalah Label dan cmdShow adalah CommandButton

Code:
Private Sub drvDisplay_Change()
 dirDisplay.Path = drvDisplay.Drive
End Sub

Private Sub dirDisplay_Change()
 filDisplay.Path = dirDisplay.Path
End Sub

Private Sub cmdShow_Click()
 lblPath.Caption = "File Path:" & filDisplay.Path & " \" & filDisplay.FileName
End Sub

Runtime:

Click here if you like this article.