view tif 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

 

[Wayne-I-M]

Do not use Tiff's. You should use a Bitmap in most ms office procedures as
this is what they are designed for. You can use the BMP to "hyper"link to
your Tiff in a seperate file if needed.

 

[bob]

TIFF Graphics Filter support was withdrawn in Office 2003. One solution that has been suggested is to
install the “Office XP Converter Pack” (which should still work in Office 2003). Microsoft withdrew the
XP Converter Pack from microsoft.com downloads (since it includes a potential security vulnerability) and
replaced it with the 2003 Conversion Pack (which does not include TIFF). Apparently it is possible to
request the XP version from PSS. Alternatively I was able to find a download at the address below (note
that although this is a Swiss site, the converter pack appears to be generic or English). You do not need
to subscribe (as suggested by the second page) – just wait a few seconds for the download to start:

http://www.pctip.ch/downloads/dl/21796.asp

Since this pack may contain a potential security vulnerability you should evaluate the impact and risk,
and perhaps test the pack on a test system (I can’t say whether you can select only the TIFF filter in
order to reduce or mitigate any risk).

An alternative approach is to try Stephen Lebans’ LoadJjpegGif sample, which shows how to use the GDI+
library to display TIFF:

http://www.lebans.com/loadjpeggif.htm