从图表中保存图像
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
我需要编写一个按钮来将用我的软件生成的图形保存为图像。我环顾四周,发现 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