本文将续讲工具集中的网格转置工具、图像工具、标记提示工具和最近点工具。
一、网格转置工具
3D网格移调工具将基于网格的系列旋转90度来交换X和Z坐标。
设计时:
运行时:
Private Sub Command1_Click()
With TChart1.Tools.Items(0).asGridTranspose
.Transpose
End With
End Sub
Private Sub Form_Load()
With TChart1
.AddSeries scSurface
.Series(0).FillSampleValues 20
.Tools.Add tcGridTranspose
With .Tools.Items(0).asGridTranspose
.Series = TChart1.Series(0)
End With
End With
End Sub
二、图像工具
图像工具在指定的图表系列后面绘制图片(bitmap/位图,jpeg,gif,pcx)
设计时:
运行时:
With TChart1
.Tools.Add tcChartImage
With .Tools.Items(0)
.Active = True
.asChartImage.ImageLoad "C:\TestImages\MyImage.jpg"
End With
End With
三、标记提示工具
标记提示工具用于在鼠标点击(或单击)系列点时显示默认提示窗口。
设计时:
标记提示工具可以与特定系列关联,也可以保留默认情况下与任何图表系列无关。 样式定义要在“Mark Tips/标记提示”中显示的系列数据的类型,而“Mouse Action/鼠标操作”设置鼠标单击或移动时是否显示“Mark Tips/标记提示”。 延迟会在标记提示出现之前以毫秒为单位定义时间。
运行时:
With TChart1
.Tools.Add tcMarksTip
With .Tools.Items(0)
.Active = True
With .asMarksTip
.Delay = 1000
.MouseAction = mtmMove
.Series = 0
.Style = smsXY
End with
End With
End With
四、最近点工具
最近点工具将标记移动到最靠近光标的点。该工具可以与系列相关联或全局应用于图表。
设计时:
最近点工具需要与特定的图表系列相关联。 可以使用Pen配置其外观,以定义用于绘制工具和画笔的线条的颜色,样式,宽度和可见性,以定义用于填充工具区域的颜色和图案或图像。 “Draw Line/绘制线”启用/禁用光标位置和“Nearest Point/最近点工具”形状之间连接线的绘制,“Size/大小”定义此形状的大小,而“Style/样式”定义使用的形状类型。
运行时:
With TChart1
.Tools.Add tcNearest
With .Tools.Items(0)
.Active = True
With .asNearest
.DrawLine = True
.Pen.Color = vbBlue
.Series = 1
.Size = 20
.Style = hsDiamond
End with
End With
End With
转载于:https://blog.51cto.com/14257124/2370507