ZoomToFit方法示例

默认情况下，将为启用了增强型坐标的所有画面的运行模式启用“缩放到合适大小”。以下示例显示了如何针对画面禁用此“缩放到合适大小”功能。在本示例中，画面初始化代码将设置“ME.ZoomToFit False”。然后，将通过 ME.Zoom = 1 代码行将缩放系数设置为 1 (100%)：

Private Sub CFixPicture_Initialize()

Me.ZoomToFit False

Me.Zoom = 1

End Sub

注意：有关增强型坐标的更多信息，请参阅“创建画面”电子书中的画面坐标系主题。