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

115 - Ejemplo de como hacer un Drag & Drop de gráficos

El siguiente código fuente muestra como poder hacer un Drag & Drop de una imagen cargada en un pictureBox a otro Picturebox.

Para esto se usa el método Drag en el evento MouseMove del Picturebox en cuestión para comenzar la operación de arrastre.

Picture1(Index).Drag 1

El valor 1, es equivalente a este constante: vbBeginDrag

Después en el Picture destino, en el evento DragDrop, se le establece ese gráfico.

Colocar un Picture llamado Picture1 con la propiedad index en 0 y a ese Picture cargarle un gráfico cualquiera.

Al ejecutar el proyecto se debe ver algo por el estilo:

Ejemplo de drag and drop de imagenes y graficos en visual basic - vista previa

Código en un formulario

Private Sub Form_Load() Picture1(0).AutoSize = True 'Colocamos el Picture principal en la esquina superior izq Picture1(0).Move 0, 0 'Cargamos dinamicamente 9 controles Picture uno al lado del otro For i = 1 To 10 Load Picture1(i) Picture1(i).Visible = True Picture1(i).Move Picture1(i).ScaleWidth * i Picture1(i) = LoadPicture("") Next End Sub Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X _ As Single, Y As Single) 'Al soltar Le establecemos el gráfico al Picture destino Picture1(Index).Picture = Source.Picture 'Borramos las demás For i = 0 To Picture1.Count - 1 If Index <> i Then Picture1(i).Picture = LoadPicture("") End If Next End Sub Private Sub Picture1_MouseDown(Index As Integer, Button As _ Integer, Shift As Integer, X As Single, Y As Single) 'Si arrastramos un picture que no tiene grafico salimos If Picture1(Index).Picture = Empty Then Exit Sub 'Comenzamos la operación de Drag para ese picture Picture1(Index).Drag 1 End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb