这篇博客介绍了如何使用VB6编写代码，使窗体中的图片能够随着窗体大小的变化自动缩放，适用于创建具有换肤功能的窗口。通过定义`Image_Scaling`和`BilSger`两个子程序，实现了窗体加载图片并保持比例缩放，以及窗体调整大小时图片的动态适应。示例代码展示了如何在窗体加载和缩放时调用这些子程序。
'将下面的代码放到标准模块中：
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
最低0.47元/天 解锁文章
扫一扫
8236
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
