Discussion :

[leo5593]

Cmment mettre des images ou icon dans les cases d'un MSFlexgrid ?

merci

leo

[zazaraignée]

Salut

Comme dit méphisto, un p'tit bonjour serait apprécié. Un titre plus explicite serait plus adéquat aussi.

Voici une méthode pour placer une image dans un MSFlexGrid. Place un flexgrid et un contrôle Image sur une Feuille:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
    With Image1
        ' masquer le composant Image1
        .Visible = False
        ' charger une image (ici un metafichier)
        .Picture = LoadPicture _
        ("c:/Program Files/Microsoft Visual Studio/Common/Graphics/Metafile/Business/MONEY.WMF")
        ' diminuer les dimensions du metafichier
        .Width = .Width / 5
        .Height = .Height / 5
    End With
    With MSFlexGrid1
        ' sélectionner une cellule
        .Col = 0
        .Row = 0
        ' adapter ses dimensions au métafichier
        .ColWidth(0) = Image1.Width
        .RowHeight(0) = Image1.Height
        ' placer l'image
        Set .CellPicture = Image1.Picture
    End With
End Sub