'
'|***************************************************************************|
'| BOUTON CmdCHEMIN pour le chemin de l'image |
'|***************************************************************************|
'
Private Sub CmdCHEMIN_Click()
Dim Photo
ChDir "c:\CUISINE\"
Photo = Application.GetOpenFilename("Fichiers (gif ou jpg, *.gif;*.jpg") '...|
If Photo = False Then Exit Sub '.............................................|
ImgPhoto.Picture = LoadPicture(Photo) '......................................|
ImgPhoto.Visible = True '....................................................|
CmdCHEMIN.Visible = False '..................................................|
TxtTITREIMAGE = Dir(Photo)
End Sub