Usando drag-n-drop

[ℛiqu∊ 13]

'Crie um form com duas listboxes (List1Origem e List2Destino) e

uma textbox (Text1).

 

Private Sub Form_Load()

' Esconde a textbox

Text1.Visible = False

' Preenche a List1Origem

List1Origem.AddItem "Ana"

List1Origem.AddItem "Beatriz"

List1Origem.AddItem "Carla"

List1Origem.AddItem "Denise"

List1Origem.AddItem "Eliane"

List1Origem.AddItem "Flavia"

List1Origem.AddItem "Gabriela"

End Sub

Private Sub List1Origem_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If List1Origem.Text = "" Then

Exit Sub 'Não há nada selecionado

End If

Text1.Top = Y + List1Origem.Top

Text1.Left = X + List1Origem.Left

Text1.Drag

End Sub

Private Sub List2Destino_DragDrop(Source As Control, _

X As Single, Y As Single)

On Error GoTo Fim

List2Destino.AddItem List1Origem.Text

List1Origem.RemoveItem List1Origem.ListIndex

Fim:

End Sub

 

Dorlan