91在线日,亚洲av秘无码一区牛牛影视,国产亚洲av片在线观看18女人

【TeeChart .NET教程】（六）使用系列

原創(chuàng)|使用教程|編輯：王香|2018-08-03 10:22:44.000|閱讀 1517 次

概述：本文詳細(xì)介紹在Teechart中使用系列的實(shí)際應(yīng)用

相關(guān)鏈接：

【下載TeeChart.Net最新版本】

（一）Series——系列類型

TChart Series類是所有Series類型的父屬性，使用TeeChart在線幫助獲取任何Series Type的幫助時(shí)，請點(diǎn)擊繼承類型列表中Series類的鏈接，然后單擊Series成員，其中將包含所有繼承屬性和方法的列表。

1.1 系列類結(jié)構(gòu)

作為TeeChart類型庫結(jié)構(gòu)的一小部分背景，下面是對系列類和接口的解釋。下圖顯示了TeeChart系列類之間的關(guān)系。所有類都派生自通用的“Series”類，因此共享“Series”屬性和方法。幾個抽象類派生自Series（Custom3DSeries，CustomBarSeries和CircledSeries），這些類以灰色突出顯示，并且它們的接口不能直接用于編程，它們的特性由其后代Series類型繼承。所有派生系列（橙色）均可在TeeChart圖庫中訪問，以包含在用戶的圖表中。以這種方式派生的TeeChart系列允許通過公共索引結(jié)構(gòu)對繼承的屬性和方法進(jìn)行可編程訪問（請參閱本節(jié)后面的示例代碼）。

teechart

在設(shè)計(jì)時(shí)使用TChart編輯器更容易添加Series，也可以在運(yùn)行時(shí)創(chuàng)建新的和不同的系列類型并將其添加到同一TChart。

