Filter om afb te laden (vb6)

[satriano17]

dag.
Ik kom met een aanvullend vraag van een opgelost topic van vorige dagen.
Ik wou van een map afbeeldingen met verschillend extensie (bmp, jpg) laden.
ik heb zo geprobeerd denkend dat een simpel formule was

Dim numafb As String
    numafb = text1.Text 
    Image1.Picture = LoadPicture(App.Path & "\AlleAfb\" & numafb  & ".jpg;.bmp")

maar nu blijkt dat niet alles goed geladen wordt.
Doe ik iets verkeerd?
dank u

 

[edmoor]

Je verwijst nu naar een bestand met 1 extensie, te weten: .jpg;.bmp
En die is er uiteraard niet.

 

[satriano17]

Ah daarom werkt het niet

zo ook niet

Image1.Picture = LoadPicture(App.Path & "\AlleAfb" & numafb  & ".jpg;" & ".bmp")

 

[edmoor]

Nee, dat is precies hetzelfde.
Je moet de exacte naam van het bestand inclusief de extensie opgeven.

 

[satriano17]

Nee, dat hoef niet. Edmoor. De bestandnaam is in Text1.text te vinden
zie begin topic

als text1.text="1" is dan is numafb=1 en de bestand is
1.jpg

als text1.text="2" is dan numafb=2 en de bestand is
2.jpg
enz
…

de JPG bestanden worden goed gevonden en geladen;
Ik heb probleem met BMP bestanden. omdat in de map AlleAfb zijn JPG en bmp bestanden aanwezig.

 

[edmoor]

Ja, dat hoeft wel.
Niet in text1.text maar wel in de LoadPicture functie.

 

[satriano17]

Moet ik dan zo doen?.

Dim numafb As String
    numafb = text1.Text 
    Image1.Picture = LoadPicture(App.Path & "\AlleAfb\" & numafb  & ".jpg")
 Image1.Picture = LoadPicture(App.Path & "\AlleAfb\" & numafb  & ".Bmp")

of je iets anders bedoelt. En hoe?

 

[edmoor]

Ik zou het zo proberen:

Dim numjpg As String
Dim numbmp As String

numjpg = App.Path & "\AlleAfb\" & text1.Text & ".jpg"
numbmp = App.Path & "\AlleAfb\" & text1.Text & ".bmp"
Image1.Picture = LoadPicture(IIf(Dir(numjpg) = "", numbmp, numjpg))

 

[satriano17]

Perfect Edmoor

anders dan ik dacht . Het werkt perfect !

Bedankt voor de moeite .

satriano

 

[edmoor]

Ok dan.
Het zal dan nog steeds fout gaan als zowel de .jpg als de .bmp niet bestaan.

 

[satriano17]

uiteraard.


de map is zeker vol maar

ik kan altijd
on error resume next
gebruiken (voor extreme gevallen)

Nogmaals bedankt