| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 594 人关注过本帖
标题:VB6.0中保存MSChart图形时图例显示不一致问题
只看楼主 加入收藏
小明0000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-1-31
结帖率:100%
  已结贴   问题点数:20  回复次数:6   
VB6.0中保存MSChart图形时图例显示不一致问题


VB6.0中使用MSChart绘制曲线,在窗体中显示时图例是我需要的内容,但是在我保存为图片(.JPG)时,保存的图片中图例显示为C1、C3、C5。想问一下是什么原因导致的?如何修改?
附件: 您没有浏览附件的权限,请 登录注册
2018-01-31 17:27
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:10 
这个图不是你自己编写的代码吧,其中图例标题部分也怀疑是用其他方式遮罩原来的内容形成。具体如何没有代码无法判断。
修改图形序列的图例标题的代码如下,你可以试试

  MSChart1.DataGrid.ColumnLabel(1, 1) = "序列1"
  MSChart1.DataGrid.ColumnLabel(2, 1) = "序列2"
2018-02-01 09:46
小明0000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-1-31
  得分:0 
回复 2楼 xiangyue0510
绘图部分代码:
With Form2.MSChart1
    .Plot.SeriesCollection(1).Pen.Width = 30
    .Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
    .Plot.SeriesCollection(3).Pen.Width = 30
    .Plot.SeriesCollection(3).Pen.Style = VtPenStyleSolid
    .Plot.SeriesCollection(5).Pen.Width = 30
    .Plot.SeriesCollection(5).Pen.Style = VtPenStyleSolid
     
    .Plot.SeriesCollection(1).LegendText = "上游水位" & h_min1 & "m"
    .Plot.SeriesCollection(3).LegendText = "上游水位" & (h_min1 + h_max1) / 2 & "m"
    .Plot.SeriesCollection(5).LegendText = "上游水位" & h_max1 & "m"
    .chartType = VtChChartType2dXY      '设置图形为二维散点图
End With

保存图片部分代码:
Private Sub Command1_Click()
    Image1.Stretch = True
    Clipboard.Clear
    MSChart1.EditCopy
    Image1.Picture = Clipboard.GetData(vbCFBitmap)
    Clipboard.Clear   '清除粘贴板
    SavePicture Image1, "C:\Users\Administrator\Desktop\temp\安全始流曲线.jpg"
End Sub

相关的代码是这样的,麻烦您再看一下问题出在什么地方?

[此贴子已经被作者于2018-2-1 10:15编辑过]

2018-02-01 10:09
小明0000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-1-31
  得分:0 
回复 2楼 xiangyue0510
求解答!!!
2018-02-01 16:43
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:10 
回复 4楼 小明0000
不好意思,这两天没注意你这个帖子。
我试验了一下你的代码,确实是存在这个问题。应该是plot绘制出来的东西是遮罩的味道,在保存的时候无法输出。具体的只有看到Mschart的源代码才有可能知道。
我也试了一下,用的前面提到的ColumnLabel是没有问题的。
2018-02-02 09:27
小明0000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-1-31
  得分:0 
回复 5楼 xiangyue0510
尝试了ColumnLabel,的确可以,谢谢!
2018-02-02 11:14
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:0 
回复 6楼 小明0000
不客气
2018-02-02 13:42







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019978 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved