以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表 X轴 双行显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108867)
--  作者：ljh29206
--  发布时间：2017/10/31 10:17:00
--  图表 X轴 双行显示
像 表的 列一样   A_B  A_C   A_D
显示为  
     A       
B   C    D 

在图表  里面怎么设置呢?

想要效果 
X轴:
B   C    D 
     A       
--  作者：有点甜
--  发布时间：2017/10/31 10:46:00
--  

很简单，把_替换成vbcrlf即可，如

 

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量

Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = 4
For i As Integer = 0 To 3
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = 100
    Chart.AxisX.SetValueLabel(i, "a" & vbcrlf & "b") \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
--  作者：ljh29206
--  发布时间：2017/10/31 11:07:00
--  
哦 ,谢谢

测试了下
    If (i Mod 2) = 0 Then
    Chart1.AxisX.SetValueLabel(i, Tables("a1").Rows(i)("类别") )
    Chart1.AxisX.SetValueLabel(i,    vbcrlf &  "         " & Tables("a1").Rows(i)("时间段") & " ")
    Else
    Chart1.AxisX.SetValueLabel(i, Tables("a1").Rows(i)("时间段") )
    End If
这样写好看点!
[此贴子已经被作者于2017/10/31 11:16:23编辑过]