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.
Bedankt
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: