VB将一张图片按比例缩放显示在一个Form或图像控件中

Option Explicit

Private Sub Form_Resize()
Call Image_Scaling(Me, App.Path & “\1.jpg”)
End Sub

'函数(显示图片的容器，图片路径)
Private Sub Image_Scaling(P As Object, URL As String)
Dim RX1 As Long, RY1 As Long, RX2 As Long, RY2 As Long, Pic As New StdPicture
Dim ReturnWidth As Long, ReturnHeight As Long
Set Pic = LoadPicture(URL)
P.AutoRedraw = True
If (Pic.Width > P.ScaleWidth Or Pic.Height > P.ScaleHeight) Then
If Pic.Width / Pic.Height >= P.ScaleWidth / P.ScaleHeight Then
ReturnWidth = P.ScaleWidth
ReturnHeight = P.ScaleWidth / Pic.Width * Pic.Height
Else
ReturnWidth = P.ScaleHeight / Pic.Height * Pic.Width
ReturnHeight = P.ScaleHeight
End If
Else
ReturnWidth = Pic.Width
ReturnHeight = Pic.Height
End If
P.Cls
RX1 = (P.ScaleWidth - ReturnWidth) / 2 'X
RY1 = (P.ScaleHeight - ReturnHeight) / 2 'Y
RX2 = RX1 + ReturnWidth - 8
RY2 = RY1 + ReturnHeight - 8
P.PaintPicture Pic, RX1, RY1, ReturnWidth, ReturnHeight
P.Line (RX1, RY1)-(RX2, RY2), RGB(255, 0, 0), B
End Sub