Discussion :

[mactwist69]

Bonjour,

Je recherche le moyen de copier dans le presse-papier, une image PNG...
Pour qu'on puisse après le coller dans Paint par exemple, avec la transparence donc.

(Donc pas une copie du fichier en lui même, mais bien de l'image avec la transparence)

Est ce que quelqu'un sait si c'est possible...

Sur Google, je trouve des "astuces" avec BMP et makeTRansparency, mais ça ne marche pas...

Si quelqu'un à une idée, je suis preneur.

Merci d'avance

[Pol63]

https://social.msdn.microsoft.com/Forums/windows/en-US/d1ed37e6-3555-4fa0-8cff-82d4e03b21bf/copy-png-data-to-clipboard?forum=winforms
avec à priori une solution qui fonctionne


(googlage de clipboard.setdata png bytes)

[mactwist69]

Merci Pol63,

Hélas cela ne fonctionne pas.

J'ai essayé les deux méthodes, l'image est bien copiée, mais au lieu du fond transparent, j'ai un fond gris.
Je colle dans Excel... Et normalement il n'y a pas de problème avec Excel...

Voici les deux méthodes :

Code :

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

1
2
3
4
5
6
7
Dim image_s As Stream
image_s = File.Open("C:/Temp/Fichier.PNG", FileMode.Open)
 
Dim image_i As Image
image_i = Image.FromStream(image_s)
 
Clipboard.SetImage(image_i)

Code :

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

1
2
3
4
5
6
7
Dim bytes As Byte()
bytes = File.ReadAllBytes(Me.DTO_Vin.PathBouteille)
 
Dim s_stream As Stream = New MemoryStream(bytes)
 
Dim image_bitmap As New Bitmap(s_stream)
Clipboard.SetData(DataFormats.Bitmap, image_bitmap)

[wallace1]

bonsoir,

C est deja une tres mauvaise idée de vouloir utiliser paint pour verifier la transparence car paint ne gère pas la transparence !

EDIT : je dois avoir 2 methodes dans un projet qui gere la transparence bitmap et png ....faut que je le retrouve et je posterais ici.
++

[mactwist69]

Alors après quelques tests...

Les solution données plus haut, marchaient dans GIMP par exemple... mais pas dans excel, ce que j'avais besoin de faire.

Et bien j'ai trouvé une solution de contournement, un peu moche mais ma foi, ça fait le travail.

Charger l'image das un WebBrowser, et copier à partir de là.

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
Public Class Form1
    Private Sub LoadImage_Click(sender As Object, e As EventArgs) Handles LoadImage.Click
        If Me.OpenFileDialog_Reseau.ShowDialog = DialogResult.OK Then
 
            WebBrowser1.Navigate(New Uri(Me.OpenFileDialog_Reseau.FileName))
 
 
        End If
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Document.ExecCommand("SelectAll", False, vbNull)
        WebBrowser1.Document.ExecCommand("Copy", False, vbNull)
 
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.WebBrowser1.Visible = Not WebBrowser1.Visible
    End Sub
End Class