C# と VB.NET の質問掲示板

■No52597 (こちこち さん) に返信

MenuStripコントロールの場合
http://dobon.net/vb/dotnet/control/menuitemselect.html

メニューをマウスで選択すると、下位メニューが表示されます。
タイマーを使ってフォーム外になると、下位メニューを非表示にします。

    'フォームのLoadイベントハンドラ
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        'イベントハンドラの追加
        AddHandler Menu1ToolStripMenuItem.Paint, AddressOf menu1ToolStripMenuItem_Paint
        AddHandler Menu2ToolStripMenuItem.Paint, AddressOf menu1ToolStripMenuItem_Paint
    End Sub

    'ToolStripMenuItemのPaintイベントハンドラ
    Sub menu1ToolStripMenuItem_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
        Dim item As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
        If item.Selected Then
            item.ShowDropDown()
        End If
    End Sub

    'Timerイベントハンドラ
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'マウスがフォーム外かチェック
        If Me.Bounds.IntersectsWith(New Rectangle(Form1.MousePosition.X, Form1.MousePosition.Y, 0, 0)) = False Then
            For Each item As ToolStripMenuItem In MenuStrip1.Items
                item.HideDropDown()
            Next
        End If
   End Sub

■No52619 (こちこち さん) に返信
> 大変すみませんが、フォームが特殊で、フォーム上にメニューが横に並んでいるだけで、
> メニューの下には何も無い横長バーだけのフォームなので、メニューを出しても
> 下層メニューを選択中に、マウスがフォーム外と判断されます。メニュー上にマウスがいるとでも
> 判断出来るのでしょうか？

現在はフォームサイズで判断しているので、メニューがフォームからはみ出す場合には対応していないですね。
で、子階層までなら下記の修正で出来ますが、孫階層まで判断するとなると、ちと面倒そうです。

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
　　　 'マウスがフォーム外かチェック
        If Me.Bounds.IntersectsWith(New Rectangle(Form1.MousePosition.X, Form1.MousePosition.Y, 0, 0)) = False Then
            For Each item As ToolStripMenuItem In MenuStrip1.Items
                If item.DropDown.IsDropDown = True Then
                    If item.DropDown.Bounds.IntersectsWith(New Rectangle(Form1.MousePosition.X, Form1.MousePosition.Y, 0, 0)) = False Then
                        item.HideDropDown()
                    End If
                End If
            Next
        End If
    End Sub