Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

view tif image

Discussion in 'Information Technology' started by GhysBoy, Jul 28, 2006.

Tags:
  1. GhysBoy

    GhysBoy
    Expand Collapse
    Guest

    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
     
  2. Loading...

    Similar Threads Forum Date
    Islam Canadian Caucasian View on Punjabi: The Beautiful Language Interfaith Dialogues Mar 22, 2012
    Sikhism Scientific vision in SGGS and interfaith dialogue (A Review) Book Reviews & Editorials Dec 7, 2009
    Ashdoc's Movie Review---Force 2 Theatre, Movies & Cinema Nov 20, 2016
    Ashdoc's Movie Review---Rock On 2 Theatre, Movies & Cinema Nov 13, 2016
    Movies Alternate View - Review Of 'PROMETHEUS' Theatre, Movies & Cinema Nov 12, 2016

  3. Wayne-I-M

    Wayne-I-M
    Expand Collapse
    Guest

    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.


    --
    Wayne
    Manchester, England.



    "GhysBoy" wrote:

    > 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
    >
    >
    >
     
  4. bob

    bob
    Expand Collapse
    Guest

    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

    --
    _______________________________________________________
    DBPix 2.0: Add pictures to Access, Easily & Efficiently
    http://www.ammara.com/dbpix/access.html




    "GhysBoy" <gbaril@ville.becancour.qc.ca> wrote:
    >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
    >
    >
     

Share This Page