VB中滑动鼠标中键缩放图片

最新推荐文章于 2020-11-21 23:53:28 发布

Dengyu1997

最新推荐文章于 2020-11-21 23:53:28 发布

阅读量4.5k

点赞数 1

分类专栏： VB/VB.NET 文章标签： vb function constants user integer api

本文链接：https://blog.csdn.net/dengyu1997/article/details/624000

版权

这篇博客介绍了如何在VB中使用API函数实现鼠标滚轮操作来缩放图片。通过定义常量、声明API函数，以及自定义窗口过程，实现了当用户滚动鼠标中键时，图片会相应地放大或缩小。

摘要由CSDN通过智能技术生成

'// Author: Qf
modSubClass.bas
Option Explicit

'// BitBlt API dwRop parameter constants
Private Const SRCAND = &H8800C6          ' (DWORD) dest = source AND dest
Private Const SRCCOPY = &HCC0020         ' (DWORD) dest = source
Private Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
Private Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
Private Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
Private Const SRCMERGEPAINT = &HBB0226
Private Const SRCDSNA = &H220326
'// SetStretchBltMode API nStretchMode parameter constants
Private Const STRETCH_ANDSCANS = 1
Private Const STRETCH_ORSCANS = 2
Private Const STRETCH_DELETESCANS = 3
Private Const STRETCH_HALFTONE = 4

Private Declare Function GetDC Lib "user32" (ByVal