[求助]图表显示调整及高清另存需求 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图表显示调整及高清另存需求

共有2938人关注过本帖树形打印复制链接主题：[求助]图表显示调整及高清另存需求

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/27 14:20:00 [显示全部帖子]

1、图系宽度是固定无法调整的；

2、参考 http://www.foxtable.com/webhelp/scr/0989.htm

3、不可以；

4、

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/27 15:01:00 [显示全部帖子]

比如

Chart.BarClusterWidth = 50

比如

Chart.BarClusterWidth = 50
Dim gd As C1Chart.C1Chart = Chart.BaseControl
gd.ChartArea.AxisX.ScrollBar.min = 0
gd.ChartArea.AxisX.ScrollBar.max = Tables("表A").Rows.count
gd.ChartArea.AxisX.ScrollBar.Scale = 10 / Tables("表A").Rows.count
gd.ChartArea.AxisX.ScrollBar.Visible = True '图表加滚动条

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/27 16:06:00 [显示全部帖子]

试试

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Chart As WinForm.Chart
    Chart= Forms("图表").Controls("Chart1")
    Dim gd = Chart.basecontrol
    gd.ChartArea.AxisX.ScrollBar.Scale = 1
    gd.ChartArea.AxisX.ScrollBar.Visible = False            '图表加滚动条
    'Dim temp = Chart.Width
    'Chart.Width = Tables("表A").Rows.count * 300
    chart.SaveImage(dlg.FileName)
    'Chart.Width = temp
End If

下一主题 >> << 上一主题

主题：[求助]图表显示调整及高清另存需求