简要说明

形状的属性

示例

这个示例展示了如何创建一个 XRShape 星形类型的控件，并设置它的基本属性。

Show Me
在 DevExpress Code Central 数据库中可以找到完整的示例项目，网址是 http://www.devexpress.com/example=E160。取决于目标平台类型 (ASP.NET、WinForms 等)，可以在线运行本示例，或者下载自动可执行的示例。

C#	复制代码
using System; using System.Drawing; using System.Windows.Forms; using DevExpress.XtraReports.UI; using DevExpress.XtraPrinting.Shape; //... private void button1_Click(object sender, EventArgs e) { XtraReport1 report = new XtraReport1(); // Create a shape control. XRShape shape = new XRShape(); // Set the shape's type to Star. shape.Shape = new ShapeStar(); // Adjust the Star shape's main properties. shape.Angle = 90; shape.Width = 200; shape.Height = 200; shape.ForeColor = Color.Brown; shape.FillColor = Color.Beige; shape.Stretch = false; // Adjust the Star shape's specific properties. ((ShapeStar)shape.Shape).Concavity = 50; ((ShapeStar)shape.Shape).StarPointCount = 7; ((ShapeStar)shape.Shape).Fillet = 5; // Preview the report. report.Detail.Controls.Add(shape); report.ShowPreview(); }

复制代码

using System;
using System.Drawing;
using System.Windows.Forms;
using DevExpress.XtraReports.UI;
using DevExpress.XtraPrinting.Shape;
//...

private void button1_Click(object sender, EventArgs e) {
    XtraReport1 report = new XtraReport1();

    // Create a shape control.
    XRShape shape = new XRShape();

    // Set the shape's type to Star.
    shape.Shape = new ShapeStar();

    // Adjust the Star shape's main properties.
    shape.Angle = 90;
    shape.Width = 200;
    shape.Height = 200;
    shape.ForeColor = Color.Brown;
    shape.FillColor = Color.Beige;
    shape.Stretch = false;

    // Adjust the Star shape's specific properties.
    ((ShapeStar)shape.Shape).Concavity = 50;
    ((ShapeStar)shape.Shape).StarPointCount = 7;
    ((ShapeStar)shape.Shape).Fillet = 5;

    // Preview the report.
    report.Detail.Controls.Add(shape);
    report.ShowPreview();
}

Visual Basic	复制代码
Imports System Imports System.Drawing Imports System.Windows.Forms Imports DevExpress.XtraReports.UI Imports DevExpress.XtraPrinting.Shape '... Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _ Handles button1.Click Dim report As New XtraReport1() ' Create a shape control. Dim shape As New XRShape() ' Set the shape's type to Star. shape.Shape = New ShapeStar() ' Adjust the Star shape's main properties. shape.Angle = 90 shape.Width = 200 shape.Height = 200 shape.ForeColor = Color.Brown shape.FillColor = Color.Beige shape.Stretch = False ' Adjust the Star shape's specific properties. CType(shape.Shape, ShapeStar).Concavity = 50 CType(shape.Shape, ShapeStar).StarPointCount = 7 CType(shape.Shape, ShapeStar).Fillet = 5 ' Preview the report. report.Detail.Controls.Add(shape) report.ShowPreview() End Sub

Visual Basic

复制代码

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraPrinting.Shape
'...

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles button1.Click
    Dim report As New XtraReport1()

    ' Create a shape control.
    Dim shape As New XRShape()

    ' Set the shape's type to Star.
    shape.Shape = New ShapeStar()

    ' Adjust the Star shape's main properties.
    shape.Angle = 90
    shape.Width = 200
    shape.Height = 200
    shape.ForeColor = Color.Brown
    shape.FillColor = Color.Beige
    shape.Stretch = False

    ' Adjust the Star shape's specific properties.
    CType(shape.Shape, ShapeStar).Concavity = 50
    CType(shape.Shape, ShapeStar).StarPointCount = 7
    CType(shape.Shape, ShapeStar).Fillet = 5

    ' Preview the report.
    report.Detail.Controls.Add(shape)
    report.ShowPreview()
End Sub