Copier un chart dans le clipboard.

Version imprimable

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:

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...

C'est ma condition qui était mauvaise!

Code:

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

24/11/2011, 17h42
tomlev

J'ai pas tout compris... c'est quoi le problème ?
24/11/2011, 17h44
Gualino

Citation:

Envoyé par tomlev

J'ai pas tout compris... c'est quoi le problème ?

Moi nonplus!:D

Mais c'est réglé,

If DialogResult = Windows.Forms.DialogResult.OK Then

Ne se vérifiait pas.
24/11/2011, 17h48
tomlev

En fait j'avais ouvert la page avant ta dernière réponse, et donc quand j'ai répondu j'ai pas vu qu'il y avait une nouvelle réponse...