25 July 2014

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.


0 comments: