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

タイトル ： マウスカーソルからツールバーのボタン取得
投稿日： 2006/04/10(Mon) 12:04
投稿者： ひろ
[OSのVer]：WindowsXp　　　　[VBのVer]：VB.NET2003

フォームにツールバーを配置して複数のボタンを追加しました。
フォームにステータスバーを配置しました。
実行中、マウスカーソルがツールバーのボタン上にある時、
そのボタンの簡単な説明をスタータスバーに表示したいのですが、実現方法がわかりません。

MouseHoverイベントを使えばよいのかと思ったのですが、
ボタンのインデックスが取得できないどころか、
ボタンが無い部分にマウスカーソルが移動してもイベントが発生します。

どのような方法をとればよいでしょうか？

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
    With Me.ToolBar1.Buttons
        .Add(New ToolBarButton("aaa"))
        .Add(New ToolBarButton("bbb"))
        .Add(New ToolBarButton("ccc"))
    End With

    With Me.StatusBar1
        .Text = ""
        .SizingGrip = False
        .ShowPanels = True
        .Panels.Add("")
        .Panels(0).Width = Me.Width
    End With
End Sub

Private Sub ToolBar1_MouseHover(ByVal sender As Object, _
                                ByVal e As System.EventArgs) Handles ToolBar1.MouseHover
    'aaaボタンだったら
    Me.StatusBar1.Panels(0).Text = "aaaボタンです"
    'bbbボタンだったら
    Me.StatusBar1.Panels(0).Text = "bbbボタンです"
    'cccボタンだったら
    Me.StatusBar1.Panels(0).Text = "cccボタンです"
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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