Sección de códigos , trucos y ejemplos para visual basic

105 - Ejemplo para realizar arrastre de controles sin los eventos de Drag and Drop

Contenido

Drag de formulario
De controles
Limitar el área de arrastre
Enlaces relacionados

1 - Drag drop de formulario

Este ejemplo muestra como realizar un Drag sobre un formulario sin utilizar el Api ni los eventos DragOver y DragDrop.

Lo que hace es, mediante unos flags y variables temporales (tempx y tempy), utilizar los eventos MouseMove, MouseDown y MouseUp del formulario para poder realizar el Drag

Colocar el código en un Form:

Option Explicit Dim tempX As Integer Dim tempy As Integer 'Flag para saber cuando está persionado el botón izq Dim Abajo As Boolean Private Sub Form_MouseDown( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) Abajo = True tempX = x tempy = y End Sub Private Sub Form_MouseMove( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) If Abajo Then Me.Top = Me.Top + y - tempy Me.Left = Me.Left + x - tempX End If End Sub Private Sub Form_MouseUp( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) 'cambiamos el Flag Abajo = False End Sub

2 - Drag&Drop De controles

Colocar un control ListBox en el formulario

Option Explicit Dim tempX As Integer Dim tempy As Integer Dim bDown As Boolean Private Sub List1_MouseDown( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) bDown = True tempX = x tempy = y End Sub Private Sub List1_MouseMove( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) If bDown Then List1.Top = List1.Top + y - tempy List1.Left = List1.Left + x - tempX End If End Sub Private Sub List1_MouseUp( _ Button As Integer, _ Shift As Integer, x As Single, y As Single) bDown = False End Sub

3 - Limitar el área de arrastre

En el siguiente zip hay un proyecto que muestra otra forma de poder hacer drag and drop sin los eventos de visual basic para arrastrar y soltar

En este caso para usarlos con controles : pictureBox, image, frame, labels y formularios ( cambiando algunas lineas se puede hacer para otros controles )

También tiene una propiedad para poder limitar en el momento del arrastre , el área del cursor , utilizando la función ClipCursor del api dentro del contenedor del objeto

Descargar

Enlaces relacionados - vb 6.0

Ejemplos de Drag&Drop

Recursos vb.net

Ejemplo igual a este pero en visual basic.net

Buscar en Recursos vb