鼠标点击vb窗体的标题栏触发什么事件-CSDN论坛

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165 结帖率 97.18%: 鼠标点击标题栏的时候，调用一个函数
如何实现？

0 2010-03-30 14:30:40

回复数 19 只看楼主引用举报楼主

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705

下面代码放在窗体中，窗体名称为Form1



Option Explicit

Private Sub Form_Load()

    prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

    SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

    SetWindowLong Me.hwnd, GWL_WNDPROC, prevWndProc

End Sub

下面代码放在模块中



Option Explicit



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

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const GWL_WNDPROC = (-4)

Public prevWndProc     As Long                   '窗口程序地址

    

Public Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    On Error GoTo ms:



    If wParam = 2 And Msg = 161 Then    'msg=161 鼠标单击 wParam:2 鼠标在标题栏上;8鼠标在最小化按钮上 9鼠标在最大化阿牛上 20 鼠标在关闭按钮上。

        ClickFunction (wParam)

    Else

        WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)

    End If

                  

    Exit Function

ms:

    MsgBox Err.Source & "-" & Err.Description

End Function



Public Function ClickFunction(ByVal l As Long)   '所要调用的函数。

    Form1.Print "点击了标题栏:" & l

End Function

然后点击鼠标试试。

0 2010-03-30 16:00:24

只看TA 引用举报 #1 得分 0

⋅水区到底发生了什么事情，谁把来龙去脉说清楚

⋅不给CSDN交钱，就是不尊重知识产权？？？我用的生产力软件都是正版的，但是我就是不给CSDN交钱，来怼我啊

⋅上个月得了第一庆祝下，决定帮助没有积分需要资源下载的小伙伴（限前10个符合条件的）

更多帖子

关注私信空间博客

贵阳老马马善福专业维修游泳...

本版专家分：51429

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

名人 2014年荣获名人称号
2013年荣获名人称号
2012年荣获名人称号

状元 2013年总版技术专家分年内排行榜第一

探花 2014年总版技术专家分年内排行榜第三: subclass WM_NCHITTEST消息即可。

0 2010-03-30 16:20:25

只看TA 引用举报 #2 得分 20

yu3350360 本版专家分：165: 谢谢咯。。。

0 2010-03-30 16:41:22

只看TA 引用举报 #3 得分 0

小泽zz 本版专家分：433: Mark

0 2010-03-30 17:31:08

只看TA 引用举报 #4 得分 0

⋅有没有熟悉或者销售MEMS仿真软件的？ ⋅有感而发！VB版太不给力了！ ⋅转让工控板卡 更多帖子 关注私信空间博客 贝隆 本版专家分：75697 红花 2013年8月 VB大版内专家分月排行榜第一 2013年3月 VB大版内专家分月排行榜第一 2012年10月 VB大版内专家分月排行榜第一 2012年9月 VB大版内专家分月排行榜第一 2012年8月 VB大版内专家分月排行榜第一 2012年7月 VB大版内专家分月排行榜第一 2012年6月 VB大版内专家分月排行榜第一 2012年5月 VB大版内专家分月排行榜第一 2012年4月 VB大版内专家分月排行榜第一 2012年3月 VB大版内专家分月排行榜第一 2012年2月 VB大版内专家分月排行榜第一 2012年1月 VB大版内专家分月排行榜第一 2011年12月 VB大版内专家分月排行榜第一 2011年11月 VB大版内专家分月排行榜第一 2011年10月 VB大版内专家分月排行榜第一 2011年9月 VB大版内专家分月排行榜第一 2011年8月 VB大版内专家分月排行榜第一 2011年7月 VB大版内专家分月排行榜第一 黄花 2011年1月 VB大版内专家分月排行榜第二 2010年10月 VB大版内专家分月排行榜第二 蓝花 2013年1月 VB大版内专家分月排行榜第三 2012年12月 VB大版内专家分月排行榜第三 2011年6月 VB大版内专家分月排行榜第三 2011年2月 VB大版内专家分月排行榜第三 2010年12月 VB大版内专家分月排行榜第三 2010年11月 VB大版内专家分月排行榜第三 2009年7月 VB大版内专家分月排行榜第三: UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

0 2010-03-30 19:31:49

只看TA 引用举报 #5 得分 0

makerj 本版专家分：24: 正好学习。顶！

0 2010-03-30 19:50:45

只看TA 引用举报 #6 得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165: 引用 1 楼 bestbadgod 的回复:
下面代码放在窗体中，窗体名称为Form1

VB code

Option Explicit
Private Sub Form_Load()
    prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub
……

用鼠标右键控制，并且窗体没有最大最小化和关闭按钮，该怎么实现呢？

0 2010-03-31 09:35:45

只看TA 引用举报 #7    得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165: 引用 7 楼 yu3350360 的回复:
引用 1 楼 bestbadgod 的回复:
下面代码放在窗体中，窗体名称为Form1

VB code

Option Explicit
Private Sub Form_Load()
prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf Wn……
用鼠标右键控制，并且窗体没有最大最小化和关闭按钮，该怎么实现呢？

顶一下哎。。。

0 2010-03-31 15:17:58

只看TA 引用举报 #8 得分 0

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705: 右键点击标题栏，系统已经默认弹出菜单。不过也可以去试试插入执行一个函数。
至于没有最大化和最小化按钮，则有2种方法选择
1：使着三个按钮都变灰不可用即可。
2：使用图片覆盖住这三个按钮。（换皮肤就是这么干的，拿图片覆盖住。）

0 2010-03-31 15:23:24

只看TA 引用举报 #9 得分 0

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705

模块中的代码：



Option Explicit



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

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const GWL_WNDPROC = (-4)

Public prevWndProc     As Long                   '窗口程序地址

    

Public Function WndProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    On Error GoTo ms:



    If wParam = 2 And msg = 161 Then    'msg=161 鼠标单击 wParam:2 鼠标在标题栏上;8鼠标在最小化按钮上 9鼠标在最大化阿牛上 20 鼠标在关闭按钮上。

        ClickFunction msg, wParam

    Else

        If msg = 164 Then

            Call RightClick(msg, wParam)

        Else

            WndProc = CallWindowProc(prevWndProc, hwnd, msg, wParam, lParam)

        End If

        

    End If

                  

    Exit Function

ms:

    MsgBox Err.Source & "-" & Err.Description

End Function



Public Function ClickFunction(ByVal msg As Long, ByVal l As Long)

    Form1.Print "左键点击了标题栏，msg值为:" & msg & "    wParam值为:" & l

End Function

Public Function RightClick(ByVal msg As Long, ByVal para As Long)

    Form1.Print "点击了右键,Msg值为：" & msg & "   wParam值为:" & para

End Function

0 2010-03-31 15:40:46

只看TA 引用举报 #10 得分 0

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705: 想右键点击标题栏后执行自己的函数，需要吃掉系统的弹出菜单功能。

0 2010-03-31 15:42:48

只看TA 引用举报 #11 得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165: 引用 11 楼 bestbadgod 的回复:
想右键点击标题栏后执行自己的函数，需要吃掉系统的弹出菜单功能。

thanks a lot

0 2010-03-31 16:08:45

只看TA 引用举报 #12 得分 0

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705: 引用 12 楼 yu3350360 的回复:
引用 11 楼 bestbadgod 的回复:
想右键点击标题栏后执行自己的函数，需要吃掉系统的弹出菜单功能。

thanks a lot

忙了半天分全跑别人口袋了。

0 2010-03-31 16:14:53

只看TA 引用举报 #13 得分 0

