|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Usando drag-n-drop
|
 |
|
|
|
Postada em 15/8/2003 por d@®l@n
'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
|
|
|
|
|
