如何用矩形完全覆盖窗口上的按钮，点击矩形时响应按钮点击的操作？

Question

在窗口中如何用矩形完全覆盖窗口上的一个按钮，点击矩形时响应按钮点击的操作。最好能给我一个小的示例。谢谢！

Answer 1

检测鼠标点击的位置，然后sendmessage

Answer 2

你的矩形shape吗？如是，则不用添加任何代码执行的就是按钮代码。
如过是图片，
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'将X，Y赋给公共变量如VraX,VarYEnd SubPrivate Sub Picture1_Click()
'if (VarX,VarY)在区域内 加上相应代码。
End Sub

Answer 3

SUB SHAPE1.CLICK ()
CMD1_CLICK
ENDSUB

Answer 4

看样子我必须描述清楚我的需求。1，程序执行中判断一个窗口中的控件；如果是按钮就画一个矩形或任何其他的图形完全盖在按钮上面，使按钮不可见。
2，当点击覆盖在上面的矩形或任何其他的图形时，响应点击按钮的操作。注意：我所说的意思不是在设计阶段做的，而是在运行阶段做的。我不会相应的API，所以向各位请教。如果只是上面各位的答案，我就不用问了。