- Programmazione » Programmi » Visual Basic 6 - Guida e manuale pratico al linguaggio di programmazione
DirListBox, DriveListBox, FileListBox
Vediamo adesso i controlli avanzati di VisualBasic, cioè quelli che permettono qualsiasioperazione. Questi controlli presenti nella versioneProfessional o Enterprise di Visual Basic 6, permettono diaccedere a molte delle interfacce standard di Windows tramitele quali si possono aprire file, visualizzare immagini edeseguire molte altre operazioni.
DirListBox
Questo controllo consente di visualizzarenell'applicazione il contenuto ed il percorso di filecontenuti in cartelle (directory) in base alla loro strutturagerarchica. Anche questo controllo ha molte proprietà(tra le principali ricordiamo: path, list, listCount,listIndex) per le quali vi invitiamo a condurre esperimenti,e che possono essere impostate da codice, mediante lasintassi generale oggetto.nomeproprietà , dove oggetto èil nome del controllo.
Ecco un esempio di codice che mostra ilcontenuto di una directory:
Sub ShowPath( )LblDrive.Caption = "Il percorso corrente è " + dirList.PathEnd SubPrivate Sub DirList_Change( )ShowPathEnd SubPrivate Sub drvDrive_Change( )DrvDrive = drvDrive.List(drvDrive.ListIndex)DirList.Path = drvDrive.DriveShowPathEnd SubPrivate Sub Form_Load( )ShowPathEnd Sub
In questo codice, la procedura ShowPath( )visualizza, trasferendone il valore alla proprietàCaption del controllo Etichetta, il percorso attivo.
DriveListBox
Il controllo Drive List Box (Casella diRiepilogo) permette all'utente, in fase di esecuzione delprogramma, di selezionare un disco. (viene utilizzato peresempio per visualizzare tutte le unità disco delsistema). Le proprietà possono essere impostate dallafinestra di dialogo apposita oppure da codice mediantel'istruzione generica: oggetto.nomeproprietà , dove oggetto èil nome del controllo.
Viene riportato un esempio di codice perl'implementazione di questo controllo:
Sub ShowDrive( )LblDrive.Caption = "Il disco corrente è " + drvDrive.DriveEnd SubPrivate Sub drvDrive_Change( )ShowDriveEnd SubPrivate Sub Form_Load( )ShowDriveEnd Sub
FileListBox
Permette di visualizzare, in fase diesecuzione, l'elenco dei file di un determinato percorsodi memorizzazione. Le proprietà possono essereimpostate sia dalla apposita finestra, sia da codice,mediante la sintassi generica: oggetto.nomeproprietà , dove oggetto èil nome assegnato al controllo.
Esempio di codice:
Sub ShowPath(BackSlash As String)LblDrive.Caption = "Il file corrente è " + dirList.List(dirList.ListIndex) + BackSlash + filList.FilenameEnd SubPrivate Sub dirList_Change( )FilList.Filename = dirList.PathShowPath " "End SubPrivate Sub drvDrive_Change( )DrvDrive.Drive = drvDrive.List(drvDrive.ListIndex)DirList.Path = drvDrive.DriveShowPath " "End SubPrivate Sub filList_Click( )ShowPath ""End SubPrivate Sub Form_Load( )ShowPath " "End Sub