MouseLeaveを取得するには？ (ID:101858)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そうですね、0 を代入しておいてください。 Private Sub Capture(ByVal target As VB.Control, X As Single, Y As Single) If mHWND <> target.hWnd Then mHWND = target.hWnd SetCapture mHWND MouseEnter target End If If X < 0 Or Y < 0 Or X > target.Width Or Y > target.Height Then ReleaseCapture mHWND = 0 '★追加 MouseLeave target End If End Sub