时间戳

首页 > 解决方案 > 从图表中保存图像

vb.net - 从图表中保存图像

问题描述

我需要编写一个按钮来将使用我的软件生成的图形保存为图像。我环顾四周，找到了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

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

标签： vb.netchartssavefiledialogsave-image

解决方案

使用如下：

你忘记打电话了SaveFileDialog2.ShowDialog。因此，如果不显示SaveFileDialog允许您选择路径的窗口，则不会发生任何事情。

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

推荐阅读