1

かどうかを確認するにはどうすればよいですかmouse cursor enters any component in a panel。

マウスが私のチェックボックスに入ったときにチェックするためにこのコードを書き始めましたが、panelマウスがパネルのコンポーネントに入ったかどうかを実際にチェックする方法がわからないことに気付きました。

 Private Sub GenCheck()
    For Each CheckBox In datapanel1.Controls


    Next
End Sub

どうすればこれを行うことができますか?

編集

アイデアはあるが、よくわからない

私は言うことができました

 Private Sub GenCheck()



       Dim cb As CheckBox
    For Each cb In datapanel1.Controls
        AddHandler cb.MouseEnter, AddressOf cb_MouseEnter
        AddHandler cb.MouseLeave, AddressOf cb_MouseLeave
    Next



End Sub
Private Sub cb_MouseEnter(sender As Object, e As EventArgs)

End Sub

Private Sub cb_MouseLeave(sender As Object, e As EventArgs)

End Sub
4

2 に答える 2

1

*これを達成するための完璧な方法*

 Dim con As Control

    For Each con In datapanel1.Controls
        AddHandler con.MouseEnter, AddressOf con_MouseEnter
        AddHandler con.MouseLeave, AddressOf con_MouseLeave
    Next
End Sub
Private Sub con_MouseEnter(sender As Object, e As EventArgs)

    'DO SOMETHING'
End Sub

Private Sub con_MouseLeave(sender As Object, e As EventArgs)
   'DO SOMETHING'
End Sub
于 2013-07-09T19:23:40.897 に答える