Copier un chart dans le clipboard.

**Gualino** · 24/11/2011, 16h17

Bonjour a tous,

En m'aidant de ce post:
http://www.developpez.net/forums/d94...rol-clipboard/

J'essai de proposer à l'utilisateur de charger l'image du chart dans le clipboard:

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
Private Sub CopyYMDToClipBoard(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles YMDChart.MouseClick
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            MessageBox.Show("Copy Yaw Moment Diagram to ClipBoard?", "Copy to ClipBoard", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        End If
 
        If DialogResult = Windows.Forms.DialogResult.OK Then
 
            Clipboard.Clear()
 
            Using chartdata As System.IO.MemoryStream = New System.IO.MemoryStream
                YMDChart.SaveImage(chartdata, DataVisualization.Charting.ChartImageFormat.Bmp)
                chartdata.Seek(0, IO.SeekOrigin.Begin)
                Dim metafile As Imaging.Metafile = New Imaging.Metafile(chartdata)
                Clipboard.SetImage(metafile)
                'ClipboardMetafileHelper.PutEnhMetafileOnClipboard(Me.Handle, metafile)
            End Using
 
        End If
 
    End Sub

Je suis un peu dépassé par le code...

**Gualino** · 24/11/2011, 18h29

C'est ma condition qui était mauvaise!

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
Private Sub CopyYMDToClipBoard(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles YMDChart.MouseClick
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
 
            Dim Result As New DialogResult
            Result = MessageBox.Show("Copy Yaw Moment Diagram to ClipBoard?", "Copy to ClipBoard", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
 
            If Result = System.Windows.Forms.DialogResult.OK Then
 
                Clipboard.Clear()
 
                Dim stream As New System.IO.MemoryStream()
                YMDChart.SaveImage(stream, Imaging.ImageFormat.Bmp)
                Dim bmp As New Bitmap(stream)
                Clipboard.SetDataObject(bmp)
 
            End If
 
        End If
 
    End Sub