不失真缩放图片

最新推荐文章于 2022-02-28 23:19:24 发布

cncco

最新推荐文章于 2022-02-28 23:19:24 发布

阅读量824

点赞数

分类专栏： VB

VB 专栏收录该内容

82 篇文章

订阅专栏

Option Explicit
'Form1上添加1个图片框picture1
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Private Const HALFTONE = 4
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source

Private Sub Form_Load()
        Picture1.Picture = LoadPicture("C:\images.jpg") '这时加入背景图,使其一运行就充满窗体
        Picture1.Visible = False
        Picture1.AutoRedraw = True
        Me.AutoRedraw = True
        Call Form_Resize
        Me.Refresh
        Me.AutoRedraw = False
End Sub

Private Sub Form_Resize()
        Dim Rtn As Long
        Dim hDC1 As Long, hDC2 As Long
        hDC1 = Picture1.hdc
        hDC2 = Me.hdc
        Call SetStretchBltMode(hDC2, HALFTONE)
        Rtn = StretchBlt(hDC2, 0, 0, Me.ScaleWidth, Me.ScaleHeight, hDC1, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
        Me.AutoRedraw = True
        Me.Refresh
End Sub

摘自http://my.youkuaiyun.com/chenjl1031的帖子