Dans un FlexGrid copier une image d'une Cellule a une autre
2 réponses
Fournier Raymond
Bonjour a tous,
Est-ce possible de copier une image d'une cellule d'un FlexGrid dans
une autre cellule sans passer par un pictureBox ou est-ce la bonne
façon ?
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
Jacques93
Bonjour Fournier Raymond Fournier Raymond a écrit :
Bonjour a tous, Est-ce possible de copier une image d'une cellule d'un FlexGrid dans une autre cellule sans passer par un pictureBox ou est-ce la bonne façon ?
Tu peux passer par une variable :
Dim Pic As IPictureDisp
With Me.MSFlexGrid1 ' Cellule source contenant l'image .Row = 1 .Col = 1 Set Pic = Me.MSFlexGrid1.CellPicture ' Cellule destination .Row = 1 .Col = 2 Set Me.MSFlexGrid1.CellPicture = Pic End With
-- Cordialement,
Jacques.
Bonjour Fournier Raymond
Fournier Raymond a écrit :
Bonjour a tous,
Est-ce possible de copier une image d'une cellule d'un FlexGrid dans une
autre cellule sans passer par un pictureBox ou est-ce la bonne façon ?
Tu peux passer par une variable :
Dim Pic As IPictureDisp
With Me.MSFlexGrid1
' Cellule source contenant l'image
.Row = 1
.Col = 1
Set Pic = Me.MSFlexGrid1.CellPicture
' Cellule destination
.Row = 1
.Col = 2
Set Me.MSFlexGrid1.CellPicture = Pic
End With
Bonjour Fournier Raymond Fournier Raymond a écrit :
Bonjour a tous, Est-ce possible de copier une image d'une cellule d'un FlexGrid dans une autre cellule sans passer par un pictureBox ou est-ce la bonne façon ?
Tu peux passer par une variable :
Dim Pic As IPictureDisp
With Me.MSFlexGrid1 ' Cellule source contenant l'image .Row = 1 .Col = 1 Set Pic = Me.MSFlexGrid1.CellPicture ' Cellule destination .Row = 1 .Col = 2 Set Me.MSFlexGrid1.CellPicture = Pic End With