USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página