Scale 方法

expandtri全部显示

Scale 方法为 Report 对象定义坐标系统。

expression.Scale(flags, x1, y1, x2, y2)

expression    必需。返回“应用于”列表中的一个对象的表达式。

flags     必需 Integer 型。

x1     必需 Single 型。其值定义了对象左上角位置的水平坐标。

y1     必需 Single 型。其值定义了对象左上角位置的垂直坐标。

x2     必需 Single 型。其值定义了对象右下角位置的水平坐标。

y2     必需 Single 型。其值定义了对象右下角位置的垂直坐标。

说明

只能在由报表节的 OnPrintOnFormat 事件属性,或报表的 OnPage 事件属性所指定的事件过程中使用该属性。

可以使用 Scale 方法将坐标系统重新设置为所选择的任何比例。使用不带任何参数的 Scale 方法,将会使坐标系统重新设置为Scale 方法影响 Print 方法和报表图形方法(包括 CircleLinePSet 方法)的坐标系统。

示例

下面的示例用一种比例画一个圆,然后使用 Scale 方法来更改比例,并用新的比例来画另一个圆。

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    DrawCircle

End Sub

Sub DrawCircle()

    Dim sngHCtr As Single, sngVCtr As Single

    Dim sngNewH As Single, sngNewV As Single

    Dim sngRadius As Single

    Me.ScaleMode = 3                     ' Set scale to pixels.

    sngHCtr = Me.ScaleWidth / 2     ' Horizontal center.

    sngVCtr = Me.ScaleHeight / 2     ' Vertical center.

    sngRadius = Me.ScaleHeight / 3     ' Circle radius.

    ' Draw circle.

    Me.Circle (sngHCtr, sngVCtr), sngRadius

    ' New horizontal scale.

    sngNewH = Me.ScaleWidth * 0.9

    ' New vertical scale.

    sngNewV = Me.ScaleHeight * 0.9

    ' Change to new scale.

    Me.Scale(0, 0)-(sngNewH, sngNewV)

    ' Draw circle.

    Me.Circle (sngHCtr + 100, sngVCtr), sngRadius, RGB(0, 256, 0)

End Sub