怎样捕捉点击事件？请高手帮忙。谢谢

2006-03-23 11:57:12 205 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RV1126开发板性能实测：网络、温度与功耗全解析本文对RV1126开发板进行了全面的性能实测，重点分析了网络性能、温度表现与功耗特性。测试发现UDP带宽可达500Mbps，但TCP性能受限于协议栈；散热设计对持续性能至关重要，大板子在AI推理和视频推流中表现更稳定。为嵌入式开发者提供了真实的选型参考和优化建议。阅读详情

我使用VB做东西的，但最近碰见了问题，问了好多都解决不了。
所以本人来这里请教一下，能否通过调用API来解决。
问题使这样的。我在VB的一个窗体上方了一个播放Flash的控件。运行时要求Flash全屏显示。单击它时，进入主程序。但这个控件没有单击事件。能否通过调用API来解决。来捕获呢？？？

...全文

three.js开发3D地图记录（二）添加地图点击事件，点击区域，地图区域改变颜色并浮起来。阅读详情

fly@

VC/MFC 16,550 成员 421,606 内容

+ 关注 + 加入社区

切换为时间正序

fly@ 2006-03-29

打赏
举报

搞定了

fly@ 2006-03-28

打赏
举报

问高手一下。
Private Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Public hnexthookproc As Long
Const HC_ACTION = 0
Const WH_KEYBOARD = 2
Const WH_MOUSE = 7

Public Sub UnHookKBD()
UnhookWindowsHookEx hnexthookproc
End Sub

Public Function EnableKBDHook()
hnexthookproc = SetWindowsHookEx(7, AddressOf MyKBHFunc, App.hInstance, 0)
End Function

Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
If wParam = 513 Then ‘ 513 既是点击左键
UnHookKBD ‘卸载钩子函数
Unload Form1 ’ 执行到此处form1却无法卸载。form1上的flash仍在播放。
End If
End Function
以上代码在标准模块

以下是form1的代码：
Private Sub Form_Load()
SF1.Height = Screen.Height
SF1.Width = Screen.Width
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Form1.Top = 0
Form1.Left = 0
SF1.Movie = App.Path + "\1.swf"
Call EnableKBDHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.Show 1
End Sub

form2为一空白框体

fly@ 2006-03-27

打赏
举报

感谢各位指导,从今开始好好学习VC

wlwlxj 2006-03-26

打赏
举报

自己写代码判断，PtInRect

CUG122032 2006-03-26

打赏
举报

一窍不通可以学啊.

怎么这么懒呢?
从你问问题就看出来了.
别人都说用"钩子函数"了,就自己去看呗.

fly@ 2006-03-26

打赏
举报

我是学VB的，对API可一窍不通呀。

fly@ 2006-03-23

打赏
举报

感谢楼上，我的主要问题就是程序启动时，Flash在全屏播放。这时如何捕获鼠标单击事件。

shomay 2006-03-23

打赏
举报

我是用VC的，VB放下好多年了，忘了。

不过API一样的用，你看：

PtInRect
The PtInRect function determines whether the specified point lies within the specified rectangle. A point is within a rectangle if it lies on the left or top side or is within all four sides. A point on the right or bottom side is considered outside the rectangle.

BOOL PtInRect(
CONST RECT *lprc, // pointer to structure with rectangle
POINT pt // structure with point
);

这个函数就是用来判断某一点是否在某区域内的。你可以先截获鼠标消息，然后加入判短语句（至于VB具体怎么写这些语句，我的确是忘了语法）。

fly@ 2006-03-23

打赏
举报

感谢楼上高手。能否说的详细点。我对API不甚了解。

lixiaosan 2006-03-23

打赏
举报

获得整个控件的rect
得到点击的point

判断后者是否在rect内

shomay 2006-03-23

打赏
举报

呵呵……我算是看明白了，你不会是要我把源代码直接贴上来吧？

自己看去！！关于钩子函数的资料，这个论坛里多的是，一搜就一大堆了。我把代码给你了，你复制过去，程序好了，可是你还是不懂。

呵呵……作程序员，不能这样啊。

fly@ 2006-03-23

打赏
举报

感谢楼上指点，能否具体说一下，“钩子函数”呢？谢谢

shomay 2006-03-23

打赏
举报

如果你再问我怎么捕获用户鼠标信息……嗬嗬……我记得当时我用了钩子函数。

靠，突然想起来了，用了钩子函数，还要个P的Timer啊？

Sorry,sorry~~~~~呵呵……就用钩子函数吧。程序一起来，就把钩子按上，不管在那里动鼠标，你都可以检测到。哈哈……

shomay 2006-03-23

打赏
举报

如果Flash遮住了所有的窗口，也就是其他窗口无法响应鼠标或者键盘消息，那么……

根据我多年前用VB作了本科毕业设计的经验，用Timer吧。做一个100ms的Timer，准实时监测用户的鼠标动作。

嘿嘿，虽然看起来不够专业，但是一定管用。

怎样捕捉点击事件？请高手帮忙。谢谢

相关推荐