Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.