请教VB高手一个点击控件的剖问题

来源：百度知道 编辑：UC知道 时间：2024/06/02 12:13:54
picture1时有很我控件，如我也不知道它们的名字，我想实现下列功能：
如果picture1里的任一控件被单击，则text1.text=10

请问上述怎么实现呢？
我想问的是不知道这些控件的名字，也不知道picture里面有多少控件。

提供你一个思路~~
做一个鼠标钩子(Hook)，Hook鼠标在整个Form中的点击事件，并判断鼠标在Form中的相对坐标，如果坐标在picture1控件范围内，则text1.text=10

网上有很多Hook鼠标的实例，您可以参考并修改成自己的程序。

只要定义一个CONTROLDOWN AS BOOLEN 就可以
在控件的Command1_Click()或者
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
写入以下代码
text1.text=10
具体可以细分