Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Taille des images dans une cellule d'un MSHFLEXGRID

Taille des images dans une cellule d'un MSHFLEXGRID

7 réponses
Avatar
Crevecoeur Jérôme
Bonjour,

Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
mshflexgrid.


J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la taille de
l'image qui s'affiche.
Set fg.CellPicture = LoadPicture("C:\Icones\BeOS\APPS Info.ico",",
vbLPCustom, vbLPColor, 16, 16))

Y aurait-il une propriété qui m'aurait échappé?

Cordialement
--
----------------------------------------------------------------------------
--------------------
Crévecoeur Jérôme jerome.crevecoeur@acsinfo.fr

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
----------------------------------------------------------------------------
---------------------
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christophe
Salut,

A vue de nez si ça vient de MSflexgrid,car je n'utilise jamais de controle
MSqqchose.

Mais concernant l'image:
Tu vas avoir trés beaucoup de mal à augmenter la taille d'une icone qui est
un format d'image particulier !

Christophe Vergon

"Crevecoeur Jérôme" a écrit dans le message de
news: eeEf3I$
Bonjour,

Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
mshflexgrid.


J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la taille


de
l'image qui s'affiche.
Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
vbLPCustom, vbLPColor, 16, 16))

Y aurait-il une propriété qui m'aurait échappé?

Cordialement
--
--------------------------------------------------------------------------


--
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
--------------------------------------------------------------------------


--
---------------------




Avatar
Crevecoeur Jérôme
justement moi, je veux la diminuer ...
Car en plus le texte se supperpose avec l'image (sic)

--
----------------------------------------------------------------------------
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
----------------------------------------------------------------------------
---------------------
"Christophe" a écrit dans le message de
news:bulbaq$e5c$
Salut,

A vue de nez si ça vient de MSflexgrid,car je n'utilise jamais de controle
MSqqchose.

Mais concernant l'image:
Tu vas avoir trés beaucoup de mal à augmenter la taille d'une icone qui


est
un format d'image particulier !

Christophe Vergon

"Crevecoeur Jérôme" a écrit dans le message


de
news: eeEf3I$
> Bonjour,
>
> Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
> mshflexgrid.
>
>
> J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la taille
de
> l'image qui s'affiche.
> Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> vbLPCustom, vbLPColor, 16, 16))
>
> Y aurait-il une propriété qui m'aurait échappé?
>
> Cordialement
> --

--------------------------------------------------------------------------
--
> --------------------
> Crévecoeur Jérôme
>
> ACS INFORMATIQUE
> 122,rue du Château d'orgemont
> 49000 ANGERS
> Tel: 02 41 68 42 36 Fax: 02 41 68 42 48

--------------------------------------------------------------------------
--
> ---------------------
>
>




Avatar
Crevecoeur Jérôme
Merci de la réponse mais en BMP, j'ai le meme probléme impossible de changer
la taille de l'image qui apparait dans le Mshflexgrid

--
----------------------------------------------------------------------------
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
----------------------------------------------------------------------------
---------------------
"Christophe" a écrit dans le message de
news:bulhtn$l8u$
j'ai été un peu vite en disant augmenter, je voulais dire modifier la
taille.

Pour ce faire il faudrait que tu transformes l'icone en bitmap.

Christophe Vergon

"Crevecoeur Jérôme" a écrit dans le message


de
news: #M6Usl$
> justement moi, je veux la diminuer ...
> Car en plus le texte se supperpose avec l'image (sic)
>
> --

--------------------------------------------------------------------------
--
> --------------------
> Crévecoeur Jérôme
>
> ACS INFORMATIQUE
> 122,rue du Château d'orgemont
> 49000 ANGERS
> Tel: 02 41 68 42 36 Fax: 02 41 68 42 48

--------------------------------------------------------------------------
--
> ---------------------
> "Christophe" a écrit dans le message de
> news:bulbaq$e5c$
> > Salut,
> >
> > A vue de nez si ça vient de MSflexgrid,car je n'utilise jamais de
controle
> > MSqqchose.
> >
> > Mais concernant l'image:
> > Tu vas avoir trés beaucoup de mal à augmenter la taille d'une icone


qui
> est
> > un format d'image particulier !
> >
> > Christophe Vergon
> >
> > "Crevecoeur Jérôme" a écrit dans le


message
> de
> > news: eeEf3I$
> > > Bonjour,
> > >
> > > Je n'arrive pas à modifier la taille de l'image dans une celulle


d'un
> > > mshflexgrid.
> > >
> > >
> > > J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la
taille
> > de
> > > l'image qui s'affiche.
> > > Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> > > vbLPCustom, vbLPColor, 16, 16))
> > >
> > > Y aurait-il une propriété qui m'aurait échappé?
> > >
> > > Cordialement
> > > --
> >
>

--------------------------------------------------------------------------
> > --
> > > --------------------
> > > Crévecoeur Jérôme
> > >
> > > ACS INFORMATIQUE
> > > 122,rue du Château d'orgemont
> > > 49000 ANGERS
> > > Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
> >
>

--------------------------------------------------------------------------
> > --
> > > ---------------------
> > >
> > >
> >
> >
>
>




Avatar
Christophe
j'ai été un peu vite en disant augmenter, je voulais dire modifier la
taille.

Pour ce faire il faudrait que tu transformes l'icone en bitmap.

Christophe Vergon

"Crevecoeur Jérôme" a écrit dans le message de
news: #M6Usl$
justement moi, je veux la diminuer ...
Car en plus le texte se supperpose avec l'image (sic)

--
--------------------------------------------------------------------------


--
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
--------------------------------------------------------------------------


--
---------------------
"Christophe" a écrit dans le message de
news:bulbaq$e5c$
> Salut,
>
> A vue de nez si ça vient de MSflexgrid,car je n'utilise jamais de


