11
2018
06

VB图片比例缩放

Private Sub Command1_Click()
Call ZoomImages(Image1, Me, True)
End Sub

Sub ZoomImages(objImg As Image, objFrm As Form, Optional ByVal isCenter As Boolean = False)
    Dim zoomScale# '缩放比率
    objImg.Stretch = True
    If objImg.ToolTipText <> "" Then 'InStr(objImg.ToolTipText, "$") <> 0 And
        objImg.Width = CSng(Mid$(objImg.ToolTipText, 1, InStr(objImg.ToolTipText, "$") - 1))
        objImg.Height = CSng(Mid$(objImg.ToolTipText, InStr(objImg.ToolTipText, "$") + 1))
        objImg.ToolTipText = ""
        If isCenter And objImg.Width < objFrm.Width And objImg.Height < objFrm.Height Then '判断是否居中
            objImg.Top = (objFrm.Height - objImg.Height) / 2
            objImg.Left = (objFrm.Width - objImg.Width) / 2
        End If
    Else
        'objImg.ToolTipText = objImg.Width & "$" & objImg.Height '记录初始大小 以备还原时读取
        objImg.Width = ScaleWidth
        objImg.Height = ScaleHeight
        objImg.Left = ScaleLeft
        objImg.Top = ScaleTop
    End If
    'objImg.Stretch = False
End Sub


« 上一篇 下一篇 »

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。