⋅类C1继承C0，C1所需空间大于C0；C1 *p=new C1; delete (C0*)p是不是不会完全释放new申请的内存？望大虾们指点！ ⋅转载：苹果+谷歌=全球最恐怖的监控系统？ ⋅破解时可以查找到某个指针变量出现的所有位置么？ 更多帖子 关注私信空间博客 zgklem 本版专家分：35: 引用 13 楼 bestbadgod 的回复:
引用 12 楼 yu3350360 的回复:
引用 11 楼 bestbadgod 的回复:
想右键点击标题栏后执行自己的函数，需要吃掉系统的弹出菜单功能。

thanks a lot

忙了半天分全跑别人口袋了。

O(∩_∩)O哈哈~，算了，也许她弄错了吧！

问一下，你的那个msg=161,msg=164从哪儿弄到的？有没有参考资料分享？

0 2010-03-31 18:18:16

只看TA 引用举报 #14 得分 0

⋅类C1继承C0，C1所需空间大于C0；C1 *p=new C1; delete (C0*)p是不是不会完全释放new申请的内存？望大虾们指点！ ⋅转载：苹果+谷歌=全球最恐怖的监控系统？ ⋅破解时可以查找到某个指针变量出现的所有位置么？ 更多帖子 关注私信空间博客 zgklem 本版专家分：35: 子处理这个消息就可以了！WM_NCRBUTTONDOWN

The WM_NCRBUTTONDOWN message is posted when the user presses the right mouse button while the cursor is within the nonclient area of a window. This message is posted to the window that contains the cursor. If a window has captured the mouse, this message is not posted.

0 2010-03-31 18:27:57

只看TA 引用举报 #15 得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165: 引用 13 楼 bestbadgod 的回复:
引用 12 楼 yu3350360 的回复:
引用 11 楼 bestbadgod 的回复:
想右键点击标题栏后执行自己的函数，需要吃掉系统的弹出菜单功能。

thanks a lot

忙了半天分全跑别人口袋了。

真的不好意思  是弄错了太着急了
我在发个帖子，关注一下吧  :)

0 2010-03-31 18:52:47

只看TA 引用举报 #16    得分 0

⋅问一个Join的问题 ⋅问一个Join的问题 ⋅Linq问题他求教 更多帖子 关注私信空间博客 倒大霉的上帝 本版专家分：5705: 引用 14 楼 zgklem 的回复:
O(∩_∩)O哈哈~，算了，也许她弄错了吧！

问一下，你的那个msg=161,msg=164从哪儿弄到的？有没有参考资料分享？

自己试出来的。

0 2010-04-01 08:42:35

只看TA 引用举报 #17 得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165: 引用 17 楼 bestbadgod 的回复:
引用 14 楼 zgklem 的回复:
O(∩_∩)O哈哈~，算了，也许她弄错了吧！

问一下，你的那个msg=161,msg=164从哪儿弄到的？有没有参考资料分享？

自己试出来的。

我也是帮别人的，呵呵。
我的那个朋友也问我，怎么没有查到这方面的资料。这回有答案了

0 2010-04-01 08:54:11

只看TA 引用举报 #18 得分 0

⋅IConnectivityManager 链接电脑，USB数据绑定 ⋅delete 何故会出错呢，code如下 ⋅看看下段程序会有啥样的错误，并解释原因 更多帖子 关注私信空间博客 yu3350360 本版专家分：165

引用 17 楼 bestbadgod 的回复:

引用 14 楼 zgklem 的回复:
O(∩_∩)O哈哈~，算了，也许她弄错了吧！

问一下，你的那个msg=161,msg=164从哪儿弄到的？有没有参考资料分享？

自己试出来的。

'怎么没有去我新发的帖子里，踩一下啊:)



 鼠标点击vb窗体的标题栏触发什么事件（补偿分数的，其他勿扰） [VB 基础类]  40  yu3350360

0 2010-04-01 17:38:38

只看TA 引用举报 #19 得分 0

鼠标点击vb窗体的标题栏触发什么事件 [问题点数：20分，结帖人yu3350360]