- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 图片另存为问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194963)
-- 发布时间：2025/2/10 16:48:00
-- 图片另存为问题
如果我现在新增一个名称为“另存为”的按钮，要实现点击“另存为”的按钮的时候，已经生成的雷达图可以保存到本地，并且保存为图片格式。
以下代码报错了。
\' 在按钮的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
-- 发布时间：2025/2/10 16:57:00
--
这种玩意AI生成的？如果没有看代码改代码的能力，使用AI，只会减低生产力，让人变笨，没有什么好处。
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "PNG 图片|*.png|JPEG 图片|*.jpg|BMP 图片|*.bmp" \'设置筛选器
dlg.Filter = "PNG 图片|*.png|JPEG 图片|*.jpg|BMP 图片|*.bmp" \'设置筛选器
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
-- 发布时间：2025/2/10 17:29:00
-- 回复：（有点蓝）这种玩意AI生成的？如果没有看代码改...
这个论断对于开发人员可能是适用的。
但是我觉得狐表要走入大多数的业务场景，给到更多的人用，就应该让普通的不会开发的人员，有渠道，有能力，有兴趣去主动探索。
给到探索路径以及学习路径，一味的强调学习帮助手册，实际是给使用狐表的非开发用户筑起高高的围墙。
长此以往，用户逐步远离狐表的生态圈，甚者，充满了厌弃与怨言。
我甚至能感觉到论坛里面充满了狐表工作人员的不耐烦，怨气，不屑以及嘲讽。
可能时间太久了，too old了，初心没那么纯粹了。