TeeChart Pro ActiveX教程（十九）：TeeChart工具集（六）

---

下載TeeChart Pro ActiveX最新版本

本文將續講工具集中的頁碼工具、餅圖切片工具、旋轉工具和系列動畫工具。

一、頁碼工具

頁碼工具顯示一個完全可配置的文本框，其中包含所選的頁碼編號系統。

設計時：

頁碼工具的文本及其所在的框都可以完全配置。“Options”選項卡允許您輸入所需的文本，并指定其對齊方式以及鼠標懸停在工具上時顯示的光標類型。 “Position”選項卡指定頁碼工具的默認位置或自定義位置。 “Callout”選項卡定義“Page Tool”的“Callout”對象，該對象用于從注釋中繪制線到圖表中的任何位置。“Format”選項卡配置文本框，允許您更改其顏色，框架，圖案，斜角，大小，圓度和透明度。 “Text”選項卡可以設置文本字體，顏色，輪廓和間距以及文本陰影的顏色和大小。 “Gradient”選項卡配置文本框漸變的屬性，而“Shadow”選項卡配置文本框陰影的屬性。

運行時：

With TChart1
    .Tools.Add tcPageNumber
    With .Tools.Items(0)
        .Active = True
        .asPageNum.Position = ppRightTop
        .asPageNum.Shape.Gradient.Visible = True
    End With
End With

二、餅圖切片工具

“Pie Slices Tool/餅圖切片工具”通過在其周圍繪制邊框或通過將其從餅圖系列的其余部分展開來突出顯示鼠標下的餅圖切片。

設計時：

餅圖切片工具必須與特定的Pie系列相關聯才能顯示。樣式指定工具是否將焦點放在鼠標懸停的餅圖上，或者是否會將其從其余部分中分離出來。Border指定圍繞焦點餅圖繪制的邊框的筆特征。

運行時：

With TChart1
    .Aspect.View3D = False
    .AddSeries scPie
    .Series(0).asPie.Circled = False
    .Series(0).FillSampleValues 6
    
    .Tools.Add tcPie
    With .Tools.Items(0).asPie
        .Series = TChart1.Series(0)
        .Style = ptFocus
    End With
End With

三、旋轉工具

將鼠標拖到圖表上時，“Rotate/旋轉”工具會更改圖表的標高和旋轉。

設計時：

旋轉工具設計時可配置屬性包括Inverted在旋轉圖表時反轉鼠標移動的效果，Style指定圖表是旋轉、標高還是兩者都有，Button指定用于旋轉圖表的鼠標按鈕，而Outline配置圖表輪廓可以是在移動指定的鼠標按鈕時繪制。

運行時：

With TChart1
    .Tools.Add tcRotate
    With .Tools.Items(0)
        .Active = True
        .asRotate.Button = mbRight
    End With
End With

四、系列動畫工具

系列動畫工具執行系列點的增長動畫。

設計時：

系列動畫工具必須與特定系列相關聯。 步驟定義系列動畫工具所采用的動畫步數，“開始時最小值/Start at Min value”將從minium Series YValue開始動畫，而“Start value/開始值”指定“Start at Min value/最小值時開始”值設置為false時的起始值。 繪制每個將以n個點的組繪制系列。

請查看以下系列動畫工具的工作示例：

運行時：

Private Sub Command1_Click()
On Error Resume Next
HScroll1.Enabled = False
Command1.Enabled = False
TChart1.Tools.Items(0).asSeriesAnimation.Execute
HScroll1.Enabled = True
Command1.Enabled = True
End Sub
 
Private Sub Command2_Click()
TChart1.Tools.Items(0).ShowEditor
HScroll1.Value = TChart1.Tools.Items(0).asSeriesAnimation.Steps
End Sub
 
Private Sub Check1_Click()
  If Check1.Value = 1 Then
     TChart1.Tools.Items(0).asSeriesAnimation.DrawEvery = 1
  Else
     TChart1.Tools.Items(0).asSeriesAnimation.DrawEvery = 0
  End If
End Sub
 
Private Sub Form_Load()
TChart1.AddSeries scBar
TChart1.Series(0).ColorEachPoint = True
TChart1.Tools.Add tcSeriesAnimation
HScroll1.Min = 1
HScroll1.Max = 255
HScroll1.Value = 100

TChart1.Series(0).FillSampleValues 6
TChart1.Legend.Visible = False
TChart1.Series(0).ValueFormat = "000"
TChart1.Tools.Items(0).asSeriesAnimation.Series = TChart1.Series(0)
TChart1.Tools.Items(0).asSeriesAnimation.StartAtMin = False
End Sub
 
Private Sub HScroll1_Change()
TChart1.Tools.Items(0).asSeriesAnimation.Steps = HScroll1.Value
Label2.Caption = HScroll1.Value
End Sub
 
Private Sub HScroll1_Scroll()
Label2.Caption = HScroll1.Value
End Sub
 
Private Sub TChart1_OnSeriesAnimationToolStep(ByVal Tool As Long, ByVal Step As Long)
If Tool = 0 Then
    With TChart1
        .Series(0).PointColor(0) = RGB(255 - Step, Step, Step)
        .Series(0).PointColor(1) = RGB(Step, 255 - Step, Step)
        .Series(0).PointColor(2) = RGB(Step, Step, 255 - Step)
        .Series(0).PointColor(3) = RGB(255 - Step, 255 - Step, Step)
        .Series(0).PointColor(4) = RGB(Step, 255 - Step, 255 - Step)
        .Series(0).PointColor(5) = RGB(255 - Step, Step, 255 - Step)
    End With
End If
End Sub