Grote picturebox wijzigen dmv hoek verschuiven

Status
Niet open voor verdere reacties.

DuneII

Gebruiker
Lid geworden
3 apr 2009
Berichten
33
Voor een nieuw project wil ik dat je de grote van een picturebox kan wijzigen door op de hoek te klikken en die vervolgens verschuiven (zoiets als bij word met het invoegen van een plaatje). Zou dit mogelijk zijn? Zo ja, hoe?

Bvd,
Dune
 
Dat is zeker mogelijk :cool:

Code:
Dim allowDrag As Boolean = False
    Dim currentX As Integer
    Dim currentY As Integer

    'HIER ZET JE HOE GROOT DE MAXIMUM LINKERBOVENHOEK IS
    'OM TE KUNNEN VERSLEPEN
    Dim max As Integer = 20


    Private Sub picMove_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMove.MouseDown        
        If (e.X <= max And e.Y <= max) Then
            currentX = e.X
            currentY = e.Y
            allowDrag = True
        End If
    End Sub

    Private Sub picMove_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMove.MouseMove
        If (allowDrag) Then            
            picMove.Top -= currentY - e.Y
            picMove.Left -= currentX - e.X
        End If
    End Sub

    Private Sub picMove_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMove.MouseUp
        allowDrag = False        
    End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan