Discussion :

[noune40]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[noune40]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Picture1.Picture = Picture1.Image

avant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MSF.CellPicture = Picture1.Picture

Merci ProgElecT pour ton aide.

noune40