从图表中保存图像

Saving image from a chart

我需要编写一个按钮来将用我的软件生成的图形保存为图像。我环顾四周,发现 Chart.SaveImage 命令,所以我将上述按钮编程如下:

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    SaveFileDialog2.Filter = "PNG Image (*.png*)|*.png|JPEG Image (*.jpg*)|*.jpg|Bitmap Image (*.bmp*)|*.bmp|TIFF Image (*.tiff*)|*.tiff"
    Select Case Path.GetExtension(SaveFileDialog2.FileName)
        Case ".png"
            Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Png)
        Case ".jpg"
            Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Jpeg)
        Case ".bmp"
            Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Bmp)
        Case ".tiff"
            Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Tiff)
    End Select
End Sub

在调试时,当我按下按钮时,它似乎没有被编程,因为在压力下似乎什么也没有发生。正如您从我的代码中可以理解的那样,我需要的是出现一个保存文件对话框,我可以选择保存图像的位置及其名称和格式。感谢您的任何回答或评论。最好的问候。

使用如下:

您忘记打电话给 SaveFileDialog2.ShowDialog。因此,如果不显示允许您选择路径的 SaveFileDialog window,则什么也不会发生。

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    SaveFileDialog2.Filter = "PNG Image (*.png*)|*.png|JPEG Image (*.jpg*)|*.jpg|Bitmap Image (*.bmp*)|*.bmp|TIFF Image (*.tiff*)|*.tiff"
    If SaveFileDialog2.ShowDialog = DialogResult.OK Then
        Select Case Path.GetExtension(SaveFileDialog2.FileName)
            Case ".png"
                Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Png)
            Case ".jpg"
                Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Jpeg)
            Case ".bmp"
                Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Bmp)
            Case ".tiff"
                Chart1.SaveImage(SaveFileDialog2.FileName, ChartImageFormat.Tiff)
        End Select
    End If
End Sub