タイトル : マウスカーソルからツールバーのボタン取得 投稿日 : 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 |