como arrastrar una imagen
Publicado por vane (1 intervención) el 13/05/2004 17:50:46
Como puedo arrastrar una imagen bmp, jpg, etc a un pictureBox en un formulario que tengo en Visual Basic
Valora esta pregunta


0
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub PictureBox1_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox1.DragDrop
Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
If files.Length > 0 Then
Dim imageFile As String = files(0) ' Obtén la ruta del primer archivo arrastrado '
PictureBox1.Image = Image.FromFile(imageFile) ' Carga la imagen en el PictureBox '
End If
End Sub