TeeChart Pro 將自動為您定義所有 Axis 標簽，并提供足夠的靈活性來定制您可能有的任何特定要求。 TeeChart Pro 提供真正的多軸。 這些在設計或運行時可用，并為 Axis 定義提供了無數的可能性和靈活性。

帆布筆和畫筆

上面的 Line 是使用為繪制 Line 之前繪制的最后一個對象定義的 Pen 和 Brush 繪制的。 那可能是也可能不是您想要的筆。 相應地更改鋼筆：

[C#] 
private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        Point p5 = new Point(line1.CalcXPos(5), line1.CalcYPos(5)); 
        Point p15 = new Point(line1.CalcXPos(15), line1.CalcYPos(15)); 
        g.Pen.DashCap = System.Drawing.Drawing2D.DashCap.Triangle; 
        g.Pen.EndCap = System.Drawing.Drawing2D.LineCap.DiamondAnchor; 
        g.Pen.Style = System.Drawing.Drawing2D.DashStyle.DashDotDot; 
        g.Pen.Transparency = 70; 
        g.Pen.Width = 3; 
        g.Pen.Color = Color.BlueViolet; 
        g.MoveTo(p5); 
        g.LineTo(p15, 0); 
} 
 
[VB.Net] 
Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim P5 As New Point(Line1.CalcXPos(5), Line1.CalcYPos(5)) 
        Dim P15 As New Point(Line1.CalcXPos(15), Line1.CalcYPos(15)) 
        g.Pen.DashCap = System.Drawing.Drawing2D.DashCap.Triangle 
        g.Pen.EndCap = System.Drawing.Drawing2D.LineCap.DiamondAnchor 
        g.Pen.Style = System.Drawing.Drawing2D.DashStyle.DashDotDot 
        g.Pen.Transparency = 70 
        g.Pen.Width = 3 
        g.Pen.Color = Color.BlueViolet 
        g.MoveTo(P5) 
        g.LineTo(P15, 0) 
End Sub 

添加 2D 形狀

以與 Canvas Lines 類似的方式添加 Canvas Shapes。 以下示例在圖表區域的中心添加一個矩形：

• 二維圖表

2D 圖表僅支持 2D 形狀。

[C#] 
private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        Size s = new Size(100,100); 
        Point l = new Point(g.ChartXCenter - (s.Width / 2), g.ChartYCenter - (s.Height / 2)); 
        Rectangle r = new Rectangle(l,s); 
        g.Pen.Color = Color.Aquamarine; 
        g.Brush.Color = Color.Blue; 
        g.Rectangle(r); 
} 
 
[VB.Net] 
Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim S As New Size(100, 100) 
        Dim L As New Point(g.ChartXCenter - (S.Width / 2), g.ChartYCenter - (S.Height / 2)) 
        Dim R As New Rectangle(L, S) 
        g.Pen.Color = Color.Aquamarine 
        g.Brush.Color = Color.Blue 
        g.Rectangle(R) 
End Sub 

• 3D 圖表

在 3D 圖表上，您也可以在 Z 平面中移動矩形。此示例將矩形放置在左墻上，但將其移向圖表后部的一半（朝向后墻）。

[C#] 
private void Form1_Load(object sender, System.EventArgs e) { 
        point3DSeries1.LinePen.Visible = false; 
        point3DSeries1.FillSampleValues(20); 
        point3DSeries1.VertAxis = VerticalAxis.Both; 
        point3DSeries1.HorizAxis = HorizontalAxis.Both; 
        tChart1.Aspect.Chart3DPercent = 50; 
        tChart1.Axes.Depth.Visible = true; 
} 
 
private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        Size s = new Size(100,100); 
        Point l = new Point(tChart1.Axes.Left.Position, g.ChartYCenter - (s.Height / 2)); 
        Rectangle r = new Rectangle(l,s); 
        g.Pen.Color = Color.Aquamarine; 
        g.Brush.Color = Color.Blue; 
        g.Rectangle(r, tChart1.Aspect.Width3D/2); 
} 
 
[VB.Net] 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Point3DSeries1.LinePen.Visible = False 
        Point3DSeries1.FillSampleValues(20) 
        Point3DSeries1.VertAxis = Steema.TeeChart.VerticalAxis.Both 
        Point3DSeries1.HorizAxis = Steema.TeeChart.HorizontalAxis.Both 
        TChart1.Aspect.Chart3DPercent = 50 
        TChart1.Axes.Depth.Visible = True 
End Sub 
 
Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim S As New Size(100, 100) 
        Dim L As New Point(TChart1.Axes.Left.Position, g.ChartYCenter - (S.Height / 2)) 
        Dim R As New Rectangle(L, S) 
        g.Pen.Color = Color.Aquamarine 
        g.Brush.Color = Color.Blue 
        g.Rectangle(R, TChart1.Aspect.Width3D / 2) 
End Sub 

添加 3D 形狀

您可以將 3D 形狀添加到 3D 圖表。 此示例在 Chart 矩形的中間繪制一個 Cube：

[C#] 
private void Form1_Load(object sender, System.EventArgs e) { 
        point3DSeries1.LinePen.Visible = false; 
        point3DSeries1.FillSampleValues(20); 
        tChart1.Aspect.Chart3DPercent = 50; 
        tChart1.Legend.Visible = false; 
        tChart1.Axes.Depth.Visible = true; 
} 
 
private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        Size s = new Size(50,50); 
        Point p = new Point(g.ChartXCenter - (s.Width/2), g.ChartYCenter - (s.Height/2)); 
        Rectangle r = new Rectangle(p,s); 
        g.Cube(r, 0, 20, true); 
} 
 
[VB.Net] 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Point3DSeries1.LinePen.Visible = False 
        Point3DSeries1.FillSampleValues(20) 
        TChart1.Aspect.Chart3DPercent = 50 
        TChart1.Legend.Visible = False 
        TChart1.Axes.Depth.Visible = True 
End Sub 
 
Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim S As New Size(50, 50) 
        Dim P As New Point(g.ChartXCenter - (S.Width / 2), g.ChartYCenter - (S.Height / 2)) 
        Dim R As New Rectangle(P, S) 
        g.Cube(R, 0, 20, True) 
End Sub 

如果您想了解TeeChart for .NET正版價格，歡迎咨詢