cs_lea75
Messages postés54Date d'inscriptionvendredi 30 juillet 2004StatutMembreDernière intervention28 août 2004
-
27 août 2004 à 11:08
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
27 août 2004 à 22:26
Bonjour à tous,
Je découvre les common dialog et j'ai un petit souci.
J'ai dans ma feuille un bouton de commande "cmdchangerphoto"
et une image "imgphoto".
J'aimerais que quand j'appuie sur mon cmdchangerphoto, une boite de dialogue s'ouvre dans mon répertoire C:\...\images et que quand j'appuie sur "ouvrir" de ma boite de dialogue, la photo de ma feuille change et le mette en mémoire.
Jai réussi à faire changer de photo mais chaque fois que j'execute mon programme, il ne retient pas la photo, il revient à la photo initiale.
Voici mon code :
Private Sub cmdchangerphoto_Click()
Dim bln As Boolean
On Error GoTo trtErreur
bln = False
dlgtest.Flags = cdlOFNFileMustExist
dlgtest.Filter = " Fichiers images |*.bmp|" & "tous|* *"""
dlgtest.ShowOpen
If Not bln Then
imgphoto.Picture = LoadPicture(dlgtest.FileName)
End If
MsgBox "ok"
trtErreur:
If Err.Number = vbCancel Then
bln = True
MsgBox "cliquer sur annuler"
Else
MsgBox Err.Description
End If
End Sub
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 27 août 2004 à 12:12
Voila un bout de code utilisatn la base de registres :
Private Sub Form_Load()
Dim Image As String
Image = GetSetting(App.Title, "PARAM", "IMAGE")
If Image <> "" Then
Set imgphoto.Picture = LoadPicture(Image)
End If
End Sub
Private Sub cmdchangerphoto_Click()
CODE DE LA BOITE DE DIALOGUE
[...]
'# Une fois la nouvelle image affichée, on enregistre son chemin
SaveSetting App.Title, "PARAM", "IMAGE", dlgtest.FileName
[...]
End Sub