以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]做图表Y轴如何数字和字符交替使用？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85146)
--  作者：新福星
--  发布时间：2016/5/18 20:55:00
--  [求助]做图表Y轴如何数字和字符交替使用？
做一个图表。Y轴原来是数字表示的。比如从1-10,十个数。现在想把3 5 7的位置换成 A B C，可以实现么？谢谢
--  作者：大红袍
--  发布时间：2016/5/18 21:15:00
--  

参考代码

 

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 10 \'新增图系包括10个数据点
For i As Integer = 0 To 9 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = i + Rand.Next(5) \'垂直坐标用随机数生成
    Chart.AxisX.SetValueLabel(i, "x" & I) \'指定字符表示
    Chart.AxisY.SetValueLabel(i, "y" & I) \'指定字符表示
Next

Chart.AxisX.AnnoWithLabels = True \'启用字符标示
Chart.AxisY.AnnoWithLabels = True \'启用字符标示
--  作者：新福星
--  发布时间：2016/5/18 21:50:00
--  
哦 原来Y轴也可以象X轴那样设置啊！帮助材料上咋只写X轴不写Y轴呢？谢谢