Trascinamento da una Listbox ad un'altra.

[luca_musico]

Quello che mi serve sapere è come trascinare l'elemento di una Listbox in un'altra (con le due Listbox appartenenti a Form diversi) per poi disegnare una linea tra i due Form: un pò come avviene quando si vuole disegnare una relazione tra due tabelle in Access.

[CAINO76]

Prendi 2 Form

Form1 e Form2

nel Form1 inserisci un Command1 e una ListBox(List1)

nel Form2 inserisci una TextBox(Text1)

codice del form1

Private Sub Command1_Click()
Form2.Show vbModelles
End Sub
Private Sub Form_Load()
List1.OLEDragMode = 1 'automatic
End Sub

codice del form2

Private Sub Form_Load()
Text1.OLEDropMode = 2 'Automatic
End Sub

a questo punto puoi selezionare dalla list1 con il sinistro del mouse e trascinare con il destro del mouse, sia nella text1, che in qualsiasi applicazione che accetta l'OLEDrop

Ciao alla Proxima !!