view image

[GhysBoy]

Hi all,

I'm write this code to load image.. In a jpg format is ok ... what can I do
to work whit format tif
thanks for your help



Private Sub Form_Current()
Dim strBase As String, strChemin As String
On Error GoTo err_plan
Me.Image.Picture = ""
' Répertoire de base
strBase = CurrentProject.Path & "\Plans livre renvoi\"

' Chemin complet de l'image
strChemin = strBase & "1-0001.tif"

' Charger l'image
Me.Image.Picture = strChemin

exit_AfficherCroquis:
Exit Sub
err_plan:
Me.Image.Picture = ""
Resume exit_AfficherCroquis
End Sub