Dim x As Long, y As Long, pos As Long
x = 15
y = 15
x = x / 15
y = y / 15
pos = 65536 * y + x
 
SendMessage ByVal Me.hwnd, WM_LBUTTONDOWN, 0, ByVal pos
 SendMessage ByVal Me.hwnd, WM_LBUTTONUP, 0, ByVal pos这个为什么不行??? 在线等 谁帮我一下

解决方案 »

  1.   

    为什么要用API?直接用Form_Click不行吗?
      

  2.   

    SendMessage ByVal Me.hwnd, WM_LBUTTONDOWN, 0, ByVal pos
    不行吧,因为你在别的窗体上,使用me的话,并不是你想要得到的form
    所以你可以使用api先得到你想要操作的窗体的句柄,或者使用form1.hwnd
      

  3.   

    又:你定义WM_LBUTTONDOWN和WM_LBUTTONUP了么?
    Public Const WM_LBUTTONUP = &H202
    Public Const WM_LBUTTONDOWN = &H201
      

  4.   

    如果你不想用sendmessage的话,可以用me.Caption="内容",也可以的
      

  5.   

    我已经定义了常数我这段代码先在自己的窗口试 所以先用me.hwnd
     
      

  6.   

    首先需要考虑动作要延时执行,否则消息可能会被忽略(假设代码写在一个click事件里).
    然后是否消息正确地发送到了要被单击的按钮?如果是模拟了窗体被单击,那么发出去的消息是否和句柄相匹配了呢?