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

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

请按以下方式使用：

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

窗口，什么也不会发生

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

---

它工作正常。保存图像时是否有提高图像分辨率的方法？请查看此处：。概念是一样的