aartvg
Gebruiker
- Lid geworden
- 22 jul 2003
- Berichten
- 321
Geplaatst door the_dannyboy
En, doet het probleem zich ook bij jou voor?
En dan nog ff een vraagje: Ik heb een image, deze kan worden veranderd door d'r op te klikken. Hoe krijg ik .....
moet je eve de kode naar dezen veranderen
Private Sub Image1_Click()
With CommonDialog1
.Filter = "Logo's (*.jpg; *.gif; *.bmp; *.jpeg; *.pcx)| *.jpg; *.gif; *.bmp; *.jpeg; *.pcx"
.DialogTitle = "Selecteer een nieuw logo"
.ShowOpen
If Err Then
MsgBox "Foutje" 'Dit werkt dus niet !!
else
Image1.Picture = LoadPicture(.FileName)
end if
End With
End Sub
[B/]