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 WithEnd 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 WithEnd With

三、旋转工具

将鼠标拖到图表上时，“Rotate/旋转”工具会更改图表的标高和旋转。

设计时：

旋转工具设计时可配置属性包括Inverted在旋转图表时反转鼠标移动的效果，Style指定图表是旋转、标高还是两者都有，Button指定用于旋转图表的鼠标按钮，而Outline配置图表轮廓可以是在移动指定的鼠标按钮时绘制。

运行时：

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

四、系列动画工具

系列动画工具执行系列点的增长动画。

设计时：

系列动画工具必须与特定系列相关联。 步骤定义系列动画工具所采用的动画步数，“开始时最小值/Start at Min value”将从minium Series YValue开始动画，而“Start value/开始值”指定“Start at Min value/最小值时开始”值设置为false时的起始值。 绘制每个将以n个点的组绘制系列。

请查看以下系列动画工具的工作示例：

运行时：

Private Sub Command1_Click()On Error Resume NextHScroll1.Enabled = FalseCommand1.Enabled = FalseTChart1.Tools.Items(0).asSeriesAnimation.ExecuteHScroll1.Enabled = TrueCommand1.Enabled = TrueEnd SubPrivate Sub Command2_Click()TChart1.Tools.Items(0).ShowEditorHScroll1.Value = TChart1.Tools.Items(0).asSeriesAnimation.StepsEnd SubPrivate Sub Check1_Click()  If Check1.Value = 1 Then     TChart1.Tools.Items(0).asSeriesAnimation.DrawEvery = 1  Else     TChart1.Tools.Items(0).asSeriesAnimation.DrawEvery = 0  End IfEnd SubPrivate Sub Form_Load()TChart1.AddSeries scBarTChart1.Series(0).ColorEachPoint = TrueTChart1.Tools.Add tcSeriesAnimationHScroll1.Min = 1HScroll1.Max = 255HScroll1.Value = 100TChart1.Series(0).FillSampleValues 6TChart1.Legend.Visible = FalseTChart1.Series(0).ValueFormat = "000"TChart1.Tools.Items(0).asSeriesAnimation.Series = TChart1.Series(0)TChart1.Tools.Items(0).asSeriesAnimation.StartAtMin = FalseEnd SubPrivate Sub HScroll1_Change()TChart1.Tools.Items(0).asSeriesAnimation.Steps = HScroll1.ValueLabel2.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Label2.Caption = HScroll1.ValueEnd SubPrivate 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 WithEnd IfEnd Sub

查看Teechart.Net系列教程>>

购买TeeChart Pro AciveX正版授权，请点击“咨询在线客服”哟！