Piccola Guida di Visual Basic

DriveListBox, FileListBox, DirListBox
Questi oggetti permettono di vedere la lista di Dischi, Files e Cartelle del computer. Legati possono servire per aprire e salvare files su disco ecc...
Il segreto è legare bene gli eventi dei controlli. Innanzitutto bisognerà utilizzare i seguenti eventi ed inserire i seguenti codici:

Drive1_Change : Dir1.Path = Drive1.Drive
Dir1_Change : File1.Path = Dir1.Path
File1_Click : MioFile = File1.Path & "/" & File1.filename

Ci sono però parecchi errori da controllare:

Il disco selezionato nel DriveListBox può essere vuoto (se il disco è removibile come i floppy o i cd-rom);
Se il file selezionato si trova nella cartella radice del disco (es: C:/) File1.Path restituisce "C:/" che aggiunto alla / diventa "C://" che è un indirizzo sbagliato;

Per ovviare a questi errori si può:

Per il primo bisogna utilizzare una "gestione degli errori": qui si pone:
on error goto err
Dir1.Path = Drive1.Drive
disco = Drive1.Drive
exit sub
err:
Drive1.Drive=disco
(disco deve essere una variabile globale) In questo modo un percorso corretto viene salvato alla chiamata precedente e alla successiva si pone il vecchio percorso corretto.
Per il secondo caso basta scrivere:
if right(File1.Path,1)="/" then MioFile = File1.Path & File1.filename else MioFile = File1.Path & "/" & File1.filename
In questo modo la funzione right controlla se l'ultimo carattere è la barra oppure no.

L'oggetto Timer
Il timer consente di far eseguire una serie di istruzioni all'elaboratore ad ogni intervallo prestabilito. La principale proprietà del Timer è Interval: questa imposta l'intervallo fra una esecuzione e l'altra della procedura espresso in millisecondi. Potete creare un orologio facilmente con questa istruzione eseguita all'interno di un Timer con Interval=1000:

Label1.Caption = Time

L'altra importantissima proprietà e Enabled (True o False). Il Timer infatti funziona solo se questa proprietà è impostata su True.