【TeeChart Pro ActiveX教程】（十五）：3D图表-控件新闻-慧都网

【TeeChart Pro ActiveX教程】（十五）：3D图表

翻译|使用教程|编辑：王香|2019-01-18 10:15:37.000|阅读 233 次

概述：您可以在设计时使用图表编辑器定义主要的2D / 3D显示选项。

# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>

图表显示模式

（3D）图表编辑器页面

您可以在设计时使用图表编辑器定义主要的2D / 3D显示选项。

Teechart

2D图表

可以使用图表编辑器在设计时选择2D图表。取消选中“编辑器”页面上的3D复选框可将图表置于2D模式。在运行时，您可以随时将图表更改为2D：

[C＃]

tChart1.Aspect.View3D = false;

[VB.Net]

TChart1.Aspect.View3D = False

使用2D图表不会出现任何特殊问题。所有对象坐标都是相对于图表面板或图表矩形的位置，不需要对3D偏移进行任何限制（请参阅以下部分）。

3D正交图

3D正交模式是获得3D“效果”的默认方式。TeeChart根据TChart1.Aspect.Chart3DPercent属性设置（在图表编辑器页面上的设计时也可用）以正交角度绘制深度效果。您无法旋转3D正交图表，底部轴始终是水平的。使用3D正交图表时，您需要在自定义绘制到画布时考虑Width3D和Height3D 3D偏移。如果您希望绘制的项目与图表后墙齐平，则应添加偏移量。请参阅以下示例：

此示例在图表中绘制一条对角线，刷新到图表的前面：

[C＃]

private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        Point p1 = new Point(tChart1.Axes.Left.Position, tChart1.Axes.Top.Position); 
        Point p2 = new Point(tChart1.Axes.Right.Position, tChart1.Axes.Bottom.Position); 
        g.MoveTo(p1); 
        g.LineTo(p2, 0); 
}

[VB.Net]

Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim P1 As New Point(TChart1.Axes.Left.Position, TChart1.Axes.Top.Position) 
        Dim P2 As New Point(TChart1.Axes.Right.Position, TChart1.Axes.Bottom.Position) 
        g.MoveTo(P1) 
        g.LineTo(P2, 0) 
End Sub

此示例在图表中绘制一条对角线，并在图表背面绘制

[C＃]

private void tChart1_AfterDraw(object sender, Steema.TeeChart.Drawing.Graphics3D g) { 
        int width3D = tChart1.Aspect.Width3D; 
        Point p1 = new Point(tChart1.Axes.Left.Position, tChart1.Axes.Top.Position); 
        Point p2 = new Point(tChart1.Axes.Right.Position, tChart1.Axes.Bottom.Position); 
        g.MoveTo(p1, width3D); 
        g.LineTo(p2, width3D); 
}

[VB.Net]

Private Sub TChart1_AfterDraw(ByVal sender As Object, ByVal g As Steema.TeeChart.Drawing.Graphics3D) Handles TChart1.AfterDraw 
        Dim Width3D As Integer = TChart1.Aspect.Width3D 
        Dim P1 As New Point(TChart1.Axes.Left.Position, TChart1.Axes.Top.Position) 
        Dim P2 As New Point(TChart1.Axes.Right.Position, TChart1.Axes.Bottom.Position) 
        g.MoveTo(P1, Width3D) 
        g.LineTo(P2, Width3D) 
End Sub

在运行时使用3D图表的显示属性时使用Aspect界面。