bruger skal flytte billede

Her er et lille eksempel, prøv at lege lidt videre selv :

placer 2 image på din form.

Sæt OLEDragMode til 1 (Automatic) og OLEDropmode til 2 (Automatic).

Når du trækker image1 over på image2 og slipper flyttes billedet. Image1 er dermed tomt.

En anden måde :

opret to image.
Sæt DragMode=1 på image1

sæt:
Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
Image2.Picture = Source
End Sub

Når du slipper image1 på image2 anbringes en kopi.

Der er mange andre måder at gøre det på - prøv dig frem.

Hvis du vil kunne flytte dit image frit rundt på formen skal du :

sæt OLEDropMode til 1 på formen

Sæt Dragmode=1 , OLEDragMode=1 , OLEDropMode =2 på din image.

Tilføj følgende :
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = X
Image1.Top = Y
End Sub

BEMÆRK x og y vil være øverste venstre hjørne så det skal du lige kompensere for.

Håber du kan bruge svaret.

Brian

Har du problemer eller har jeg ikke skrevet det tydelig nok ???

Det var ik helt det jeg skal bruge

Var det så ikke en ide at tydeliggøre dit spørgsmål ???

Hvis ikke :

sæt OLEDropMode til 1 på formen

Sæt Dragmode=1 , OLEDragMode=1 , OLEDropMode =2 på din image.

Tilføj følgende :
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = X
Image1.Top = Y
End Sub

er svar på dit spørgsmål, så tror jeg ikke du selv ved hvad du spørger om.

Desuden behøver man vel ikke at være 14 dage om at komme med en reaktion ?!?!?!