Les 10 - Drive , dir en file list box.

We gaan nu een paar tools uit de toolbox behanden die temaken hebben met files.

Zet op je form een drive, dir en file list box zoals hieronder.

Om ze samen telaten werken moet je de volgende code ingeven.

onder de Drive box :

Private Sub Drive1_Change()

dir1.path = drive1.drive

end sub

Ziet U dat het regeltje van de sub geen click is maar change

Dit houd in dat wanneer drive1 verandert dan wordt de code uitgevoerd.

dir1 is de naam van de DirListBox .

Onder de DirListbox zet u de volgende code

File1.path = dir1.path

Dus wanneer dir1 verandert wordt File1 ook aan gepast.

Selecteer de File List Box en ga naar properties.

Met de optie Pattern kunt u bepalen welke files er zichtbaar worden in de FileListBox.

Wanneer u meerdere bestands typen weer wilt geven doe u het volgende :

File1.Pattern = "*.txt;*.exe"

Vergeet het scheidings teken ( ; ) niet

Wanneer je wilt dat er iets gebeurt als je dubbel klikt op een bestand doe dan het volgende.

Dubbelklik op de FileListBox zodat je bij de code komt.

Nu sta je automatisch hier. 

Private Sub File1_Click()

Ga naar boven in het form naar de dropdown menu waar het woord “click” instaat en open hem. Selecteer vervolgens dblclick.

Om te laten zien welke file u geselecteerd heeft gebruiken we even een hulp tool. namelijk een messagebox. in v.b. MsgBox.

We gaan eerst kijken welke file er geselecteerd is:

Private Sub File1_DblClick()

dim a as integer

for a = 0 to file1.listcount - 1

if file1.selected(a) = true then

msgbox(file1.list(a))

endif

next a

end sub

file1.listcount -1 is een beetje vreemde regel maar eigenlijk logisch voor iemand die langer programmeerd.

file1 = de list box

listcount = het aantal items die in de box staan

maar omdat er altijd van 0 tot b.v. 10 geteld wordt en niet vanaf 1. Wordt er 1 afgetrokken.

Met een MsgBox kunt u allerlij medelingen op het scherm zichtbaar maken.

MsgBox( wat voor tekst )

Voorbeeld file uitlezen

 Zet File1  = > file1pattern = “*.txt”

maak een listbox. ( geen file list box maar een gewone listbox )

Zet dit programma onder de File ListBox

Private Sub File1_DblClick()

dim a as integer

dim regel as string

dim best_in, pad as string

pad = dir1.path & “\”

for a = 0 to file1.listcount - 1

if file1.selected(a) = true then

best_in = pad & file1.list(a)

open best_in for input as #1

line input #1 , regel

do while not eof(1)  ‘ eof(1) betekent End Of File ( filenummer )

     list1.additem regel  ‘ voegt inhoud van var regel aan List1
                      ‘ toe

line input #1 , regel

loop

List1.AddItem regel  ‘ De laatste regel die ingelezen is bevatte
 ‘ de EOF en daarom was de while loop gestopt, maar die
‘ laatste regel moet nog wel toegevoegd worden aan de Listbox


close(1)

doevents

endif

next a

end sub

Dit programma opent een txt bestand en leest hem uit en plaatst iedere regel in een list box.

Ga verder met Les 11

copyright © 2000 - 2008 Majosoft
www.majosoft.com
Hosted by www.yourhosting.nl