Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== > Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >
Merci à l'avance de votre aide,
Pierre
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== > Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >
Merci à l'avance de votre aide,
Pierre
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== > Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >
Merci à l'avance de votre aide,
Pierre
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
Bonjour pierre.rivet,
<http://www.xtremevbtalk.com/showthread.php?tw960>
Bonjour pierre.rivet,
<http://www.xtremevbtalk.com/showthread.php?tw960>
Bonjour pierre.rivet,
<http://www.xtremevbtalk.com/showthread.php?tw960>
salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" a écrit dans le message de news:
47c40620$0$883$Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>
Merci à l'avance de votre aide,
Pierre
salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de news:
47c40620$0$883$ba4acef3@news.orange.fr...
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>
Merci à l'avance de votre aide,
Pierre
salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" a écrit dans le message de news:
47c40620$0$883$Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>
Merci à l'avance de votre aide,
Pierre
Bonsoir Driss,
Merci de ta réponse.
Je viens de télécharger le logiciel en question, qui a l'air très complet.
Mais ça ne répond pas tout à fait à mon souhait.
L'idéal aurait été un contrôle à insérer dans une feuille *.frm
Je suis obligé de rajouter dans mon "empaquetage" le fichier setup de
xnview...
Même après avoir renommé un fichier *.tif en *.jpg ou *.gif j'ai toujours
le même message d'erreur.
Ou alors tu as une idée derrière la tête que je n'ai pas bien comprise,
parce que tu parles de "contrôle pour afficher les différents types
d'images".
Merci encore, si tu as des précisions supplémentaires,
Pierre
"Driss HANIB" a écrit dans le message de news:
%salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" a écrit dans le message de news:
47c40620$0$883$Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les
fichiers *.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >>> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>>
Merci à l'avance de votre aide,
Pierre
Bonsoir Driss,
Merci de ta réponse.
Je viens de télécharger le logiciel en question, qui a l'air très complet.
Mais ça ne répond pas tout à fait à mon souhait.
L'idéal aurait été un contrôle à insérer dans une feuille *.frm
Je suis obligé de rajouter dans mon "empaquetage" le fichier setup de
xnview...
Même après avoir renommé un fichier *.tif en *.jpg ou *.gif j'ai toujours
le même message d'erreur.
Ou alors tu as une idée derrière la tête que je n'ai pas bien comprise,
parce que tu parles de "contrôle pour afficher les différents types
d'images".
Merci encore, si tu as des précisions supplémentaires,
Pierre
"Driss HANIB" <dhanib@club-internet.fr> a écrit dans le message de news:
%23rurJ8HeIHA.4712@TK2MSFTNGP04.phx.gbl...
salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de news:
47c40620$0$883$ba4acef3@news.orange.fr...
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les
fichiers *.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >>> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>>
Merci à l'avance de votre aide,
Pierre
Bonsoir Driss,
Merci de ta réponse.
Je viens de télécharger le logiciel en question, qui a l'air très complet.
Mais ça ne répond pas tout à fait à mon souhait.
L'idéal aurait été un contrôle à insérer dans une feuille *.frm
Je suis obligé de rajouter dans mon "empaquetage" le fichier setup de
xnview...
Même après avoir renommé un fichier *.tif en *.jpg ou *.gif j'ai toujours
le même message d'erreur.
Ou alors tu as une idée derrière la tête que je n'ai pas bien comprise,
parce que tu parles de "contrôle pour afficher les différents types
d'images".
Merci encore, si tu as des précisions supplémentaires,
Pierre
"Driss HANIB" a écrit dans le message de news:
%salut pierre,
regarde un fichier xnview : controle pour afficher les différents types
d'images
http://pagesperso-orange.fr/pierre.g/xnview/frxnview.html
Driss
"pierre.rivet" a écrit dans le message de news:
47c40620$0$883$Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les
fichiers *.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
==================================================================== >>> Public Sub AFFICHERADIO(TextCheminImage As String)
On Error GoTo Information
Image1.Picture = LoadPicture(TextCheminRadio)
Picture1.Picture = LoadPicture(TextCheminRadio)
Image1.Top = 0
Image1.Left = 0
Largeur = Picture1.Width
Hauteur = Picture1.Height
KL = 7070 / Largeur
KH = 10000 / Hauteur
If KL <= KH Then
K = KL
Else
K = KH
End If
Image1.Width = Largeur * K
Image1.Height = Hauteur * K
Exit Sub
Information:
MsgBox Err.Description
TextCheminRadio = ""
End Sub
================================================== >>>
Merci à l'avance de votre aide,
Pierre
Jacques93 a oublié de préciser :Bonjour pierre.rivet,
[...]<http://www.xtremevbtalk.com/showthread.php?tw960>
que c'est le fichier "gdiplus2.zip" dont le lien est sur cette page qui
est ici intéressant, il contient un module de classe et une librairie de
type (.tlb) pour GDI++
--
Cordialement,
Jacques.
Jacques93 a oublié de préciser :
Bonjour pierre.rivet,
[...]
<http://www.xtremevbtalk.com/showthread.php?tw960>
que c'est le fichier "gdiplus2.zip" dont le lien est sur cette page qui
est ici intéressant, il contient un module de classe et une librairie de
type (.tlb) pour GDI++
--
Cordialement,
Jacques.
Jacques93 a oublié de préciser :Bonjour pierre.rivet,
[...]<http://www.xtremevbtalk.com/showthread.php?tw960>
que c'est le fichier "gdiplus2.zip" dont le lien est sur cette page qui
est ici intéressant, il contient un module de classe et une librairie de
type (.tlb) pour GDI++
--
Cordialement,
Jacques.
Bonjour pierre.rivet,
pierre.rivet a écrit :Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
[...]
En complément de la proposition de Driss HANIB, le format d'image TIF
n'est pas reconnu de base par VB, mais on peux y accéder via les api's de
GDI+. Quelques pistes :
<http://www.vbfrance.com/code.aspx?ID9804#>
<http://www.xtremevbtalk.com/showthread.php?tw960>
NB : une inscription est nécessaire pour télécharger les sources sur ces
sites, mais c'est totalement gratuit :-)
--
Cordialement,
Jacques.
Bonjour pierre.rivet,
pierre.rivet a écrit :
Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
[...]
En complément de la proposition de Driss HANIB, le format d'image TIF
n'est pas reconnu de base par VB, mais on peux y accéder via les api's de
GDI+. Quelques pistes :
<http://www.vbfrance.com/code.aspx?ID9804#>
<http://www.xtremevbtalk.com/showthread.php?tw960>
NB : une inscription est nécessaire pour télécharger les sources sur ces
sites, mais c'est totalement gratuit :-)
--
Cordialement,
Jacques.
Bonjour pierre.rivet,
pierre.rivet a écrit :Bonjour à tous,
Je cherche le moyen d'afficher un fichier *.tif dans une page de VB
Avec les contrôles Image et PictureBox, on affiche très bien les fichiers
*.bmp, *.jpg et *.gif
mais avec les images *.tif l'ordinateur me renvoie le message "Image
incorrecte dans la procédure suivante:
[...]
En complément de la proposition de Driss HANIB, le format d'image TIF
n'est pas reconnu de base par VB, mais on peux y accéder via les api's de
GDI+. Quelques pistes :
<http://www.vbfrance.com/code.aspx?ID9804#>
<http://www.xtremevbtalk.com/showthread.php?tw960>
NB : une inscription est nécessaire pour télécharger les sources sur ces
sites, mais c'est totalement gratuit :-)
--
Cordialement,
Jacques.
Bonjour Jacques et Driss,
J'ai testé cette fonction.
Elle fonctionne de façon impeccable pour afficher un fichier en *.tif
Merci du tuyau.
=================================================== > Private Sub Form_Load()
'FillRect App.Path & "tile.bmp", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'Impeccable
'FillRect App.Path & "screen.jpg", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile
FillRect App.Path & "ISIS.tif", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'ça fonctionne mais l'écran est rempli de
plusieurs images.
Me.Refresh
End Sub
=================================================== > Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Ce serait parfait.
Merci à l'avance, on se rapproche de la vérité,
Bonjour Jacques et Driss,
J'ai testé cette fonction.
Elle fonctionne de façon impeccable pour afficher un fichier en *.tif
Merci du tuyau.
=================================================== > Private Sub Form_Load()
'FillRect App.Path & "tile.bmp", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'Impeccable
'FillRect App.Path & "screen.jpg", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile
FillRect App.Path & "ISIS.tif", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'ça fonctionne mais l'écran est rempli de
plusieurs images.
Me.Refresh
End Sub
=================================================== > Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Ce serait parfait.
Merci à l'avance, on se rapproche de la vérité,
Bonjour Jacques et Driss,
J'ai testé cette fonction.
Elle fonctionne de façon impeccable pour afficher un fichier en *.tif
Merci du tuyau.
=================================================== > Private Sub Form_Load()
'FillRect App.Path & "tile.bmp", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'Impeccable
'FillRect App.Path & "screen.jpg", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile
FillRect App.Path & "ISIS.tif", Me.hdc, 0, 0, Me.ScaleWidth,
Me.ScaleHeight, WrapModeTile 'ça fonctionne mais l'écran est rempli de
plusieurs images.
Me.Refresh
End Sub
=================================================== > Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Ce serait parfait.
Merci à l'avance, on se rapproche de la vérité,
Bonjour,
Par contre, comment faire pour que la dimension de la page soit celle
de l'image ?
Bonjour,
Par contre, comment faire pour que la dimension de la page soit celle
de l'image ?
Bonjour,
Par contre, comment faire pour que la dimension de la page soit celle
de l'image ?
Jacques93 a écrit :Bonjour,
[...]Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Dans ma réponse précédente j'ai peut être mal compris, tu préfères peut
être redimensionner la feuille à la taille de l'image, plutôt que de
redimensionner l'image à la taille de la feuille.
Peux tu préciser ?
--
Cordialement,
Jacques.
Jacques93 a écrit :
Bonjour,
[...]
Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Dans ma réponse précédente j'ai peut être mal compris, tu préfères peut
être redimensionner la feuille à la taille de l'image, plutôt que de
redimensionner l'image à la taille de la feuille.
Peux tu préciser ?
--
Cordialement,
Jacques.
Jacques93 a écrit :Bonjour,
[...]Par contre, comment faire pour que la dimension de la page soit celle de
l'image ?
Dans ma réponse précédente j'ai peut être mal compris, tu préfères peut
être redimensionner la feuille à la taille de l'image, plutôt que de
redimensionner l'image à la taille de la feuille.
Peux tu préciser ?
--
Cordialement,
Jacques.