共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：图片另存为问题
1楼
wukangppbb 发表于：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
2楼
有点蓝 发表于：2025/2/10 16:57:00这种玩意AI生成的？如果没有看代码改代码的能力，使用AI，只会减低生产力，让人变笨，没有什么好处。
Dim Chart As WinForm.Chart
Chart= Forms("风险雷达图").Controls("Chart1")
Chart.SaveImage(dlg.FileName)
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
3楼
wukangppbb 发表于：2025/2/10 17:29:00这个论断对于开发人员可能是适用的。
但是我觉得狐表要走入大多数的业务场景，给到更多的人用，就应该让普通的不会开发的人员，有渠道，有能力，有兴趣去主动探索。
给到探索路径以及学习路径，一味的强调学习帮助手册，实际是给使用狐表的非开发用户筑起高高的围墙。
长此以往，用户逐步远离狐表的生态圈，甚者，充满了厌弃与怨言。
我甚至能感觉到论坛里面充满了狐表工作人员的不耐烦，怨气，不屑以及嘲讽。
可能时间太久了，too old了，初心没那么纯粹了。
共3 条记录, 每页显示 10 条, 页签:
[1]