| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3528 人关注过本帖
标题:VB2010 与 Mschart 控件坐标轴设计
只看楼主 加入收藏
xiechx
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-10-6
收藏
 问题点数:0 回复次数:0 
VB2010 与 Mschart 控件坐标轴设计
用VB2010,要求在一个图中绘制两条曲线,横坐标相同,纵坐标不一样,尝试用VB2010结合MSchart控件来实现,结果是右侧的y轴既没有显示标题也没有显示刻度值,各位大虾帮忙看看如何解决?代码如下:
程序代码:
With Chart1.ChartAreas("Default")
            .BackColor = Color.FromName("GradientInactiveCaption") '设置绘图区颜色
            .BackGradientStyle = GradientStyle.HorizontalCenter '设置绘图区颜色渐变方式
            .AxisX.IsMarginVisible = False
            .AxisY.IsMarginVisible = False
            .AxisY2.Enabled = True
            .AxisX2.Enabled = True
            .AxisX2.IsMarginVisible = False
            .AxisY2.IsMarginVisible = False

            .AxisX.Title = "时间" 'x轴名称
            .AxisY.Title = "标准值" '左侧y轴名称
            .AxisX.LineWidth = 1
            .AxisX.MajorGrid.LineDashStyle = ChartDashStyle.Dot
            .AxisY.MajorGrid.LineDashStyle = ChartDashStyle.Dot
            .BorderDashStyle = ChartDashStyle.Solid
            .BorderWidth = 1
            .AxisX.Minimum = 0
            .AxisX.Maximum = 25
            .AxisX2.Minimum = 0
            .AxisX2.Maximum = 25
            .Position.X = 0
            .Position.Y = 10
            .Position.Height = 90
            .Position.Width = 96


            .AxisX.Minimum = 0
            .AxisX.Maximum = 25
            .AxisY.Minimum = 0.0
            .AxisY.Maximum = 10.0
            .AxisY2.Title = "温度" '右侧y轴名称
            .AxisY2.Minimum = 0
            .AxisY2.Maximum = 100
           
            .AxisY2.MajorTickMark.Interval = 10
        End With

        Chart1.Titles.Clear()

        Dim NewTitle1 As New Title("测试曲线") '建立标题
        NewTitle1.Text = "测试曲线"
        Chart1.Titles.Add(NewTitle1)

        Chart1.Series.Clear() '清除所有数据集
        Dim newSeries1 As New Series("标准值") '新增数据集
        newSeries1.ChartType = SeriesChartType.Line '直线
        newSeries1.Color = Color.Blue

        
        newSeries1.IsValueShownAsLabel = False
        newSeries1.IsVisibleInLegend = False
        Chart1.Series.Add(newSeries1)

        Dim newseries3 As New Series("下限值")
        newseries3.ChartType = SeriesChartType.Line '直线
        newseries3.Color = Color.Green
        newseries3.BorderWidth = 2
        newseries3.IsValueShownAsLabel = False
        newseries3.IsVisibleInLegend = False
        newseries3.MarkerStyle = MarkerStyle.Square
        newseries3.MarkerStep = 10
        Chart1.Series.Add(newseries3)
搜索更多相关主题的帖子: 坐标轴 如何 
2014-10-06 15:56
快速回复:VB2010 与 Mschart 控件坐标轴设计
数据加载中...
 
   



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

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