'将下面的代码放到标准模块中:
Option Explicit
Private Declare Function AlphaBlend Lib “msimg32.dll” (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib “kernel32.dll” (Destination As Any, Source As Any, ByVal Length As Long)
Private Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Public Pic As New StdPicture
Dim Panel As PictureBox
Dim Frm As Form
Public Sub Image_Scaling(P As Object) ’ 图片缩放
Dim ReturnWidth As Long, ReturnHeight As Long
'P.AutoRedraw = True
On Error Resume Next
If (Pic.Wi