tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルリストBOX内から外にマウスが出た場合リストBOX消すについて
記事No10758
投稿日: 2012/03/31(Sat) 09:12
投稿者KI
フォーム上にリストBOXを配置してリストBOX内から外にマウスが移動した場合
リストBOXを消す処理を行っているのですが、リストBOXのスクロールバーが無い場合
は、OKなのですが、スクロールバーがある場合は、一度リスト内にマウスが入ってから
スクロールバーにマウスを持っていくと下記コードでは、リストBOXが消えてしまいます
どの様にすればスクロールバー上でも消えない様に出来るのでしょうか。
御教示下さい

Private Sub ListBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.MouseLeave


ListBox1 = False

End Sub

[ツリー表示へ]
タイトルRe: リストBOX内から外にマウスが出た場合リストBOX消すについて
記事No10759
投稿日: 2012/03/31(Sat) 10:43
投稿者VBレスキュー(花ちゃん)
>ListBox1 = False
これってエラーになりませんか?
(コードを投稿する場合は、実使用のものを投稿して下さい)

簡単な方法なら下記のようにすれば、投稿された質問内容はクリアしているかと。

Windows 7 / VB2010 で動作確認

Private frgListBox As Boolean

Private Sub ListBox1_MouseHover(sender As Object, e As System.EventArgs) Handles ListBox1.MouseHover
   frgListBox = True
End Sub

Private Sub Form1_MouseHover(sender As Object, e As System.EventArgs) Handles Me.MouseHover
   If frgListBox = True Then
      ListBox1.Visible = False
      frgListBox = False
   End If
End Sub

[ツリー表示へ]