TeeChart Pro ActiveX教程(十九):TeeChart工具集(二)
注釋工具
注釋工具允許文本顯示在圖表上。
設計時

注釋工具的文本及其所在的框都可以完全配置。“ 選項 ” 選項卡允許您輸入所需的文本,并指定其對齊方式以及鼠標懸停在工具上時顯示的光標類型。“ 位置”選項卡指定注釋工具的默認位置或自定義位置。“ 標注”選項卡定義“注釋工具”的“標注”對象,該對象用于從注釋中繪制線到圖表中的任何位置。“ 格式”選項卡配置文本框,允許您更改其顏色,框架,圖案,斜角,大小,圓度和透明度。該文本選項卡可以設置文本字體,顏色,輪廓和間距以及文本陰影的顏色和大小。“ 漸變”選項卡配置文本框漸變的屬性,而“ 陰影”選項卡配置文本框陰影的屬性。
運行
在運行時添加注釋工具是一項簡單的操作,如下例所示:
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正版授權,請點擊“”喲!

 QQ交談
QQ交談 在線咨詢
在線咨詢 
                 
                
 渝公網安備
            50010702500608號
渝公網安備
            50010702500608號
             
            
 客服熱線
客服熱線