overnemen van een event

[bn2vs]

Is het mogelijk om een event die je op een form zet te laten gelden voor alle deel-elementen?

Ik heb dit nodig om het mogelijk te maken om mn form te verslepen met deze procedures

Dim newPoint As New System.Drawing.Point()
Dim a As Integer
Dim b As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        a = Me.MousePosition.X - Me.Location.X
        b = Me.MousePosition.Y - Me.Location.Y
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then
            newPoint = Me.MousePosition
            newPoint.X = newPoint.X - (a)
            newPoint.Y = newPoint.Y - (b)
            Me.Location = newPoint
        End If
    End Sub

Alvast bedankt

 

[Guus2005]

WithEvents

Ja, ik denk het wel. Je moet je even verdiepen in het statement WithEvents.

 

[bn2vs]

ok, thnx, ik zal er ff op googele