【窗口】VB安全子类化

  勇芳 2017-4-5 7786

通常子类化后,在IDE运行软件的话,遇到代码出错,停止,暂停软件,调试软件,VB 就崩溃

而用我做的,就没这个问题,任意调试。

注意的是:不小心点了VB的停止强制终止软件后,请关闭VB重开,否则VB会很容易崩溃。


QQ截图20170405225413.jpg

我做的是一个控件,放上控件,

Private Sub Form_Load()
VB安全子类化1.限制窗口大小 0, 0, 480, 400
VB安全子类化1.子类化窗口 Me.hWnd
End Sub

Private Sub VB安全子类化1_滚轮动作(ByVal Shift As Long, ByVal 滚轮 As Long, ByVal X As Long, ByVal Y As Long)
Label2 = "鼠标滚轮消息:" & Shift & "," & 滚轮 & "," & X & "," & Y
End Sub

Private Sub VB安全子类化1_自定消息(ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Label3 = "用户消息:" & wMsg & "," & wParam & "," & lParam
End Sub

'里面,有多种方案,

'1,同步处理全部消息,默认,其他的全注释掉代码,有需要可以开启

'2,选择性同步处理消息

'3,避免立即停止崩溃处理(代码没开启)

'4,异步处理消息


源码下载方法:

QQ群:78458582 (Basic编程学习资料) (收费入群)

在群文件中,文件太多,可以用查找帖子主题的部分字找到你要的资源。


因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部