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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: 特定のコントロール上にマウスがある時

分類:[VB.NET/VB2005 以降]　

VB2008

いつもお世話になっております。

フォーム上に、Panel1を配置し、そのPanel1の中にPictueBox1を配置しております。

Panel上にマウスがある時に、PictueBox1のVisibleをTrueに、Panel上にマウスがない時は、VisibleをFalseに制御しております。
さらにPictueBox1にマウスがある場合も、PictueBox1は表示していたいのです。

現時点でのソースです。

Private Sub Panel1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel1.MouseEnter
　　　PictueBox1.Visible = True
End Sub

Private Sub Panel1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel1.MouseLeave
　　　PictueBox1.Visible = False
End Sub

しかし、これだと、PictueBox1にマウスが移動した際、Panel1_MouseLeaveが起こり、さらにPanel1_MouseEnterとループ状態になってしまいます。

PictueBox1にはClickイベントを用意しようと思っており、頭を悩ませております。
こんな時、どのすれば良いのでしょうか？
よろしくお願いします。

■No58691 (hs さん) に返信
> こんな時、どのすれば良いのでしょうか？

PictueBox1 も判定条件に加えるだけだと思いますが、浅はかでしょうか?

こんなんでどう？PictureBox1.MouseEnterは多分いらないと思う。

    Private Sub Panel1_MouseEnter(sender As Object, e As System.EventArgs) Handles Panel1.MouseEnter ', PictureBox1.MouseEnter
        PictureBox1.Visible = True
    End Sub

    Private Sub Panel1_MouseLeave(sender As Object, e As System.EventArgs) Handles Panel1.MouseLeave
        Dim pos = Panel1.PointToClient(Control.MousePosition)

        If Not PictureBox1.Bounds.Contains(pos) Then
            PictureBox1.Visible = False
        End If

    End Sub

■No58692 (じゃんぬねっとさん) に返信
■No58693 (shu さん) に返信

いつもありがとうございます。

shu さんのソースで、思う動作が実現できました。
ありがとうございました。

また何かあった時はよろしくお願いします。

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

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: 特定のコントロール上にマウスがある時

過去ログには書き込み不可