[C#.Net]

//Add a series at runtime 
private void button1_Click(object sender, System.EventArgs e) 
        { 
            Steema.TeeChart.Styles.Area tmpAreaSeries = new Steema.TeeChart.Styles.Area(tChart1.Chart);  
            tmpAreaSeries.FillSampleValues(4); 
            //Or 
            //Steema.TeeChart.Styles.Area tmpAreaSeries = new Steema.TeeChart.Styles.Area(); 
            //tChart1.Series.Add(tmpAreaSeries); 
            //tmpAreaSeries.FillSampleValues(4); 
        }

[VB.Net]

'Add a series at runtime 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
         Dim tmpAreaSeries As New Steema.TeeChart.Styles.Area(TChart1.Chart) 
        tmpAreaSeries.FillSampleValues(4) 
        'Or 
        'Dim tmpAreaSeries As New Steema.TeeChart.Styles.Area() 
        'TChart1.Series.Add(tmpAreaSeries) 
        'tmpAreaSeries.FillSampleValues(4) 
End Sub

對于在設(shè)計(jì)時(shí)創(chuàng)建的任何系列，新系列都可以使用所有AreaSeries屬性和方法。

在同一圖表中混合不同系列類的一個示例是在設(shè)計(jì)時(shí)使用TeeChart編輯器將區(qū)域（Series(0)), Bar (Series(1)) and Line (Series(2)）系列添加到圖表中。所有訪問一個公共索引結(jié)構(gòu)，圖表的系列列表。使用該系列可能如下所示：

[C#.Net]

private void Form1_Load(object sender, System.EventArgs e) 
        { 
            //You could add the Series at runtime  
            Steema.TeeChart.Styles.Area area1 = new Steema.TeeChart.Styles.Area(tChart1.Chart); 
            Steema.TeeChart.Styles.Bar bar1 = new Steema.TeeChart.Styles.Bar(tChart1.Chart); 
            Steema.TeeChart.Styles.Line line1 = new Steema.TeeChart.Styles.Line(tChart1.Chart); 
 
            //Use Series common properties  
            tChart1.Series[0].FillSampleValues(10); 
            tChart1.Series[1].FillSampleValues(10); 
            tChart1.Series[2].FillSampleValues(10); 
            tChart1.Series[1].Marks.Visible = false; 
            tChart1.Series[2].Marks.Visible = false; 
 
            //Modify Bar specific properties  
            bar1.BarStyle = Steema.TeeChart.Styles.BarStyles.Pyramid; //Change Bar type  
            bar1.Pen.Color = Color.Yellow; //Bar bounding lines colour  
 
            //Modify Line specific properties  
            line1.Stairs = true; //Set line to Stairs  
            line1.LinePen.Color = Color.Blue; //LineSeries bounding lines colour  
 
            //Modify Area specific properties  
            area1.AreaBrush.Style = System.Drawing.Drawing2D.HatchStyle.Cross; //Area fill pattern  
        }

[VB.Net]

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        'You could add the Series at runtime  
        Dim Area1 As New Steema.TeeChart.Styles.Area(TChart1.Chart) 
        Dim Bar1 As New Steema.TeeChart.Styles.Bar(TChart1.Chart) 
        Dim Line1 As New Steema.TeeChart.Styles.Line(TChart1.Chart) 
 
        'Use Series common properties  
        TChart1.Series(0).FillSampleValues(10) 
        TChart1.Series(1).FillSampleValues(10) 
        TChart1.Series(2).FillSampleValues(10) 
        TChart1.Series(1).Marks.Visible = False 
        TChart1.Series(2).Marks.Visible = False 
 
        'Modify Bar specific properties  
        Bar1.BarStyle = Steema.TeeChart.Styles.BarStyles.Pyramid 'Change Bar type  
        Bar1.Pen.Color = Color.Yellow 'Bar bounding lines colour  
 
        'Modify Line specific properties  
        Line1.Stairs = True 'Set line to Stairs  
        Line1.LinePen.Color = Color.Blue 'LineSeries bounding lines colour  
 
        'Modify Area specific properties  
        Area1.AreaBrush.Style = System.Drawing.Drawing2D.HatchStyle.Cross 'Area fill pattern  
End Sub

1.2 選擇

系列類型為圖表選擇系列類型很大程度上取決于用戶自己對圖表的要求。但是，有時(shí)候，由于要繪制的變量數(shù)量，Chart的選擇可能取決于哪種Series類型支持輸入變量的數(shù)量。下表顯示了每種Series類型允許的變量數(shù)。

teechart

標(biāo)簽可用于擴(kuò)展2變量Series Type的值。請參閱下面的示例，該示例在同一圖表中使用3個Bar Series類型的實(shí)例。

示例

使用條形系列類型

產(chǎn)品代碼月產(chǎn)量數(shù)量

10 Jan 300

10 Feb 325

10 Mar 287

12 Jan 175

12 Feb 223

12 Mar 241

14 Jan 461

14 Feb 470

14 Mar 455

以最簡單的形式，數(shù)據(jù)生成以下圖表，按月對信息進(jìn)行分組：

teechart

代碼：

[C#.Net]

foreach(Steema.TeeChart.Styles.Series tSeries in tChart1.Series) 
{tSeries.Marks.Visible = false;} 
tChart1.Header.Text = "Production results"; 
 
bar1.Add(300,"Jan"); 
bar1.Add(325,"Feb"); 
bar1.Add(287,"Mar"); 
bar1.Title = "Product10"; 
 
bar2.Add(175,"Jan"); 
bar2.Add(223,"Feb"); 
bar2.Add(241,"Mar"); 
bar2.Title = "Product12"; 
 
bar3.Add(461,"Jan"); 
bar3.Add(470,"Feb"); 
bar3.Add(455,"Mar"); 
bar3.Title = "Product14";

[VB.Net]

Dim TSeries As Steema.TeeChart.Styles.Series 
For Each TSeries In TChart1.Series 
    TSeries.Marks.Visible = False 
Next 
TChart1.Header.Text = "Production results" 
 
Bar1.Add(300, "Jan") 
Bar1.Add(325, "Feb") 
Bar1.Add(287, "Mar") 
Bar1.Title = "Product10" 
 
Bar2.Add(175, "Jan") 
Bar2.Add(223, "Feb") 
Bar2.Add(241, "Mar") 
Bar2.Title = "Product12" 
 
Bar3.Add(461, "Jan") 
Bar3.Add(470, "Feb") 
Bar3.Add(455, "Mar") 
Bar3.Title = "Product14"

或(grouping by product):

teechart

代碼：

[C#.Net]

foreach(Steema.TeeChart.Styles.Series tSeries in tChart1.Series) 
{tSeries.Marks.Visible = false;} 
tChart1.Header.Text = "Production results"; 
 
bar1.Add(300,"Product10"); 
bar1.Add(175,"Product12"); 
bar1.Add(461,"Product14"); 
bar1.Title = "Jan"; 
 
bar2.Add(325,"Product10"); 
bar2.Add(223,"Product12"); 
bar2.Add(470,"Product14"); 
bar2.Title = "Feb"; 
 
bar3.Add(287,"Product10"); 
bar3.Add(241,"Product12"); 
bar3.Add(455,"Product14"); 
bar3.Title = "Mar";

[VB.Net]

Dim TSeries As Steema.TeeChart.Styles.Series 
For Each TSeries In TChart1.Series 
    TSeries.Marks.Visible = False 
Next 
TChart1.Header.Text = "Production results" 
 
Bar1.Add(300, "Product10") 
Bar1.Add(175, "Product12") 
Bar1.Add(461, "Product14") 
Bar1.Title = "Jan" 
 
Bar2.Add(325, "Product10") 
Bar2.Add(223, "Product12") 
Bar2.Add(470, "Product14") 
Bar2.Title = "Feb" 
 
Bar3.Add(287, "Product10") 
Bar3.Add(241, "Product12") 
Bar3.Add(455, "Product14") 
Bar3.Title = "Mar"

上表（Stock）中添加了新值。

產(chǎn)品代碼月份數(shù)量產(chǎn)生庫存水平

10 Jan 300 600

10 Feb 325 715

10 Mar 287 676

12 Jan 175 245

12 Feb 223 270

12 Mar 241 315

14 Jan 461 800

14 Feb 470 755

14 Mar 455 835

表中的庫存值通常高于月產(chǎn)量，因此顯示它們會給出下面的圖表（這次是2D）。圖表使用線系列來區(qū)分股票。

teechart

代碼：

將以下內(nèi)容添加到前面第一個示例的代碼中：

[C#.Net]

line1.Add(600,"Jan"); 
line1.Add(715,"Feb"); 
line1.Add(676,"Mar"); 
line1.Title = "Product10 Stock";  
line1.Color = bar1.Color; 
 
line2.Add(245,"Jan"); 
line2.Add(270,"Feb"); 
line2.Add(315,"Mar"); 
line2.Title = "Product10 Stock";   
line2.Color = bar2.Color; 
 
line3.Add(800,"Jan"); 
line3.Add(755,"Feb"); 
line3.Add(835,"Mar"); 
line3.Title = "Product10 Stock";   
line3.Color = bar3.Color;

[VB.Net]

Line1.Add(600, "Jan") 
Line1.Add(715, "Feb") 
Line1.Add(676, "Mar") 
Line1.Title = "Product10 Stock" 
Line1.Color = Bar1.Color 
 
Line2.Add(245, "Jan") 
Line2.Add(270, "Feb") 
Line2.Add(315, "Mar") 
Line2.Title = "Product10 Stock" 
Line2.Color = Bar2.Color 
 
Line3.Add(800, "Jan") 
Line3.Add(755, "Feb") 
Line3.Add(835, "Mar") 
Line3.Title = "Product10 Stock" 
Line3.Color = Bar3.Color

1.3 將數(shù)據(jù)添加到系列

大多數(shù)系列類型（ADO.NET數(shù)據(jù)源教程8和函數(shù)教程7除外）使用Add方法的24個泛型重載來添加數(shù)據(jù)。有一些例外，請參見下表：

teechart

除了ShapeSeries之外，所有系列特定的Add方法都會自動添加為通用Add方法的進(jìn)一步重載，因此可以從那里訪問（例如candleSeries1.Add（new）日期時(shí)間（2002,11,27），100400200300））。添加點(diǎn)示例時(shí)，可以為點(diǎn)添加顏色

顏色

[C#.Net]

bar1.Add(50,"Tomatoes",Color.Tomato);

[VB.Net]

Bar1.Add(50, "Tomatoes", Color.Tomato)

或者，用戶可以允許TeeChart分配顏色。如果Series.ColorEach = True，TeeChart將為每個新系列選擇最多19種唯一且尚未使用的顏色之一，或者為每個新系列點(diǎn)選擇一種顏色。

例：

[C#.Net]

Random rnd = new Random(); 
bar1.ColorEach = true; 
for(int i = 0; i < 19; ++i) 
{ 
     int higher = i + 65; 
     char letter = (char) higher; 
     bar1.Add(rnd.Next(100),letter.ToString()); 
}

[VB.Net]

Dim i As Integer 
Bar1.ColorEach = True 
For i = 0 To 19 
    Bar1.Add(Rnd() * 100, Chr(i + 65)) 
Next

可以向Point添加透明顏色，以便為ValueList中的值保留空間，而不會在Chart上顯示。

例：

[C#.Net]

bar1.Add(45, "My Transparent Bar", Color.Transparent);

[VB.Net]

Bar1.Add(45, "My Transparent Bar", Color.Transparent)

1.4 從系列中刪除數(shù)據(jù)點(diǎn)

使用系列中刪除數(shù)據(jù)點(diǎn)。刪除系列中的點(diǎn)。Series.Delete有兩個重載：

public Void Delete（System.Int32）

刪除系列中的第n個點(diǎn)。

public Void Delete（System.Int32，System.Int32）

從系列的第n個點(diǎn)開始刪除多個點(diǎn)。

例：

[C#.Net]

bar1.Delete(7,2);  (deletes two points starting from the 8th Series point (index starts at zero))

[VB.Net]

Bar1.Delete(7, 2)  (deletes two points starting from the 8th Series point (index starts at zero))

Series.Clear清除系列中的所有點(diǎn)。

1.5 將Null點(diǎn)添加到Series

Series.Add有三個重載，允許用戶向系列添加Null點(diǎn)：添加一個新的null（透明）點(diǎn)。

public Int32 Add（）

使用指定的文本添加新的null點(diǎn)。

public Int32 Add（System.String）

在指定的x值處添加一個帶有指定文本的新null值

public Int32 Add（System.Double，System.String）

上面的第二個重載將為系列添加一個Null點(diǎn)，允許你為該點(diǎn)定義一個標(biāo)簽，但在該點(diǎn)為系列留下一個中斷。在Line Series的情況下，中斷前的最后一個點(diǎn)不會連接到中斷后的第一個點(diǎn)。

例

[C#.Net]

line1.Add（“Null Point”）;

[VB.Net]

Line1.Add("Null Point")

（二）在圖表上混合系列類型

TeeChart Pro提供了一個空的Chart Canvas作為數(shù)據(jù)系列的背景，這意味著沒有預(yù)定義圖表類型，用戶可以將所需的圖表類型定義為要顯示的系列類型的混合。由于某些系列類型的特殊性質(zhì)，在Chart上將Series類型與另一個類型混合是不切實(shí)際的。當(dāng)用戶到達(dá)添加新系列時(shí)，TeeChart會通過在圖表庫中顯示不合適的系列類型來幫助用戶。用戶可以在一個圖表中放置的系列數(shù)量沒有實(shí)際限制。

2.1 添加新系列

使用TeeChart編輯器（參見）或按代碼添加系列。

例：

[C#.Net]

private void button1_Click(object sender, System.EventArgs e) 
        { 
            Bar bar1 = new Bar(tChart1.Chart); 
            bar1.FillSampleValues(10); 
        }

[VB.Net]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim Bar1 As New Steema.TeeChart.Styles.Bar(TChart1.Chart) 
        Bar1.FillSampleValues(10) 
End Sub

系列被添加到SeriesList，可以通過Index，TChart1.Series（Index）訪問，從第一個系列的0開始。TeeChart Pro為系列添加默認(rèn)名稱（系列0，系列1等）。用戶可以使用Series.Title屬性修改名稱。

2.2 選擇

添加到圖表系列的軸系列會自動將左軸和下軸作為參考軸，用戶可以通過選擇相關(guān)系列的“Series General（系列常規(guī)）”頁面來更改圖表編輯器中的參考軸。有4個軸可供選擇，Top，Left，Bottom和Right。通過代碼，更改軸將如下所示：

[C#.Net]

bar1.VertAxis = Steema.TeeChart.Styles.VerticalAxis.Right; 
bar1.HorizAxis = Steema.TeeChart.Styles.HorizontalAxis.Top;

[VB.Net]

Bar1.VertAxis = Steema.TeeChart.Styles.VerticalAxis.Right 
Bar1.HorizAxis = Steema.TeeChart.Styles.HorizontalAxis.Top

每個軸可以關(guān)聯(lián)1個以上的系列。TeeChart將決定適合與Axis匹配的系列的最佳比例，但用戶可以自己更改Axis音階（參見）。可以添加額外的軸; 他們將從前4個軸復(fù)制與其對應(yīng)關(guān)聯(lián)的比例。

2.3 連接系列

用戶可以使用Series作為另一個Series的數(shù)據(jù)源，通過設(shè)置第二系列的數(shù)據(jù)源，可以使用圖表編輯器完成此操作。轉(zhuǎn)到“Series（系列）”選項(xiàng)卡“Datasource（數(shù)據(jù)源）”頁面，選擇“Function”作為數(shù)據(jù)源類型，將出現(xiàn)兩個列表框，可用系列和選定系列，選擇要用作當(dāng)前系列的數(shù)據(jù)源的系列，然后在上面的Combobox中，標(biāo)題為Functions：，選擇Average作為功能類型，然后單擊Apply按鈕。請注意，以這種方式，任何Series都可以定義為任何其他Series的函數(shù)，F(xiàn)unction Type可以是Function組合框中可用的任何列表。要通過代碼執(zhí)行相同操作，請參閱下文：

[C#.Net]

Steema.TeeChart.Functions.Average average1 = new Steema.TeeChart.Functions.Average（）; 
line1.Function = average1; 
line1.DataSource = bar1; 
bar1.FillSampleValues（10）; 
line1.CheckDataSource（）;

[VB.Net]

Dim Average1 As New Steema.TeeChart.Functions.Average（）
Line1.Function = Average1 
Line1.DataSource = 
Bar1 Bar1.FillSampleValues（10）
Line1.CheckDataSource（）

2.4 更改系列訂單

使用圖表編輯器更改系列訂單非常簡單，轉(zhuǎn)到編輯器的半島外圍網(wǎng)上直營，突出顯示要移動的系列。使用右側(cè)的箭頭按鈕以系列順序向上或向下移動系列。系列訂單將決定圖表中系列相對于其他系列的相對顯示位置。將系列設(shè)置為“Active=False”將從圖表中隱藏系列，但保持其數(shù)據(jù)內(nèi)容不變。要通過代碼更改系列順序，請使用Series.Exchange。

[C#.Net]

tChart1.Series.Exchange(0, 1);  //Change Series(0) with Series(1) in the index order

[VB.Net]

TChart1.Series.Exchange(0, 1) 'Change Series(0) with Series(1) in the index order

*注意。交換Series后，系列的索引將被更改。因此，如果代碼重新運(yùn)行，上面的代碼行將永久地交換2系列'0'和'1'，因?yàn)?變?yōu)?，1變?yōu)?。

（三）系列價(jià)值表

TeeChart系列將其值存儲在可通過ValueList類訪問和修改的Valuelist中。

3.1 訪問系列值

用戶可以訪問列表中的任何值：

示例：

[C#.Net]

MessageBox.Show(bar1.YValues[3].ToString()); //Displays value of 4th point (index starts at 0) of a BarSeries

[VB.Net]

MsgBox(Bar1.YValues(3)) 'Displays value of 4th point (index starts at 0) of a BarSeries

以這種方式訪問??的值可用于設(shè)置Series數(shù)據(jù)：

[C#.Net]

            { 
                if(bar1.YValues[i] > 500) 
                { 
                    MessageBox.Show("Value: (" + bar1.XValues[i] + ", " + bar1.YValues[i] + ") exceeds limit"); 
                } 
            }

[VB.Net]

Dim i As Integer 
For i = 0 To Bar1.Count 
    If Bar1.YValues(i) > 500 Then 
        MsgBox("Value: (" & Bar1.XValues(i) & ", " & Bar1.YValues(i) & ") exceeds limit") 
    End If 
Next

可以通過一些Series方法和幾個Chart事件使用的PointIndex值獲得相同的值。

例

[C#.Net]

private void tChart1_ClickSeries(object sender, Steema.TeeChart.Styles.Series s, int valueIndex, System.Windows.Forms.MouseEventArgs e) 
        { 
            if(s.Equals(bar1)) 
            { 
                MessageBox.Show("ValueIndex is: " + valueIndex.ToString()); 
                MessageBox.Show("Point's YValue is " + bar1.YValues[valueIndex].ToString()); 
            } 
        }

[VB.Net]

Private Sub TChart1_ClickSeries(ByVal sender As Object, ByVal s As Steema.TeeChart.Styles.Series, ByVal valueIndex As Integer, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TChart1.ClickSeries 
        If s Is Bar1 Then 
            MsgBox("ValueIndex is: " & valueIndex) 
            MsgBox("Point's YValue is " & Bar1.YValues(valueIndex)) 
        End If 
End Sub

3.2 使用值的示例

此代碼根據(jù)用戶的鼠標(biāo)單擊修改BarSeries Bar的值。

示例

使用TChart.ClickSeries事件確定用戶單擊的位置。

[C#.Net]

private void tChart1_ClickSeries(object sender, Steema.TeeChart.Styles.Series s, int valueIndex, System.Windows.Forms.MouseEventArgs e) 
        { 
            UpDatePoint(valueIndex,tChart1.Axes.Left.CalcPosPoint((e.Y))); 
        }

[VB.Net]

Private Sub TChart1_ClickSeries(ByVal sender As Object, ByVal s As Steema.TeeChart.Styles.Series, ByVal valueIndex As Integer, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TChart1.ClickSeries 
        UpDatePoint(valueIndex, TChart1.Axes.Left.CalcPosPoint(e.Y)) 
End Sub

調(diào)用UpdatePoint Sub例程來修改Bar的值：

[C#.Net]

private void UpDatePoint(int Bar, double Y) 
        { 
            if(Bar < tChart1.Series[0].Count) 
            { 
                tChart1.Series[0].YValues[Bar] = Y; 
                tChart1.Series[0].Repaint();   
            }                                                              
        }

[VB.Net]

Private Sub UpDatePoint(ByVal Bar As Integer, ByVal Y As Double) 
        If Bar < TChart1.Series(0).Count Then 
            TChart1.Series(0).YValues(Bar) = Y 
            TChart1.Series(0).Repaint() 
        End If 
End Sub

（四）系列活動

上一節(jié)介紹了Series事件的一些用法，本節(jié)介紹了一些其他用途。

4.1 OnClickSeries

用戶可以使用OnClickSeries事件來獲取有關(guān)Series的幾乎所有信息。

這些示例適用于具有日期時(shí)間數(shù)據(jù)的系列，例如，這些測試值可用于以下事件示例：

[C#.Net]

private void button1_Click(object sender, System.EventArgs e) 
        { 
            Random rnd = new Random(); 
            line1.XValues.DateTime = true; 
            line1.Pointer.Visible = true; 
            line1.Add(DateTime.Parse("25/12/2002 10:30:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("25/12/2002 22:30:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("26/12/2002 09:20:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("26/12/2002 23:30:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("27/12/2002 11:10:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("27/12/2002 20:15:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("28/12/2002 08:15:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("28/12/2002 21:45:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("29/12/2002 12:45:00"),rnd.Next(100),"", Color.Red); 
            line1.Add(DateTime.Parse("29/12/2002 22:05:00"),rnd.Next(100),"", Color.Red); 
 
            line1.HorizAxis = Steema.TeeChart.Styles.HorizontalAxis.Top; 
        } 
 
private void tChart1_ClickSeries(object sender, Steema.TeeChart.Styles.Series s, int valueIndex, System.Windows.Forms.MouseEventArgs e) 
        { 
            //The below will show the Value of the nearest Point, not the exact Axis value at the clicked X and Y.  
            MessageBox.Show("Date is: " + DateTime.FromOADate(line1.XValues[valueIndex]) 
            + " Value is: " + line1.YValues[valueIndex]);  
        }

[VB.Net]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim rnd As New Random() 
        Line1.XValues.DateTime = True 
        Line1.Pointer.Visible = True 
        Line1.Add(DateTime.Parse("25/12/2002 10:30:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("25/12/2002 22:30:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("26/12/2002 09:20:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("26/12/2002 23:30:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("27/12/2002 11:10:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("27/12/2002 20:15:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("28/12/2002 08:15:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("28/12/2002 21:45:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("29/12/2002 12:45:00"), rnd.Next(100), "", Color.Red) 
        Line1.Add(DateTime.Parse("29/12/2002 22:05:00"), rnd.Next(100), "", Color.Red) 
 
        Line1.HorizAxis = Steema.TeeChart.Styles.HorizontalAxis.Top 
End Sub 
 
Private Sub TChart1_ClickSeries(ByVal sender As Object, ByVal s As Steema.TeeChart.Styles.Series, ByVal valueIndex As Integer, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TChart1.ClickSeries 
        'The below will show the Value of the nearest Point, not the exact Axis value at the clicked X and Y.  
        MsgBox("Date is: " & DateTime.FromOADate(Line1.XValues(valueIndex)) _ 
              & " Value is: " & Line1.YValues(valueIndex)) 
End Sub

4.2 OnGetSeriesPointerStyle

對于那些使用 TChart指針的系列，用戶可以使用OnGetSeriesPointer事件訪問和修改指針：

如果Point高于最后一個，則繪制一個Uptriangle，如果更低，則繪制一個UpTriangle等。

[C#.Net]

private void line1_GetPointerStyle(Steema.TeeChart.Styles.CustomPoint series, Steema.TeeChart.Styles.GetPointerStyleEventArgs e) 
        { 
            if(e.ValueIndex > 0) 
            { 
                if(line1.YValues[e.ValueIndex] > line1.YValues[e.ValueIndex - 1]) 
                { 
                    e.Style = Steema.TeeChart.Styles.PointerStyles.Triangle; 
                } 
                else if(line1.YValues[e.ValueIndex] < line1.YValues[e.ValueIndex - 1]) 
                { 
                    e.Style = Steema.TeeChart.Styles.PointerStyles.DownTriangle; 
                } 
                else 
                { 
                    e.Style = Steema.TeeChart.Styles.PointerStyles.Diamond; 
                } 
            } 
            else 
            { 
                e.Style = Steema.TeeChart.Styles.PointerStyles.Diamond; 
            } 
        }

[VB.Net]

Private Sub Line1_GetPointerStyle(ByVal series As Steema.TeeChart.Styles.CustomPoint, ByVal e As Steema.TeeChart.Styles.GetPointerStyleEventArgs) Handles Line1.GetPointerStyle 
        If e.ValueIndex > 0 Then 
            If (Line1.YValues(e.ValueIndex) > Line1.YValues(e.ValueIndex - 1)) Then 
                e.Style = Steema.TeeChart.PointerStyles.Triangle 
            ElseIf (Line1.YValues(e.ValueIndex) < Line1.YValues(e.ValueIndex - 1)) Then 
                e.Style = Steema.TeeChart.Styles.PointerStyles.DownTriangle 
            Else 
                e.Style = Steema.TeeChart.Styles.PointerStyles.Diamond 
            End If 
        Else 
            e.Style = Steema.TeeChart.Styles.PointerStyles.Diamond 
        End If 
End Sub

4.3 OnGetSeriesMark

使用OnGetSeriesMark事件在運(yùn)行時(shí)修改標(biāo)記內(nèi)容，以下代碼根據(jù)相對于最后一個的值改變MarkText;

TeeChart支持通過DragMarks工具在重疊的情況下拖動標(biāo)記：

[C#.Net]

private void line1_GetSeriesMark(Steema.TeeChart.Styles.Series series, Steema.TeeChart.Styles.GetSeriesMarkEventArgs e) 
        { 
            if(e.ValueIndex > 0) 
            { 
                if(line1.YValues[e.ValueIndex] > line1.YValues[e.ValueIndex - 1]) 
                { 
                    e.MarkText = e.MarkText + " (Up)"; 
                } 
                else if(line1.YValues[e.ValueIndex] < line1.YValues[e.ValueIndex - 1]) 
                { 
                    e.MarkText = e.MarkText + " (Down)"; 
                } 
                else 
                { 
                    e.MarkText = e.MarkText + " (No Change)"; 
                } 
            } 
        }

[VB.Net]

Private Sub Line1_GetSeriesMark(ByVal series As Steema.TeeChart.Styles.Series, ByVal e As Steema.TeeChart.Styles.GetSeriesMarkEventArgs) Handles Line1.GetSeriesMark 
        If (e.ValueIndex > 0) Then 
            If (Line1.YValues(e.ValueIndex) > Line1.YValues(e.ValueIndex - 1)) Then 
                e.MarkText = e.MarkText + " (Up)" 
            ElseIf (Line1.YValues(e.ValueIndex) < Line1.YValues(e.ValueIndex - 1)) Then 
                e.MarkText = e.MarkText + " (Down)" 
            End If 
        Else 
            e.MarkText = e.MarkText + " (No Change)" 
        End If 
End Sub

最近2個事件產(chǎn)生的圖表效果是：

teechart