彩票走势图

本文主要介绍TeeChart Pro ActiveX使用教程中关于轴控制的相关介绍。

TeeChart Pro 将自动为您定义所有 Axis 标签，并提供足够的灵活性来定制您可能有的任何特定要求。 TeeChart Pro ActiveX提供真正的多轴，这些在设计或运行时可用，并为 Axis 定义提供了无数的可能性和灵活性。

重点领域

尺度

将系列数据添加到图表时会自动设置轴刻度。您可以在设计时或运行时使用 Axis 属性更改默认值。

非日期时间数据

添加新系列时，图表编辑器的轴页面的比例部分将显示选择自动，其他选项显示为灰色。显示的所有值都是数字。

日期时间数据

 当系列在系列、常规页面上将日期时间设置为 true（对于该轴）时，图表编辑器的轴页面的比例部分将显示选择自动，其他选项灰显。值与日期时间值一起显示。

自动选择最佳轴刻度范围以适合您的数据。如果您关闭“自动”，比例部分将变为灰色选项，您可以更改轴值。重要的是，请记住从页面左侧的轴列表中选择要配置的轴。

将线条系列添加到图表中添加命令按钮，代码如下：

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 scales 部分中关闭 Automatic 'off'。您现在可以配置轴刻度的最大值和最小值。再次运行代码将根据您为轴配置的值显示值。使用鼠标右键，您可以滚动查看剩余值。

通过代码设置轴比例

您可以使用以下代码在运行时更改最大值和最小值：

With TChart1.Axis.Bottom
  .Automatic = False
  .Maximum = 36
  .Minimum = 5
End With

您可以将轴刻度最大值和最小值分别设置为自动。例如：

With TChart1.Axis.Bottom
  .AutomaticMaximum = True
  .AutomaticMinimum = False
  .Minimum = 5
End With

抵消

您可以将轴设置为具有最小和最大比例的偏移量（以像素为单位）。

TChart1.Axis.Left.MaximumOffset = 4
TChart1.Axis.Left.MinimumOffset = 4

增量

您可以定制轴的间隔。从 Axis 页面的 Scales 部分选择 Desired Increment 组合框并添加您需要的增量。您可以在运行时通过代码更改它：

With TChart1.Axis.Bottom
  .Increment = 20
End With

日期时间数据

如果您的数据是日期时间（您可以通过转到系列、常规页面将数据设置为您的系列的日期时间），图表、轴页面、比例部分将显示日期时间范围。从 Desired Increment 组合框中显示的范围中选择增量。 添加一些示例数据：

For t = 1 To 25
   With TChart1.Series(0)
       .AddXY DateValue("2017, 11, " & t), Rnd(t) * t, "", vbRed
   End With
Next t
Change the Increment at runtime:

With TChart1.Axis.Bottom
  .Increment = TChart1.GetDateTimeStep(dtTwoDays)
End With

注意

更改轴标签频率时，请记住 TeeChart 将根据 LabelsSeparation 属性的设置避免标签重叠。这意味着如果标签频率太高而无法适应标签，则 TeeChart 将分配“最佳匹配”。更改标签角度和标签分隔是 2 个选项，可以帮助您适应所需的标签。请参阅标签部分和 LabelsAngle 属性。

标题

标题在 Axis 页面的 Titles 部分中设置。您可以更改轴的标题文本及其字体。该角度可以从值 0、90、180、270 度中选择。

标签

请参阅 AxisLabels 类（IAxislabels 接口）以获取标签属性的简历。

注意

更改轴标签频率时，请记住 TeeChart 将根据 Labels.separation 属性的设置避免标签重叠。这意味着如果标签频率太高而无法适应标签，则 TeeChart 将分配“最佳匹配”。更改标签角度和标签分隔是 2 个选项，可以帮助您适应所需的标签。

标签格式

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

多行标签

轴标签可以显示为多行文本，而不是单行文本。使用回车 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”中的所有空格转换为行分隔符（返回）。

轴 Labels.Angle 属性（标签旋转角度为 0、90、180 或 270），也可以与多线轴标签一起使用。

自定义轴标签

进一步的标签控制可以通过使用 Axis 事件来获得。这些事件允许您激活/停用/更改任何单个轴标签。下面的示例修改每个标签，在点索引值前面放置一个文本短语。

'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。

计数和次要的

有 3 种刻度类型和 2 种网格类型。您可以更改每个刻度和网格类型的长度、宽度和颜色。可以通过 «Ticks» 选项卡对 Ticks、其关联的 Grid 和 Inner Ticks 进行更改；可以通过 «Minor» 选项卡对 Minor Ticks 及其关联的网格进行更改。

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

本次关于ActiveX图表控件TeeChart Pro ActiveX的教程就介绍到这里了，更多教程可在慧都网查看。

TeeChart Pro ActiveXQQ群：740060302      欢迎进群一起讨论

如果您想了解TeeChart Pro ActiveX价格，欢迎咨询

TeeChart Pro ActiveX 是交互性强的轻量级ActiveX图表控件，能高效生成多任务仪表板。