Drap drop

der er ik nogen kode, du skal bare ændre lidt i propeties for bolden, kan bare ik lige huske det lige nu hvad det er

Hmm...Ligemeget hvor mange ting og sager jeg slår til i properties menuen så siger jeg stadigvæk at der skal noget kode til, fordi picture1 drag drop sub har jeg, men så snart at jeg dropper den bliver den bare hvor den er.

\'Er det sådan du mener:

Private Sub Form_Load()
Picture2.DragMode = 1
Picture2.AutoSize = True
Picture2.Picture = LoadPicture(\"c:\\image1.bmp\")

\'Tag fat i Picture2 og slip den over Picture1

End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    If TypeOf Source Is PictureBox Then
        Picture1.Picture = Source.Picture
    End If
End Sub

Jeg tror du mener sådan her:

Private Sub Form_Load()
Picture1.DragMode = 1
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
    Picture1.Left = X
    Picture1.Top = Y
End Sub

Det den bare skal kunne gøre er at man trykker på picture1 og så slipper man den et sted og det sted skal den så blive.

Så skal du jo flyt den.

Private Declare Sub ReleaseCapture Lib \"user32\" ()
Private Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Function FlytObject(ObjecthWnd As Long)
    ReleaseCapture
    Call SendMessage(ObjecthWnd, &HA1, 2, 0&)
End Function

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    FlytObject Picture1.hWnd
    End If
End Sub

mit eksempel fra d. 5-8:

Du har et billede(picture1) i en form (form1)
Du trykker på billedet og trækker det til et andet sted i formen........

koldstar >>ja, men der hvor du slipper Picture1 bliver den jo ikke, den flytter sig til musens pil. :)

Jeg vil sige at i begge to har givet nogle meget gode muligheder, men fordi at jeg har formuleret mig forkert så får i halvdelen hver.

Tak :)