TeeChart Pro将自动为您定义所有Axis标签,并提供足够的灵活性来定制您可能具有的任何特定要求。TeeChart Pro提供真正的多轴。它们可在设计或运行时使用,并为Axis定义提供无数可能性和灵活性。有关详细信息,请参阅本教程中的部分。
(一)Scales
将Series数据添加到图表时,会自动设置轴刻度。您可以使用Axis属性在设计时或运行时更改默认值。
非日期时间数据
添加新系列时,图表编辑器的“Axis”页面的“Scales”部分将显示“Automatic”和其他灰色选项。显示的所有值均为数字。
日期时间数据
当系列在系列,常规页面上将日期时间设置为true(对于该轴)时,图表编辑器的轴页面的“Scales”部分将显示“Automatic”和其他灰色显示的选项。值显示为日期时间值。
自动选择最佳轴刻度范围以适合您的数据。如果您打开自动关闭比例部分将ungrey选项,您可以更改轴值。重要的是,请记住从页面左侧的轴列表中选择要配置的轴。 将行系列添加到图表中添加一个命令按钮,其中包含以下代码:
Dim t As Integer For t = 0 To 40 With TChart1.Series(0) .Add CInt((Rnd) * t), "", vbRed End With Next t
在按钮中运行代码将绘制一个包含40个随机值的Line Series。在设计时转到图表编辑器。在“Axis”页面的“Bottom Axis”部分中,将“Automatic”设置为“off”。您现在可以配置轴刻度的最大值和最小值。再次运行代码将显示值,具体取决于您为Axis配置的值。使用鼠标右键可以滚动查看剩余值。
按代码设置轴刻度
您可以使用以下代码更改运行时的最大值和最小值:
With TChart1.Axis.Bottom .Automatic = False .Maximum = 36 .Minimum = 5 End With
您可以将Axis scale Maximum和Minimum设置为自动单独。例如:
With TChart1.Axis.Bottom .AutomaticMaximum = True .AutomaticMinimum = False .Minimum = 5 End With
偏移
您可以将轴设置为具有最小和最大比例的偏移(以像素为单位)。
TChart1.Axis.Left.MaximumOffset = 4 TChart1.Axis.Left.MinimumOffset = 4
(二)Increment
您可以定制Axis的间隔。从Axis页面的Scales部分选择Desired Increment组合框,并添加所需的增量。您可以在运行时通过代码更改它:
With TChart1.Axis.Bottom .Increment = 20 End With
日期时间数据
如果您的数据是datetime(您可以通过转到Series,General页面将数据设置为系列的datetime),Chart,Axis页面,scales部分将显示日期时间范围。从Desired Increment组合框中显示的范围中选择增量。 添加一些示例数据
For t = 1 To 25 With TChart1.Series(0) .AddXY DateValue("2017, 11, " & t), Rnd(t) * t, "", vbRed End With Next t
在运行时更改增量:
With TChart1.Axis.Bottom .Increment = TChart1.GetDateTimeStep(dtTwoDays) End With
注意
更改轴标签频率时,请记住TeeChart将根据LabelsSeparation属性的设置避免标签重叠。这意味着如果标签频率太高而不适合标签,那么TeeChart将分配“最适合”。更改标签角度和标签分离是2个选项,可帮助您安装所需的标签。
Titles
标题在Axis页面的标题部分中设置。您可以更改Axis及其字体的标题文本。该角度可以从值0,90,180,270度中选择。
Labels
有关标签属性的简历,请参阅AxisLabels类(IAxislabels接口)。
注意
更改轴标签频率时,请记住TeeChart将根据Labels.separation属性的设置避免标签重叠。这意味着如果标签频率太高而不适合标签,那么TeeChart将分配“最适合”。更改标签角度和标签分离是2个选项,可帮助您安装所需的标签。请参阅Labels.Angle属性。
标签格式
您可以将所有标准数字和日期格式应用于Axis标签。“Axis”页面的“Labels”部分包含“Values format”字段。如果您的数据是datetime,则字段名称将更改为“Date time format”。在编辑器中拖动帮助“?” 在该字段上的图标,以获得完整的选项列表。在运行时使用:
With TChart1.Axis.Bottom .Labels.ValueFormat = "#,##0.00;(#,##0.00)" End With 'or for datetime data With TChart1.Axis.Bottom .Labels.DateTimeFormat = "dd/mmm/yy" 'Datetime End With
MultiLine标签
轴标签可以显示为多行文本而不是单行文本。使用回车符ascii字符(#13)分隔行,例
//Add the Series labels in this way and apply 'Marks' as Axis labelling style TChart1.Series(0).Add 1234, "New"+chr$(13)+"cars", vbRed TChart1.Series(0).Add 2000, "Old"+chr$(13)+"bicycles", vbBlue
DateTime标签的示例: 以下将在两行文本中显示底轴标签,一行显示月份和日期,第二行显示年份: 2月28日3月1日... 1999 1999 ..
TChart1.Series(0).AddXY DateValue("28,2,1999"), 100, "", clTeeColor TChart1.Series(0).AddXY DateValue("1,3,1999"), 200, "", clTeeColor TChart1.Series(0).AddXY DateValue("2,3,1999"), 150, "", clTeeColor TChart1.Series(0).XValues.DateTime = True TChart1.Axis.Bottom.Labels.DateTimeFormat = "mm/dd hh:mm" 'space
如果将Labels.MultiLine属性设置为True,则轴将自动将标签拆分为找到空格的行。
TChart1.Axis.Bottom.Labels.MultiLine = True
将标签分为两部分:
'mm / dd'代表第二行 'hh:mm'代表第二行
在运行时,您始终可以使用OnGetAxisLabel事件以编程方式将标签拆分为行:
Private Sub TChart1_OnAfterDraw() TChart1.Axis.Left.Labels.TeeSplitInLines LabelText, " " End Sub
全局“TeeSplitInLines”过程将“LabelText”中的所有空格转换为行分隔符(返回)。 轴标签。角度属性(标度旋转角度为0度,90度,180度或270度)也可用于多线轴标签。
自定义轴标签
可以使用Axis事件获得更多标签控件。事件允许您激活/停用/更改任何单个Axis标签。以下示例修改每个Label,将文本短语放在点索引值的前面。
'set LabelStyle to 'Mark' with the TChart editor or use:- TChart1.Axis.Bottom.Labels.Style = talMark 'OnGetaxisLabel event Private Sub TChart1_OnGetAxisLabel(ByVal aAxis As Long, ByVal SeriesIndex As Long, ByVal ValueIndex As Long, LabelText As String) If aAxis = atBottom Then LabelText = "Period " + Str(ValueIndex) End If End Sub
可以使用自定义文本和格式在特定位置修改轴标签,而无需使用TeeChart事件,从而可以更轻松地在ASP方案中修改服务器端。
Private Sub Form_Load() Dim v As Variant v = Array(200, 0, 123, 300, 260, -100, 650, 400) TChart1.AddSeries scLine TChart1.Series(0).AddArray 8, v AddCustomLabels End Sub Private Sub AddCustomLabels() TChart1.Axis.Left.Labels.Clear TChart1.Axis.Left.Labels.Add 123, "Hello" TChart1.Axis.Left.Labels.Item(0).Font.Size = 16 TChart1.Axis.Left.Labels.Add 466, "Good" & Chr(13) & "Bye" TChart1.Axis.Left.Labels.Item(1).Transparent = False TChart1.Axis.Left.Labels.Add 300, "" TChart1.Axis.Left.Labels.Add -100, "" With TChart1.Axis.Left.Labels.Item(3) .Transparent = False .Transparency = 50 .Color = vbBlue End With End Sub
对数标签
正常对数标签可以通过以下方式设置:
With TChart1.Axis.Left .Logarithmic = True .Increment = 0 ' the default .SetMinMax 0, 10000 .Labels.ValueFormat = "#e+0" ' exponential format End With
标签将根据对数基数(默认为10)进行设置,因此,在此情况下,标签为1,10,100,1000,10000。
Ticks和Minor
有3种刻度类型和2种类型的网格。您可以更改每个刻度和网格类型的长度,宽度和颜色。可以通过«Ticks»选项卡对Ticks及其关联的Grid和Inner Ticks进行更改; 可以通过«Minor»选项卡更改Minor Ticks及其关联的Grid。
With TChart1.Axis.Bottom .TickLength = 7 .Ticks.Color = vbGreen .MinorTickCount = 10 'change number of minorticks between (major) Ticks End With
轴位置
轴具有修改每个轴所在位置的属性。在此示例中,轴移动了图表宽度的50%,因此它显示在图表中心:
TChart1.Axis.Left.PositionPercent = 50