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
Bruno
Bon, j'ai fini par trouver la solution: il ne faut pas dessiner directement sur le picturebox, mais sur un bitmap. Ensuite le contenu du bitmap peut être copier dans le presse- papiers.
Exemple testé avec Word et Paint Shop:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'éffacement du contenu du presse-papiers My.Computer.Clipboard.Clear() 'création d'un bitmap Dim bmp As New System.Drawing.Bitmap(200, 200) 'création d'un graphics à partir du bitmap Dim g As Graphics = Graphics.FromImage(bmp) 'choix couleur de fond du bitmap g.FillRectangle(Brushes.White, New Rectangle(0, 0, 200, 200)) 'dessin d'une ligne noire g.DrawLine(Pens.Black, 0, 0, 100, 100) 'copie dans le presse-papiers My.Computer.Clipboard.SetImage(bmp)
End Sub
Bruno
Bon, j'ai fini par trouver la solution:
il ne faut pas dessiner directement sur le picturebox, mais
sur un bitmap.
Ensuite le contenu du bitmap peut être copier dans le presse-
papiers.
Exemple testé avec Word et Paint Shop:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'éffacement du contenu du presse-papiers
My.Computer.Clipboard.Clear()
'création d'un bitmap
Dim bmp As New System.Drawing.Bitmap(200, 200)
'création d'un graphics à partir du bitmap
Dim g As Graphics = Graphics.FromImage(bmp)
'choix couleur de fond du bitmap
g.FillRectangle(Brushes.White, New Rectangle(0, 0, 200, 200))
'dessin d'une ligne noire
g.DrawLine(Pens.Black, 0, 0, 100, 100)
'copie dans le presse-papiers
My.Computer.Clipboard.SetImage(bmp)
Bon, j'ai fini par trouver la solution: il ne faut pas dessiner directement sur le picturebox, mais sur un bitmap. Ensuite le contenu du bitmap peut être copier dans le presse- papiers.
Exemple testé avec Word et Paint Shop:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'éffacement du contenu du presse-papiers My.Computer.Clipboard.Clear() 'création d'un bitmap Dim bmp As New System.Drawing.Bitmap(200, 200) 'création d'un graphics à partir du bitmap Dim g As Graphics = Graphics.FromImage(bmp) 'choix couleur de fond du bitmap g.FillRectangle(Brushes.White, New Rectangle(0, 0, 200, 200)) 'dessin d'une ligne noire g.DrawLine(Pens.Black, 0, 0, 100, 100) 'copie dans le presse-papiers My.Computer.Clipboard.SetImage(bmp)
