打印本文 打印本文 关闭窗口 关闭窗口
让VB开发环境支持鼠标滚轮
作者:武汉SEO闵涛  文章来源:敏韬网  点击数2828  更新时间:2009/4/23 18:59:51  文章录入:mintao  责任编辑:mintao
p;      {

                                            ::SendMessage(pMessage->hwnd,WM_VSCROLL,MAKEWPARAM(SB_LINEDOWN,0),(LPARAM)(pScroll==NULL?0:pScroll->GetSafeHwnd()));

                                            ::SendMessage(pMessage->hwnd,WM_VSCROLL,MAKEWPARAM(SB_ENDSCROLL,0),(LPARAM)(pScroll==NULL?0:pScroll->GetSafeHwnd()));

                                   }else if(((short) HIWORD(pMessage->wParam)>0))

                                   {

                                            ::SendMessage(pMessage->hwnd,WM_VSCROLL,MAKEWPARAM(SB_LINEUP,0),(LPARAM)(pScroll==NULL?0:pScroll->GetSafeHwnd()));

                                            ::SendMessage(pMessage->hwnd,WM_VSCROLL,MAKEWPARAM(SB_ENDSCROLL,0),(LPARAM)(pScroll==NULL?0:pScroll->GetSafeHwnd()));

                                   }

                          }

                          return 0;

                  }

         }

         return  CallNextHookEx(g_hWinProc,nCode,wParam,lParam);

}

       从上面的代码不难看出,解决问题的关键在于,截获所需要的消息(WM_MOUSEWHEEL),并将该消息转化为响应的消息(WM_VSCROLL)发送给目的窗口。其中,需要注意的是:我们使用的是全局钩子,所以,它会截获所有窗体的消息,因此,在程序中就要对消息和窗体进行判断,对于不是我们所要的,就放行,是我们要的,就处理。

       通过该问题的分析,我们不难发现,可以使用类似的方法实现某些程序的最小化时隐藏等功能,即当收到特定窗口的最小化消息时,向它发送WM_SHOWWINDOW消息,然后在通知区生成一个对应图标,如果用户点击图标则显示窗口。

上一页  [1] [2] [3] 

打印本文 打印本文 关闭窗口 关闭窗口