如何激活另一个程序中listbox的click事件?

everyone

<p>我用sendmessage LB_SETCURSEL 改变了<font face="Verdana">另一个程序中</font>listbox的index,</p>
<p>但不能引发它的click事件,不知何解呢???</p>
<p>&nbsp;</p>

马大哈

<p>应该尝试用POSTMESSAGE发送单击消息过去.</p>
<p>&nbsp;</p>
<p>需要知道坐标与句柄:</p>
<p>&nbsp;</p>
<p><font face="Verdana"><br/>Private Function SendClick(hwnd As Long, mX As Long, mY As Long)<br/>&nbsp;&nbsp;&nbsp; '发送点击消息<br/>&nbsp;&nbsp;&nbsp; Dim I As Long<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &amp;HFFFF) + (mY And &amp;HFFFF) * &amp;H10000)<br/>&nbsp;&nbsp;&nbsp; I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &amp;HFFFF) + (mY And &amp;HFFFF) * &amp;H10000)<br/>End Function</font></p>