应用程序上屏蔽FLASH控件的右键菜单并获得左键消息

使用FLASH做界面美化是一种较为常见的方式,FLASH动画制做简单,美观大方,而且将FLASH嵌入到应用程序界面上也是非常容易的,只要放置一个Shockwave Flash控件即可。但这样做出来的界面有两个问题,一是在FLASH上点击右键会有FLASH的菜单,二是在FLASH上点击的鼠标消息从应用程序里是获取不到的,FLASH控件并不会向用应程序发送WM_LBUTTONDOWN等鼠标消息。解决的办法应该有很多,我使用了自定义窗口过程的方法,经过试验效果不错。以下都基于Visual C++ 6.0和MFC环境:首先需要为Flash控件生成变量,这一步借助ClassWizard可以轻松完成,略过。假如我们生成的Flash对象名为m_Flash1。下面就通过SetWindowLong函数为Flash控件自定义一个窗口过程:

LONG oldWndProc  =  NULL;
 oldWndProc  =  ::SetWindowLong(m_Flash1.m_hWnd, GWL_WNDPROC, (LONG)MyProc);

其中m_Flash1.m_hWnd用来取得FLASH控件的窗口句柄,常数GWL_WNDPROC表示我们要修改的是窗口过程,MyProc是一个自定义的窗口过程,函数返回旧的窗口过程的地址。下面就是这个自定义的窗口过程:

 LONG MyProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
  ... {
         if (msg  ==  WM_RBUTTONDOWN)      //  屏蔽右键 
                return   0 ;
         return  CallWindowProc((WNDPROC)oldWndProc, hwnd, msg, wParam, lParam);  // 调用原来的窗口过程 
 }

这里通过判断消息的类型是不是右键按下来屏蔽右键菜单,如果右键被按下,那么函数就直接返回,不去调用原来的窗口过程,因此右键菜单就不会出现了。如果要捕获鼠标左键消息,也可以在这里来处理,例如,下面的代码插在return语句之前则可以实现鼠标左键在FLASH上拖动时窗口可以随之拖动的效果: 

if (msg  ==  WM_LBUTTONDOWN)     
        PostMessage(AfxGetApp() -> m_pMainWnd -> m_hWnd, WM_NCLBUTTONDOWN, HTCAPTION,  0 ); 

值得注意的是,这里我只是向消息队列里又发送了一个WM_NCLBUTTONDOWN消息,而并没有让函数返回,因此后面的CallWindowProc 仍然会被调用,因此并不会影响到FLASH本身对鼠标左键的处理,使用起来效果很好,几乎看不出来这里是用FLASH制做的了。

转载于:https://www.cnblogs.com/rogee/archive/2011/04/20/2023012.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA的ListView控件是一种常用的界面元素,用于显示和管理数据列表。而ListView控件右键菜单能够为用户提供更多的操作选项和便利性。下面将针对VBA的ListView控件右键菜单进行详细解答。 首先,要为ListView控件添加右键菜单,需要借助VBA的ContextMenu对象,并通过代码动态创建菜单项。代码示例如下: ```VBA Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then '判断是否为右键单击事件 Dim menu As CommandBarPopup Set menu = CommandBars.Add(Name:="Context Menu", Position:=msoBarPopup).CommandBarPopup With menu.Controls.Add(Type:=msoControlButton) .Caption = "菜单项1" .OnAction = "菜单项1的代码" End With With menu.Controls.Add(Type:=msoControlButton) .Caption = "菜单项2" .OnAction = "菜单项2的代码" End With menu.ShowPopup End If End Sub ``` 在以上代码中,我们通过判断鼠标点击事件,如果是右键单击,则创建一个名为"Context Menu"的右键菜单,并添加两个菜单项,为菜单项指定对应的代码。 在菜单项的代码中,你可以编写相应的逻辑,实现需要的功能。例如,点击"菜单项1"时可以执行某个函数或方法,点击"菜单项2"时可以执行另一个函数或方法。 需要注意的是,以上的代码只是基础的示例,你可以根据自己的需求进行扩展和适应。可以根据ListView控件的选中项进行更加智能的菜单生成,或者添加更多的菜单项等等。 总之,通过VBA的ContextMenu对象和ListView控件的鼠标事件,我们可以为ListView添加右键菜单,以提供更多的交互和操作选项,提高用户体验。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值