VB.NET - drag & drop - copie d'une image

Question

J'ai fait un test de drag & drop d'une image.
Ca marche tr&#232;s bien pour le d&#233;placement mais j'aurrai  voulu
au lieu que ca d&#233;place, que ca copie l'image. j'ai regarder dans
les questions et les codes existant mais j'ai rien trouv&#233;.

pouvez vous m'aider

Merci

njck671 · Answer

jacknjck671
si tuveux copier vers un fichier c'est avec filesystem[namespace]
sinon avec graphics[namespace] et sa fonction save,saveadd etcc

morickno · Answer

je voi pas trops ce que tu veut dire

njck671 · Answer

jacknjck671
quand tu dis que tu veux copier,c vers un fichier x, ou vers un treeview, ou quoi?

morickno · Answer

copie vers une autre zone de ma feuille (un panel par exemple)

njck671 · Answer

jacknjck671
il faut que ton panel accepte le dragdrop....
dans l'evenement dragdrop du panel,utilise la methode effect.
voici un codesample de msdn qui est livr&#233; avec whidbey, si &#231;a peut t'aider

 Private Sub ListDragTarget_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles ListDragTarget.DragDrop
        ' Ensures that the list item index is contained in the data.

        If (e.Data.GetDataPresent(GetType(System.string))) Then

            Dim item As Object = CType(e.Data.GetData(GetType(System.string)), System.Object)

            ' Perform drag and drop, depending upon the effect.
            If (e.Effect = DragDropEffects.Copy Or _
                e.Effect = DragDropEffects.Move) Then

                ' Insert the item.
                If (indexOfItemUnderMouseToDrop <> ListBox.NoMatches) Then
                    ListDragTarget.Items.Insert(indexOfItemUnderMouseToDrop, item)
                Else
                    ListDragTarget.Items.Add(item)

                End If
            End If
            ' Reset the label text.
            DropLocationLabel.Text = "None"
        End If
    End Sub
il faudra surement que tu convertisse le string pour recuperer une url a partir de laquelle le panel choisira son image....

njck671 · Answer

jacknjck671
bon, j'ai trouv&#233; un meilleur exemple, ouvre un nouveau projet et insere ces lignes dans la class Form1....pour l'adapter au projet auquel tu travaille, assure toi que les controles conteneurs de  ton image supporte le dragdrop( tu le vois dans les proprietes, par exemple, une picture box n'a pas la propriete allowdrop, donc tu pourra pas y inserer directement des images)

Public 
Class Form1



Private picture 
As Image



Private pictureLocation 
As Point



'PENSER A >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Me.AllowDrop = True



Protected 
Overrides 
Sub OnPaint(
ByVal e 
As PaintEventArgs)



MyBase.OnPaint(e)



' If there is an image and it has a location, 



' paint it when the Form is repainted.



If 
Not (
Me.picture 
Is 
Nothing) 
And _



Not (
Me.pictureLocation.Equals(Point.Empty)) 
Then


e.Graphics.DrawImage(
Me.picture, 
Me.pictureLocation)



End 
If



End 
Sub



Private 
Sub Form1_DragDrop(
ByVal sender 
As 
Object, _



ByVal e 
As DragEventArgs) 
Handles 
MyBase.DragDrop



' Handle FileDrop data.



If e.Data.GetDataPresent(DataFormats.FileDrop) 
Then



' Assign the file names to a string array, in 



' case the user has selected multiple files.



Dim files 
As 
String() = 
CType(e.Data.GetData(DataFormats.FileDrop), 
String())



Try



' Assign the first image to the 'picture' variable.



Me.picture = Image.FromFile(files(0))



' Set the picture location equal to the drop point.



Me.pictureLocation = 
Me.PointToClient(
New Point(e.X, e.Y))



Catch ex 
As Exception


MessageBox.Show(ex.Message)



Return



End 
Try



End 
If



' Handle Bitmap data.



If e.Data.GetDataPresent(DataFormats.Bitmap) 
Then



Try



' Create an Image and assign it to the picture variable.



Me.picture = 
CType(e.Data.GetData(DataFormats.Bitmap), Image)



' Set the picture location equal to the drop point.



Me.pictureLocation = 
Me.PointToClient(
New Point(e.X, e.Y))



Catch ex 
As Exception


MessageBox.Show(ex.Message)



Return



End 
Try



End 
If



' Force the form to be redrawn with the image.



Me.Invalidate()



End 
Sub



Private 
Sub Form1_DragEnter(
ByVal sender 
As 
Object, _



ByVal e 
As DragEventArgs) 
Handles 
MyBase.DragEnter



' If the data is a file or a bitmap, display the copy cursor.



If e.Data.GetDataPresent(DataFormats.Bitmap) _



Or e.Data.GetDataPresent(DataFormats.FileDrop) 
Then


e.Effect = DragDropEffects.Copy



Else


e.Effect = DragDropEffects.None



End 
If



End 
Sub


End 
Class
'voila, en esperant que c ce que tu souhaite

VB.NET - drag & drop - copie d'une image

6 réponses

Discussions similaires