une image dans un msflexgrid

Bonsoir,

je souhaiterai créer une image puis l'afficher dans une cellule d'un MSFlexgrid.

J'ai donc une feuille avec mon MSFlexgrid et j'y ai ajouté une PictureBox que je masque (Visible=False).

Je dessine mon image en collant bout à bout des morceaux d'images stockées dans mon fichier ressources mais lorsque je veux rapatrier mon dessin dans ma cellule, rien ne se passe.
J'affiche ma PictureBox et je constate qu'elle est bien remplie par mon oeuvre donc cela ne vient pas de la méthode de dessin. je rempli la cellule avec:

Code:

---

1 2 3 4 5

MSF.Col=1 MSF.Row=1 MSF.ColWidth=PictureBox.Width MSF.RowHeight=PictureBox.Height Set MSF.CellPicture=PictureBox.Picture

---

et ben ma cellule (1,1) reste désespérément vide.

Merci de m'aider.


noune40

C:\WINDOWS\System32\MSFLXGRD.ocX
Contrôle Microsoft FlexGrid 6.0

Citation:

---

Envoyé par F2

Property ColWidth(index As Long) As Long
Membre de MSFlexGridLib.MSFlexGrid
Détermine la largeur de la colonne spécifiée, en twips. Non disponible actuellement.
Property RowHeight(index As Long) As Long
Membre de MSFlexGridLib.MSFlexGrid
Renvoie/définit la hauteur, en twips, de la ligne spécifiée. Non disponible actuellement.

---

Code:

---

1 2 3 4 5 6 7

'MSF.Col = 1 'MSF.Row = 1 'MSF.ColWidth = Picture1.Width 'MSF.RowHeight = Picture1.Height MSF.ColWidth(1) = Picture1.Width MSF.RowHeight(1) = Picture1.Height Set MSF.CellPicture = Picture1.Picture

---

Bonjour,

mea culpa, effectivement il y avait une erreur de syntaxe dans mon exemple de code.
Depuis j'ai trouvé la solution à mon problème:

Il suffit d'ajouter la ligne:

Code:

---

Picture1.Picture = Picture1.Image

---

avant:

Code:

---

Set MSF.CellPicture = Picture1.Picture

---

Merci ProgElecT pour ton aide.

noune40