VB.NET質問ｽﾚ (Part21)

VB.NET質問ｽﾚ (Part21 ..

367:デフォルトの名無しさん
07/05/25 21:01:44
>>363
希望するのはこういう動作？

　　Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
　　　　MyBase.OnLoad(e)
　　　　For Each c As Control In Me.Controls
　　　　　　AddHandler c.MouseMove, AddressOf Chileds_MouseMove
　　　　　　AddHandler c.MouseLeave, AddressOf Chileds_MouseLeave
　　　　Next
　　End Sub

　　Private Sub Chileds_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
　　　　Dim pt As Point = MousePositionByClientCoordinate()
　　　　Dim ev As New MouseEventArgs(e.Button, e.Clicks, pt.X, pt.Y, e.Delta)
　　　　MyClass.OnMouseEnter(New EventArgs)
　　　　Me.OnMouseMove(ev)
　　End Sub

　　Private Sub Chileds_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
　　　　MyClass.OnMouseLeave(New EventArgs)
　　End Sub

　　Private Function MousePositionByClientCoordinate() As Point
　　　　Return Me.PointToClient(Control.MousePosition)
　　End Function

　　Private Function IsMouseOnMe() As Boolean
　　　　Dim pt As Point = MousePositionByClientCoordinate()
　　　　Return Me.ClientRectangle.Contains(pt)
　　End Function

次ページ