Dim FormH As Long '窗口高度差 Dim FormW As Long '窗口宽度差 '以上两个变量为窗口实际大小(Winth、Height)与窗口 '实际工作区(ScaleWidth、ScaleHeight)的差值。 '由于ScaleWidth和ScaleHeight的获取速度较慢,使用 '这两个变量会使图片在缩放过程中严重停滞,因此本 '实例不采用这两个属性。
Private Sub MDIForm_Load() Picture1.AutoRedraw = True '设置持久位图 Picture1.Visible = False '隐藏picture1 '以上两个属性必须 FormH = 0 '高度差值=me.Height - me.ScaleHeight + 工具栏(ToolBox) + 提示栏 FormW = 120 ' '如果图片要求不过于苛刻,以上两个参数可以全部设置为0 End Sub