タイトル : Re^17: SendInput関数が Vistaで動作しないのですが? 投稿日 : 2009/09/17(Thu) 23:05 投稿者 : 靖
> 下記のように待ち時間を作って試して見て下さい。 > > y = y \ Screen.TwipsPerPixelX 'スクリーン座標に変換(通常=15) > 'Command1の真ん中にマウスポインタを移動 > Call SetCursorPos(x, y) > > Dim lngSt As Long > lngSt = Timer > Do While Timer - lngSt < 2 > DoEvents > Loop > Beep > > Dim MoEvents(1) As Integer > Command1 ボタンを直接クリックしたらメッセージボックスは表示されますよね。 直接クリックすれば表示されます。 >待ち時間を作って試して見て下さい。 これでも結果は同じでした。 遅くまでお付き合いいただき、ありがとうございました。 思いもかけぬところに原因があるのかな?とか考えています。 |