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

5 - Arrastrar una imagen ( Drag sobre un control image ) y copiar la imagen mediante OLE

Contenido

Arrastrar un control de imagen para copiar el gráfico.
Arrastrar imagen desde windows hacia el programa.
Ejemplos y código fuente relacionado.

Arrastrar un control de imagen para copiar el gráfico

Ejemplo en Visual Basic que muestra como podemos arrastrar un Control Image ( que tiene cargado una imagen) por el formulario, y cuando soltemos el mouse se realizará una copia de la imagen.

Nota. Si queremos moverla en cambio de copiarla, hay que cambiar una constante en el evento Form_OLEDragDrop de la variable Effect, por el valor vbDropEffectMove

arrastrar un Image y copiar la imagen cuando soltamos el mouse

Controles

Colocar un Control Image y cargarle una imagen:

Código fuente en el Formulario:

Option Explicit '*************************************************************************** '* Colocar un control Image con una imagen y luego arrastrar y soltar el gráfico '*************************************************************************** Dim Boton As Integer Private Sub Form_Load() ' Permitimos al control image una operacion de arrastre Image1.OLEDragMode = 1 Me.OLEDropMode = 1 End Sub Private Sub Form_OLEDragOver(data As DataObject, Effect As Long, _ Button As Integer, Shift As Integer, _ X As Single, Y As Single, State As Integer) 'Establecemos en esta variable el botón _ presionado, es decir el izquierdo o el derecho Boton = Button End Sub ' Evento que se ejecuta al soltar la imagen en el formulario Private Sub Form_OLEDragDrop(data As DataObject, Effect As Long, _ Button As Integer, Shift As Integer, _ X As Single, Y As Single) On Error Resume Next 'Le decimos que sea una copia de lo que vamos a arrastrar _ ' si queres mover el objeto, establece la variable effect _ en vbDropEffectMove Effect = vbDropEffectCopy If Boton = vbLeftButton Then 'Pintamos la imagen en el formualrio a partir del parámetro Data _ el 2 significa el formato de los datos, en este caso una imagen 'x e y corresponden a la posición del mouse cuando finaliza el arrastre _ para que la imagen se dibuje en la ubicación del puntero del Mouse Me.PaintPicture data.GetData(2), X, Y End If End Sub

Arrastrar imagen desde windows hacia un formulario

Este otro ejemplo , habilita el Drag Drop en el form, y al soltar una imagen bmp, gif , jpg etc, desde el explorador de windows, se asigna a la propiedad Picture del form dicho gráfico

Código fuente en el formulario

Option Explicit Private Sub Form_Load() ' Devuelve o establece si este objeto puede actuar _ como destino para una operación de colocar de OLE. Me.OLEDropMode = 1 MsgBox "Arrastrá una imagen desde windows hacia el form", vbInformation End Sub Private Sub Form_OLEDragDrop(Data As DataObject, _ Effect As Long, _ Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) If Data.GetFormat(vbCFFiles) Then On Error Resume Next ' asigna el gráfico Me.Picture = LoadPicture(Data.Files(1)) End If End Sub

Relacionados

Buscar en Recursos vb