如何激活另一个程序中listbox的click事件?
<p>我用sendmessage LB_SETCURSEL 改变了<font face="Verdana">另一个程序中</font>listbox的index,</p><p>但不能引发它的click事件,不知何解呢???</p>
<p> </p> <p>应该尝试用POSTMESSAGE发送单击消息过去.</p>
<p> </p>
<p>需要知道坐标与句柄:</p>
<p> </p>
<p><font face="Verdana"><br/>Private Function SendClick(hwnd As Long, mX As Long, mY As Long)<br/> '发送点击消息<br/> Dim I As Long<br/> <br/> I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)<br/> I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)<br/>End Function</font></p>
页:
[1]