本文主要介紹TeeChart Pro ActiveX使用教程中關(guān)于軸控制的相關(guān)介紹。

TeeChart Pro 將自動為您定義所有 Axis 標(biāo)簽，并提供足夠的靈活性來定制您可能有的任何特定要求。 TeeChart Pro ActiveX提供真正的多軸，這些在設(shè)計或運行時可用，并為 Axis 定義提供了無數(shù)的可能性和靈活性。

重點領(lǐng)域

尺度

 將系列數(shù)據(jù)添加到圖表時會自動設(shè)置軸刻度。您可以在設(shè)計時或運行時使用 Axis 屬性更改默認(rèn)值。

非日期時間數(shù)據(jù)

添加新系列時，圖表編輯器的軸頁面的比例部分將顯示選擇自動，其他選項顯示為灰色。顯示的所有值都是數(shù)字。

日期時間數(shù)據(jù)

當(dāng)系列在系列、常規(guī)頁面上將日期時間設(shè)置為 true（對于該軸）時，圖表編輯器的軸頁面的比例部分將顯示選擇自動，其他選項灰顯。值與日期時間值一起顯示。

自動選擇最佳軸刻度范圍以適合您的數(shù)據(jù)。如果您關(guān)閉“自動”，比例部分將變?yōu)榛疑x項，您可以更改軸值。重要的是，請記住從頁面左側(cè)的軸列表中選擇要配置的軸。

將線條系列添加到圖表中添加命令按鈕，代碼如下：

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。在設(shè)計時轉(zhuǎn)到圖表編輯器。在 Axis 頁面的 Bottom Axis scales 部分中關(guān)閉 Automatic 'off'。您現(xiàn)在可以配置軸刻度的最大值和最小值。再次運行代碼將根據(jù)您為軸配置的值顯示值。使用鼠標(biāo)右鍵，您可以滾動查看剩余值。

通過代碼設(shè)置軸比例

您可以使用以下代碼在運行時更改最大值和最小值：

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

您可以將軸刻度最大值和最小值分別設(shè)置為自動。例如：

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

抵消

您可以將軸設(shè)置為具有最小和最大比例的偏移量（以像素為單位）。

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

增量

您可以定制軸的間隔。從 Axis 頁面的 Scales 部分選擇 Desired Increment 組合框并添加您需要的增量。您可以在運行時通過代碼更改它：

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

日期時間數(shù)據(jù)

如果您的數(shù)據(jù)是日期時間（您可以通過轉(zhuǎn)到系列、常規(guī)頁面將數(shù)據(jù)設(shè)置為您的系列的日期時間），圖表、軸頁面、比例部分將顯示日期時間范圍。從 Desired Increment 組合框中顯示的范圍中選擇增量。 添加一些示例數(shù)據(jù)：

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

注意

更改軸標(biāo)簽頻率時，請記住 TeeChart 將根據(jù) LabelsSeparation 屬性的設(shè)置避免標(biāo)簽重疊。這意味著如果標(biāo)簽頻率太高而無法適應(yīng)標(biāo)簽，則 TeeChart 將分配“最佳匹配”。更改標(biāo)簽角度和標(biāo)簽分隔是 2 個選項，可以幫助您適應(yīng)所需的標(biāo)簽。請參閱標(biāo)簽部分和 LabelsAngle 屬性。

標(biāo)題

標(biāo)題在 Axis 頁面的 Titles 部分中設(shè)置。您可以更改軸的標(biāo)題文本及其字體。該角度可以從值 0、90、180、270 度中選擇。

標(biāo)簽

請參閱 AxisLabels 類（IAxislabels 接口）以獲取標(biāo)簽屬性的簡歷。

注意

更改軸標(biāo)簽頻率時，請記住 TeeChart 將根據(jù) Labels.separation 屬性的設(shè)置避免標(biāo)簽重疊。這意味著如果標(biāo)簽頻率太高而無法適應(yīng)標(biāo)簽，則 TeeChart 將分配“最佳匹配”。更改標(biāo)簽角度和標(biāo)簽分隔是 2 個選項，可以幫助您適應(yīng)所需的標(biāo)簽。

標(biāo)簽格式

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

多行標(biāo)簽

軸標(biāo)簽可以顯示為多行文本，而不是單行文本。使用回車 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 標(biāo)簽的示例：

下面將在兩行文本中顯示底部軸標(biāo)簽，一行顯示月份和日期，第二行顯示年份： 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 屬性設(shè)置為 True，軸將自動將標(biāo)簽拆分為找到空格的行。

TChart1.Axis.Bottom.Labels.MultiLine = True

將標(biāo)簽分為兩部分：

'mm/dd' 代表第一行
'hh:mm' 第二行

在運行時，您始終可以使用 OnGetAxisLabel 事件以編程方式將標(biāo)簽拆分為行：

Private Sub TChart1_OnAfterDraw()
  TChart1.Axis.Left.Labels.TeeSplitInLines LabelText, " "
End Sub

全局“TeeSplitInLines”過程將“LabelText”中的所有空格轉(zhuǎn)換為行分隔符（返回）。

軸 Labels.Angle 屬性（標(biāo)簽旋轉(zhuǎn)角度為 0、90、180 或 270），也可以與多線軸標(biāo)簽一起使用。

自定義軸標(biāo)簽

 進(jìn)一步的標(biāo)簽控制可以通過使用 Axis 事件來獲得。這些事件允許您激活/停用/更改任何單個軸標(biāo)簽。下面的示例修改每個標(biāo)簽，在點索引值前面放置一個文本短語。

'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

軸標(biāo)簽可以在特定位置使用自定義文本和格式進(jìn)行修改，而無需使用 TeeChart 事件，從而使它們更容易在 ASP 場景中修改服務(wù)器端。

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

對數(shù)標(biāo)簽

正態(tài)對數(shù)標(biāo)記可以通過以下方式設(shè)置：

With TChart1.Axis.Left
 .Logarithmic = True
 .Increment = 0 ' the default
 .SetMinMax 0, 10000
 .Labels.ValueFormat = "#e+0" ' exponential format
End With

標(biāo)簽將根據(jù)對數(shù)基數(shù)（默認(rèn)為 10）設(shè)置，因此在這種情況下，標(biāo)簽為 1,10,100,1000,10000。

計數(shù)和次要的

有 3 種刻度類型和 2 種網(wǎng)格類型。您可以更改每個刻度和網(wǎng)格類型的長度、寬度和顏色。可以通過 ?Ticks? 選項卡對 Ticks、其關(guān)聯(lián)的 Grid 和 Inner Ticks 進(jìn)行更改；可以通過 ?Minor? 選項卡對 Minor Ticks 及其關(guān)聯(lián)的網(wǎng)格進(jìn)行更改。

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

本次關(guān)于ActiveX圖表控件TeeChart Pro ActiveX的教程就介紹到這里了，更多教程可在慧都網(wǎng)查看。

TeeChart Pro ActiveXQQ群：740060302      歡迎進(jìn)群一起討論

如果您想了解TeeChart Pro ActiveX價格，歡迎咨詢

TeeChart Pro ActiveX 是交互性強的輕量級ActiveX圖表控件，能高效生成多任務(wù)儀表板。