tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。