Access VBA教程:Scale方法

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

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

expression  必需。返回“Applies To”列表中的一个对象的表达式。

flags  必需 Integer 型。

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

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

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

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

说明

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

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

VBA示例

下面的示例用一种比例画一个圆,然后使用 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

上页:Access VBA教程:RunCommand方法 下页:Access VBA教程:导出报表快照 (Snapshot Viewer)

Access VBA教程:Scale方法

Access VBA教程:导出报表快照 (Snapshot Viewer) Access VBA教程:SetDefaultWorkgroupFile方法
Access VBA教程:SetFocus方法 Access VBA教程:SetHiddenAttribute方法
Access VBA教程:SetOption方法 Access VBA教程:SizeToFit方法
Access VBA教程:StringFromGUID方法 Access VBA教程:SysCmd方法
Access VBA教程:TextHeight方法 Access VBA教程:TextWidth方法
Access VBA教程:TransferSQLDatabase方法 Access VBA教程:Undo方法
Access VBA教程:UseDefaultFolderSuffix方法 Access VBA教程:AccessObject对象
Access VBA教程:AccessObjectProperty对象 Access VBA教程:AllFunctions集合
Access VBA教程:Application对象 Access VBA教程:BoundObjectFrame对象
Access VBA教程:CheckBox对象 Access VBA教程:CodeData对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号