タイトル : Re: ツールバーについて。 投稿日 : 2003/07/10(Thu) 18:30 投稿者 : NAO★
もっといい方法があるかもしれませんが… 次のようにしていただければ、マウスがボタンの上にある時を検知できますので そこで変更すればよいかと思います。 Private Sub ToolBar1_MouseMove(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles ToolBar1.MouseMove Dim tb As ToolBar.ToolBarButtonCollection Dim btn As ToolBarButton Dim rect As Rectangle Dim p As Point p = ToolBar1.MousePosition() 'マウスの座標 tb = ToolBar1.Buttons For Each btn In tb rect = RectangleToScreen(btn.Rectangle) ' ボタンの座標をクライアント領域で求める ' マウスがボタン領域内にあるか検査する If rect.X <= p.X And p.X <= rect.X + rect.Width And _ rect.Y <= p.Y And p.X <= rect.Y + rect.Height Then Debug.WriteLine("HIT") End If Next End Sub |