Drag and Drop User Controls VB6

Thread View: be.comp.programming

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Seatboy Sun, 14 May 2006 23:26

#732

Author: Seatboy
Date: Sun, 14 May 2006 23:26

32 lines
2073 bytes

Is een manier om drag and drop tedoen tussen 2 User Controls?

Ik heb een user controle en form met 2 maal die zelfde user controle.
nu wil ik drag and drop doen onderling met elkaar.

dit is de code die ik gebruik.

*********************************************************************************************
Dim Strindex, StrText

Private Sub lblafspraak_MouseDown(Index As Integer, Button As Integer, Shift 
As Integer, X As Single, Y As Single)
    StrText = UserControl.LblAfspraak(Index).Caption
    Strindex = Index
    UserControl.LblAfspraak(Index).Drag vbBeginDrag
End Sub

Private Sub lblafspraak_MouseUp(Index As Integer, Button As Integer, Shift 
As Integer, X As Single, Y As Single)
    UserControl.LblAfspraak(Index).Drag vbEndDrag
    UserControl.LblAfspraak(Index).Caption = ""
End Sub

Private Sub lblafspraak_DragDrop(Index As Integer, Source As Control, X As 
Single, Y As Single)
    UserControl.LblAfspraak(Index).Caption = StrText
    UserControl.LblAfspraak(Strindex).Caption = ""
End Sub



Alvast bedankt

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads