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

---

下載TeeChart Pro ActiveX最新版本

注釋工具

注釋工具允許文本顯示在圖表上。

設計時

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

運行

在運行時添加注釋工具是一項簡單的操作，如下例所示：

With TChart1
    .Tools.Add tcAnnotate
    With .Tools.Items(0)
        .Active = True
        With .asAnnotation
          .Position = ppLeftTop
          .Shape.ShapeStyle = fosRoundRectangle
          .Shape.Font.Color = vbCyan
          .Text = "My Chart text"
        End with
    End With
End With

軸箭頭工具

軸箭頭工具在軸的開頭和末尾顯示可配置的箭頭。可以使這些箭頭在單擊時滾動軸。

設計時

添加箭頭工具后，您可以使用多個選項。軸可以選擇要與軸工具關聯的軸（頂部，底部，左側，右側或自定義）。您可以添加多個軸工具，并將每個軸工具與不同的軸相關聯。邊框允許您配置筆的樣式，顏色，寬度和可見性，勾勒出箭頭形狀，而Pattern允許您配置箭頭的主體，顏色，圖案或填充圖像。長度以像素為單位描述箭頭的長度，“ 位置”定義在滾動時是否在軸的“結束”，“開始”或“兩端”繪制箭頭定義單擊箭頭時軸將滾動的軸長度百分比。反轉滾動將改變滾動方向。

運行

在運行時添加軸箭頭工具是一項簡單的操作，如下例所示。請注意，3英寸.Axis指的是右軸; 0表示底軸，1表示頂軸，2表示左軸，4表示第一個自定義軸（自定義0），5表示第二個（自定義1）等。

With TChart1
    .Tools.Add tcAxisArrow
    With .Tools.Items(0)
        .Active = True
        With .asAxisArrow
          .Axis = 3
          .Brush.Color = vbCyan
          .Length = 20
          .Pen.Color = vbRed
          .Pen.Width = 2
          .Position = aaBoth
          .ScrollPercent = 20
        End with
    End With
End With

彩色帶工具

色帶工具將可配置顏色的條帶添加到由圖表軸包圍的內部區域。這些帶可以垂直或水平設置，與軸值一致。

設計時

將色帶工具添加到圖表后，有許多選項可以配置它們。軸可以選擇要與色帶關聯的軸（頂部，底部，左側，右側或自定義）。邊框允許您配置筆的樣式，顏色，寬度和可見性，概述色帶，而圖案允許您配置色帶的主體，圖案及其顏色或填充圖像。梯度定義了可視性，方向和啟動，則顏色頻帶梯度的中間和結尾顏色，同時顏色，在不存在梯度或圖像的，定義了顏色。開始值設置顏色帶工具將從其開始的指定軸上的起始值，結束值設置結束值。透明度是一個從0到100的值，它設置顏色帶工具的透明度，而Draw Behind啟用/禁用在Chart系列后面繪制它。

運行

在運行時添加色帶工具是一項簡單的操作，如下例所示：

示例：

“色帶工具”對于突出顯示系列中的一組特定值非常有用。在這個例子中，我們使用了一個顏色帶工具，它在YValues為20到60之間延伸，其透明度可以通過滾動條改變。可以在TeeChart系列的前面或后面繪制色帶。

Private Sub Check1_Click（）
  TChart1.Tools.Items（0）.asColorband.DrawBehind = Check1.Value 
End Sub 

Private Sub Form_Load（）
  with TChart1 
    .Aspect.View3D = False 
    .Panel.Gradient.Visible = True 
    .Panel.Gradient.MidColor = vbGray 
    .AddSeries scArea 
    .Series（0）.asArea.LinePen.Color = vbBlue 
    For i = 0 To 
        10.Series（0）.AddXY i，Rnd（i）* 100，“”，clTeeColor 
    Next i 
    .Tools.Add tcColorband 
    .Tools.Items（0）.Active = True 
    With .Tools.Items（0）.asColorband 
      .Axis = 
      0.Transparency = 
      50.EndValue = 
      60.StartValue = 20
      .DrawBehind = False 
    End With 
    End With 
    Check1.Caption =“Draw Behind” 
    Check1.Value = 0 
    HScroll1.Min = 0 
    HScroll1.Max = 100 
    HScroll1.Value = 50 
End Sub 

Private Sub HScroll1_Change（）
  TChart1.Tools.Items（0 ）.asColorband.Transparency = HScroll1.Value 
End Sub 

Private Sub HScroll1_Scroll（）
  HScroll1_Change 
End Sub

購買TeeChart Pro AciveX正版授權，請點擊“”喲！