【TeeChart Pro ActiveX教程】（三）：圖表分頁

---

下載TeeChart Pro ActiveX最新版本

如果圖表的數據源包含的數據多于可以在一個圖表屏幕上清晰顯示的數據，您可能希望將圖表劃分為可以翻閱的頁面。這可以通過TeeChart編輯器或以編程方式實現。

使用圖表編輯器進行分頁

可以使用TeeChart Editor定義頁面大小。仍然需要將分頁按鈕或ChartPageNavigator組件添加到項目中，或者您可以在運行時使TeeChart Editor可用，以允許用戶使用編輯器更改頁面。 在設計時，在TeeChart Editor中選擇Paging頁面。

在“Points per Page”框中，鍵入（或滾動到）您希望在“Chart”頁面上看到的系列點數。如果您正在為系列編碼數據值，則在運行項目，填充系列并在運行時顯示圖表編輯器之前，導航按鈕不會突出顯示。如果連接到ADO.NET數據源，您應該看到分頁在設計時立即生效。

運行： 要在運行時通過圖表編輯器訪問分頁屬性，請使用ShowEditor。

[C#.Net]

tChart1.ShowEditor();

[VB.Net]

TChart1.ShowEditor() 

按代碼分頁

可以通過Page類獲取分頁屬性和方法。 向您的圖表添加分頁所需的步驟：

每頁定義點數

使用MaxPointsPerPage定義要在每個頁面上顯示的點數：

[C#.Net]

tChart1.Page.MaxPointsPerPage = 10; 

[VB.Net]

TChart1.Page.MaxPointsPerPage = 10 

將導航按鈕添加到圖表的表單

示例：第一頁

[C#.Net]

tChart1.Page.Current = 0; 

[VB.Net]

TChart1.Page.Current = 0

推進一個頁面

[C#.Net]

tChart1.Page.Next（）; 

[VB.Net]

TChart1.Page.Next（）

轉到上一頁

[C#.Net]

tChart1.Page.Previous（）; 

[VB.Net]

TChart1.Page.Previous（）

最后一頁

[C#.Net]

tChart1.Page.Current = tChart1.Page.Count; 

[VB.Net]

With TChart1 
  .Page.Current = .Page.Count 
End With 

決定如何處理最后一頁

最后一頁不太可能具有與其他圖表頁面中的點數量匹配的正確點數。您可以選擇縮放最后頁面，其中“最適合”剩余點到頁面，相應地調整軸刻度，或者您可以將頁面視為具有相同點數的先前頁面，這可能使最后一頁相當為空如果頁面的分數不多。

[C#.Net]

tChart1.Page.ScaleLastPage = false; （default = true）

[VB.Net]

TChart1.Page.ScaleLastPage = False  (default = True) 

向用戶顯示頁碼

PageNumber圖表工具可用于實現此目的：

[C#.Net]

private void Form1_Load(object sender, System.EventArgs e) 
        { 
            Bar bar1 = new Bar(); 
            PageNumber pageNumber1 = new PageNumber(); 
            tChart1.Series.Add(bar1); 
            tChart1.Tools.Add(pageNumber1); 
            bar1.FillSampleValues(100); 
            tChart1.Page.MaxPointsPerPage = 10; 
        } 
 
private void button1_Click(object sender, System.EventArgs e) 
        { 
            tChart1.Page.Previous(); 
        } 
 
private void button2_Click(object sender, System.EventArgs e) 
        { 
            tChart1.Page.Next(); 
        } 
 

[VB.Net]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Dim Bar1 As New Steema.TeeChart.Styles.Bar() 
        Dim PageNumber1 As New Steema.TeeChart.Tools.PageNumber() 
        TChart1.Series.Add(Bar1) 
        TChart1.Tools.Add(PageNumber1) 
        Bar1.FillSampleValues(100) 
        TChart1.Page.MaxPointsPerPage = 10 
End Sub 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        TChart1.Page.Previous() 
End Sub 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        TChart1.Page.Next() 
End Sub