VB6-Een correct CommonDialog filter opstellen

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Met deze routine wil ik enkel bmp, jpg,jpeg afb laden.
Nu werkt niet correct.
Waar moet dan Commondialog1.filter staan?
Als ik op 'Open' click wil ik alleen afbeeldingen zien en geen ander bestand zoals text enz.
Code:
Dim Slas[h As String

If Right(App.Path, 1) <> "\" Then Slash = "\"
[COLOR="#FF0000"]CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg[/COLOR]
CommonDialog1.InitDir = App.Path & Slash & "Attivators"
CommonDialog1.FileName = App.Path & Slash & "Attivators" & "\*.*"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)

Bedankt
 
Laatst bewerkt door een moderator:
Op zich lijkt me dat goed, op deze na:
Code:
Dim Slas[COLOR="#FF0000"][[/COLOR]h As String
 
Met een filter moet er wel wat te kiezen zijn, anders heeft een filter geen nut.
Code:
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg[COLOR=#ff0000]|All|*.*[/COLOR]"

Edit:
Bovenstaande code heeft geen nut, omdat
Code:
CommonDialog1.FileName = App.Path & Slash & "Attivators" & "\*.*"
alles ongedaan maakt.
 
Laatst bewerkt:
Dat gedoe met die slash kan je ook achterwege laten:
Code:
With CommonDialog1
    .Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
    .InitDir = App.Path & "\Attivators"
    .ShowOpen
    If .FileName <> "" Then Image1.Picture = LoadPicture(.FileName)
End With
 
Veeel beter, Edmoor. sneller en doeltreffend.
Met die slash werkt de filter ook niet altijd. Daarom ad ik gepost.
Ik bewaar het voor
ook andere programma's.

Bedankt
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan