图片另存为问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果我现在新增一个名称为“另存为”的按钮，要实现点击“另存为”的按钮的时候，已经生成的雷达图可以保存到本地，并且保存为图片格式。

以下代码报错了。

' 在按钮的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

这种玩意AI生成的？如果没有看代码改代码的能力，使用AI，只会减低生产力，让人变笨，没有什么好处。

参考：http://www.foxtable.com/webhelp/topics/0329.htm、http://www.foxtable.com/webhelp/topics/1010.htm

dlg.Title = "保存雷达图"

dlg.FileName = "RiskRadarChart"

dlg.DefaultExt = "png"

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Chart As WinForm.Chart
Chart= Forms("风险雷达图").Controls("Chart1")
Chart.SaveImage(dlg.FileName)

End If

这个论断对于开发人员可能是适用的。

但是我觉得狐表要走入大多数的业务场景，给到更多的人用，就应该让普通的不会开发的人员，有渠道，有能力，有兴趣去主动探索。

给到探索路径以及学习路径，一味的强调学习帮助手册，实际是给使用狐表的非开发用户筑起高高的围墙。

长此以往，用户逐步远离狐表的生态圈，甚者，充满了厌弃与怨言。

我甚至能感觉到论坛里面充满了狐表工作人员的不耐烦，怨气，不屑以及嘲讽。

可能时间太久了，too old了，初心没那么纯粹了。

主题：图片另存为问题