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

---

下載TeeChart Pro ActiveX最新版本

本文將續(xù)講工具集中的網(wǎng)格轉(zhuǎn)置工具、圖像工具、標(biāo)記提示工具和最近點(diǎn)工具。

一、網(wǎng)格轉(zhuǎn)置工具

3D網(wǎng)格移調(diào)工具將基于網(wǎng)格的系列旋轉(zhuǎn)90度來交換X和Z坐標(biāo)。

設(shè)計(jì)時(shí)：

運(yùn)行時(shí)：

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）

設(shè)計(jì)時(shí)：

運(yùn)行時(shí)：

With TChart1
    .Tools.Add tcChartImage
    With .Tools.Items(0)
        .Active = True
        .asChartImage.ImageLoad "C:\TestImages\MyImage.jpg"
    End With
End With

三、標(biāo)記提示工具

標(biāo)記提示工具用于在鼠標(biāo)點(diǎn)擊（或單擊）系列點(diǎn)時(shí)顯示默認(rèn)提示窗口。

設(shè)計(jì)時(shí)：

標(biāo)記提示工具可以與特定系列關(guān)聯(lián)，也可以保留默認(rèn)情況下與任何圖表系列無關(guān)。 樣式定義要在“Mark Tips/標(biāo)記提示”中顯示的系列數(shù)據(jù)的類型，而“Mouse Action/鼠標(biāo)操作”設(shè)置鼠標(biāo)單擊或移動(dòng)時(shí)是否顯示“Mark Tips/標(biāo)記提示”。 延遲會在標(biāo)記提示出現(xiàn)之前以毫秒為單位定義時(shí)間。

運(yùn)行時(shí)：

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

四、最近點(diǎn)工具

最近點(diǎn)工具將標(biāo)記移動(dòng)到最靠近光標(biāo)的點(diǎn)。該工具可以與系列相關(guān)聯(lián)或全局應(yīng)用于圖表。

設(shè)計(jì)時(shí)：

最近點(diǎn)工具需要與特定的圖表系列相關(guān)聯(lián)。 可以使用Pen配置其外觀，以定義用于繪制工具和畫筆的線條的顏色，樣式，寬度和可見性，以定義用于填充工具區(qū)域的顏色和圖案或圖像。 “Draw Line/繪制線”啟用/禁用光標(biāo)位置和“Nearest Point/最近點(diǎn)工具”形狀之間連接線的繪制，“Size/大小”定義此形狀的大小，而“Style/樣式”定義使用的形狀類型。

運(yùn)行時(shí)：

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

查看Teechart.Net系列教程>>

購買TeeChart Pro AciveX正版授權(quán)，請點(diǎn)擊“”喲！