Table of contents
TOC
Recolher sumário
Expandir sumário

Exemplo dos métodos controle ListBox, o objeto DataObject, evento MouseMove, StartDrag, SetTextListBox Control, DataObject Object, MouseMove Event, StartDrag, SetText Methods Example

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

O exemplo a seguir demonstra uma operação de arrastar e soltar de um ListBox para outro usando um DataObject para conter o texto arrastado. Este exemplo de código usa os métodos SetText e StartDrag no evento MouseMove para implementar a operação de arrastar e soltar.The following example demonstrates a drag-and-drop operation from one ListBox to another using a DataObject to contain the dragged text. This code sample uses the SetText and StartDrag methods in the MouseMove event to implement the drag-and-drop operation.

Para usar este exemplo, copie este código de exemplo para a parte de declarações de um formulário. Certifique-se de que o formulário contém dois controles ListBox denominados ListBox1 e ListBox2. Você também precisará adicionar opções para a segunda caixa de listagem.To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains two ListBox controls named ListBox1 and ListBox2. You also need to add choices to the second ListBox.

Private Sub ListBox2_BeforeDragOver(ByVal Cancel As _ 
 MSForms.ReturnBoolean, ByVal Data As _ 
 MSForms.DataObject, ByVal X As Single, _ 
 ByVal Y As Single, ByVal DragState As Long, _ 
 ByVal Effect As MSForms.ReturnEffect, _ 
 ByVal Shift As Integer) 
 Cancel = True 
 Effect = 1 
End Sub 

Private Sub ListBox2_BeforeDropOrPaste(ByVal _ 
 Cancel As MSForms.ReturnBoolean, _ 
 ByVal Action As Long, ByVal Data As _ 
 MSForms.DataObject, ByVal X As Single, _ 
 ByVal Y As Single, ByVal Effect As _ 
 MSForms.ReturnEffect, ByVal Shift As Integer) 
 Cancel = True 
 Effect = 1 
 ListBox2.AddItem Data.GetText 
End Sub 

Private Sub ListBox1_MouseMove(ByVal Button As _ 
 Integer, ByVal Shift As Integer, ByVal X As _ 
 Single, ByVal Y As Single) 
 Dim MyDataObject As DataObject 
 If Button = 1 Then 
 Set MyDataObject = New DataObject 
 Dim Effect As Integer 
 MyDataObject.SetText ListBox1.Value 
 Effect = MyDataObject.StartDrag 
 End If 
End Sub 

Private Sub UserForm_Initialize() 
 For i = 1 To 10 
 ListBox1.AddItem "Choice " _ 
 &; (ListBox1.ListCount + 1) 
 Next i 
End Sub
© 2018 Microsoft