【精】VB MDIForm實現等比全屏縮放實例

'MDIForm實現等比全屏縮放實例
'要求：1、在MDIForm內放兩個Picture，
'       其中Picture2放在Picture1內；
'      2 、Picture2作爲圖片載體，放上

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

Private Sub MDIForm_Resize()
  'Picture1.Width = Me.Width - FormW
  Picture1.Height = Me.Height - FormH
'以上兩行需要看Picture1的形態，如果爲貼近頂端和底部，則需要使用第二行否則使用第一行
    Picture1.PaintPicture Picture2.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, , , vbSrcCopy
  Me.Picture = Picture1.Image
'將Picture1內已被挑中比例的圖片傳遞到MDIForm
End Sub