[VB] Drag Drop van een frame

[Verwijderd]

Ik wil runtime een frame over het scherm kunnen verplaatsen. Ik krijg het alleen niet voor elkaar.

Het mousedown event van het form werkt niet als ik op het frame klik.

En het Mouseup event van het frame niet als ik buiten het frame de muis weer los laat.

Heeft iemand misschien een stukje standaard code voor het over het scherm verplaatsen van een control.

Ik hoop dat ik niet zelf uren hierachter moet zitten terwijl iemand hoogstwaarschijnlijk de code zo heeft liggen.

Tnx

[Basszje]

Probeer het met Layers.

[Verwijderd]

Kijk eens op www.pscode.com, daar staan een paar goede dingen. Je moest een of andere property instellen, iets als DragStyle = Auto, ofzo...

[Verwijderd]

www.dynamicdrive.com is ook een goeie.

Zie http://www.dynamicdrive.com/dynamicindex11/genericdrag.htm bijvoorbeeld.

Dit zou dus ook voor controls moeten werken, gewoon in een DIV zetten.

[Dizzy]

Wat dacht je van het volgende:

code:

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static moving As Boolean
Static Fx As Single
Static Fy As Single
    If Button = 1 Then
      If moving Then
        Frame1.Move Fx + X, Fy + Y
        Fx = Frame1.Left
        Fy = Frame1.Top
      Else
        moving = True
        Fx = Frame1.Left - X
        Fy = Frame1.Top - Y
      End If
    Else
      moving = False
    End If
End Sub

Het nadeel van deze code is dat'ie de frame links boven aangrijpt, maar dit is even een quick-fix..