如果我现在新增一个名称为“另存为”的按钮，要实现点击“另存为”的按钮的时候，已经生成的雷达图可以保存到本地，并且保存为图片格式。
以下代码报错了。
' 在按钮的Click事件中添加：
Private Sub 另存为_Click(sender As Object, e As EventArgs) Handles 另存为.Click
Try
Dim saveDialog As New SaveFileDialog()
saveDialog.Filter = "PNG 图片|*.png|JPEG 图片|*.jpg|BMP 图片|*.bmp"
saveDialog.Title = "保存雷达图"
saveDialog.FileName = "RiskRadarChart"
saveDialog.DefaultExt = "png"
If saveDialog.ShowDialog() = DialogResult.OK Then
Dim c1Chart1 = Forms("风险雷达图").Controls("Chart1").BaseControl
' 根据选择的文件类型设置保存格式
Select Case saveDialog.FilterIndex
Case 1
c1Chart1.SaveImage(saveDialog.FileName, C1.Win.C1Chart.ImageFormatEnum.Png)
Case 2
c1Chart1.SaveImage(saveDialog.FileName, C1.Win.C1Chart.ImageFormatEnum.Jpeg)
Case 3
c1Chart1.SaveImage(saveDialog.FileName, C1.Win.C1Chart.ImageFormatEnum.Bmp)
End Select
MessageBox.Show("保存成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("保存失败：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
加好友 
发短信
Post By：2025/2/10 16:48:00 [显示全部帖子]
