'picImg: original picture
'img: picture after zoomed
'm_nWidth, m_nHeight: picture size to be zoomed
nTileX = picImg.Width / m_nWidth
nTileY = picImg.Height / m_nHeight
If nTileX < nTileY Then
img.Width = img.Width * nTileX / nTileY
Else
img.Height = img.Height * nTileY / nTileX
End If
img.Picture = picImg.Picture
'img: picture after zoomed
'm_nWidth, m_nHeight: picture size to be zoomed
nTileX = picImg.Width / m_nWidth
nTileY = picImg.Height / m_nHeight
If nTileX < nTileY Then
img.Width = img.Width * nTileX / nTileY
Else
img.Height = img.Height * nTileY / nTileX
End If
img.Picture = picImg.Picture
Comments
Post a Comment