VB6.0window消息处理方式

最新推荐文章于 2024-05-06 07:12:42 发布

小宁儿码码

最新推荐文章于 2024-05-06 07:12:42 发布

阅读量252

点赞数

分类专栏： VB 文章标签：汇编

本文链接：https://blog.csdn.net/tang_tx_001/article/details/129472417

版权

在这里插入图片描述

Attribute VB_Name = “Module1”
Option Explicit

Public Const WM_NCHITTEST = &H84 '移动鼠标，按住或释放鼠标时产生此消息
Public Const HTCAPTION = 2 '不返回给系统
Public Const HTCLIENT = 1 '正常返回给系统
Public Const WM_NCACTIVATE = &H86 '通过改变某个窗口的非客户区来表示窗口是处于激活还是非激活状态时，此消息被发送给该窗口

Public Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer
Public Declare Function CallWindowProc Lib “user32” Alias “CallWindowProcA” (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Const GWL_WNDPROC = -4 '为窗口设定一个新的处理函数。
Global lpPrev