controle
> MSqqchose.
>
> Mais concernant l'image:
> Tu vas avoir trés beaucoup de mal à augmenter la taille d'une icone qui
est
> un format d'image particulier !
>
> Christophe Vergon
>
> "Crevecoeur Jérôme" a écrit dans le message
de
> news: eeEf3I$
> > Bonjour,
> >
> > Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
> > mshflexgrid.
> >
> >
> > J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la


taille
> de
> > l'image qui s'affiche.
> > Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> > vbLPCustom, vbLPColor, 16, 16))
> >
> > Y aurait-il une propriété qui m'aurait échappé?
> >
> > Cordialement
> > --
>

--------------------------------------------------------------------------
> --
> > --------------------
> > Crévecoeur Jérôme
> >
> > ACS INFORMATIQUE
> > 122,rue du Château d'orgemont
> > 49000 ANGERS
> > Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
>

--------------------------------------------------------------------------
> --
> > ---------------------
> >
> >
>
>




Avatar
Pascal B.
Salut,

Passe par une PictureBox intermédiaire (Visibleúlse, AutoRedraw = True,
Width & Height = Taille image)

Dim Pic as Picture
Set Pic = LoadPicture("C:IconesBeOSAPPS Info.ico")
Picture1.PaintPictutre Pic, 0, 0, Picture1.ScaleWidth,
Picture1.ScaleHeight
Set fg.CellPicture = Picture1.IMAGE

Pascal


"Crevecoeur Jérôme" a écrit dans le message
de news:eeEf3I$
> Bonjour,
>
> Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
> mshflexgrid.
>
>
> J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la taille
de
> l'image qui s'affiche.
> Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> vbLPCustom, vbLPColor, 16, 16))
>
> Y aurait-il une propriété qui m'aurait échappé?
>
> Cordialement
> --


--------------------------------------------------------------------------


--
> --------------------
> Crévecoeur Jérôme
>
> ACS INFORMATIQUE
> 122,rue du Château d'orgemont
> 49000 ANGERS
> Tel: 02 41 68 42 36 Fax: 02 41 68 42 48


--------------------------------------------------------------------------


--
> ---------------------
>
>
Avatar
Crevecoeur Jérôme
Parfait ça marche.

Je m'y suis perdu un peu mais ça marche.

Vaux mieux peut-être redimensionner les images pour avoir la taille Exacte
de ce que l'on désire.

Merci à vous deux

--
----------------------------------------------------------------------------
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
----------------------------------------------------------------------------
---------------------
"Pascal B." <panthere_rose_AROBASEhotmailPOINTcom> a écrit dans le message
de news:
Salut,

Passe par une PictureBox intermédiaire (Visibleúlse, AutoRedraw True,
Width & Height = Taille image)

Dim Pic as Picture
Set Pic = LoadPicture("C:IconesBeOSAPPS Info.ico")
Picture1.PaintPictutre Pic, 0, 0, Picture1.ScaleWidth,
Picture1.ScaleHeight
Set fg.CellPicture = Picture1.IMAGE

Pascal


"Crevecoeur Jérôme" a écrit dans le message
de news:eeEf3I$
> Bonjour,
>
> Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
> mshflexgrid.
>
>
> J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la


taille
de
> l'image qui s'affiche.
> Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> vbLPCustom, vbLPColor, 16, 16))
>
> Y aurait-il une propriété qui m'aurait échappé?
>
> Cordialement
> --



--------------------------------------------------------------------------
--
> --------------------
> Crévecoeur Jérôme
>
> ACS INFORMATIQUE
> 122,rue du Château d'orgemont
> 49000 ANGERS
> Tel: 02 41 68 42 36 Fax: 02 41 68 42 48



--------------------------------------------------------------------------
--
> ---------------------
>
>




Avatar
Christophe
D'où l'utilité de ne pas employer des MSmachin car des que tu veux faire un
truc pas prévu il te faut passer par des solutions intermediaires comme
celle-ci.
Personellement j'utilise un pictureBox où j'écris mes données en ligne et
colonne et en coordonnées.

Christophe VERGON

NB: en lisant la réponse de Zoury au post "image", la piste s'éclairait,
bravo Pascal!

"Pascal B." <panthere_rose_AROBASEhotmailPOINTcom> a écrit dans le message
de news:
Salut,

Passe par une PictureBox intermédiaire (Visibleúlse, AutoRedraw True,
Width & Height = Taille image)

Dim Pic as Picture
Set Pic = LoadPicture("C:IconesBeOSAPPS Info.ico")
Picture1.PaintPictutre Pic, 0, 0, Picture1.ScaleWidth,
Picture1.ScaleHeight
Set fg.CellPicture = Picture1.IMAGE

Pascal


"Crevecoeur Jérôme" a écrit dans le message
de news:eeEf3I$
> Bonjour,
>
> Je n'arrive pas à modifier la taille de l'image dans une celulle d'un
> mshflexgrid.
>
>
> J'ai essayé en faisant ça et rien n'y fait, cela ne change pas la


taille
de
> l'image qui s'affiche.
> Set fg.CellPicture = LoadPicture("C:IconesBeOSAPPS Info.ico",",
> vbLPCustom, vbLPColor, 16, 16))
>
> Y aurait-il une propriété qui m'aurait échappé?
>
> Cordialement
> --



--------------------------------------------------------------------------
--
> --------------------
> Crévecoeur Jérôme
>
> ACS INFORMATIQUE
> 122,rue du Château d'orgemont
> 49000 ANGERS
> Tel: 02 41 68 42 36 Fax: 02 41 68 42 48



--------------------------------------------------------------------------
--
> ---------------------
>
>