DragAction Enumeração

Definição

public enum class DragAction

[System.Runtime.InteropServices.ComVisible(true)]
public enum DragAction

[<System.Runtime.InteropServices.ComVisible(true)>]
type DragAction = 

Public Enum DragAction

Herança

Object

ValueType

Enum

DragAction

Atributos

ComVisibleAttribute

Campos

Exemplos

O exemplo seguinte demonstra uma operação de arrastar e largar entre dois ListBox controlos. O exemplo chama o DoDragDrop método quando a ação de arrasto começa. A ação de arrastar começa se o rato se tiver movido mais do que SystemInformation.DragSize a partir da posição do rato durante o MouseDown evento. O IndexFromPoint método é usado para determinar o índice do item a arrastar durante o MouseDown evento.

O exemplo também demonstra o uso de cursores personalizados para a operação de arrastar e largar. O exemplo assume que existem dois ficheiros de cursor, 3dwarro.cur e 3dwno.cur, no diretório da aplicação, para os cursores personalizados de arrastar e sem largar, respetivamente. Os cursores personalizados serão usados se estiver UseCustomCursorsCheckCheckBox marcado. Os cursores personalizados estão definidos no GiveFeedback gestor de eventos.

O estado do teclado é avaliado no DragOver gestor de eventos para a direita ListBox, para determinar qual será a operação de arrasto com base no estado das teclas SHIFT, CTRL, ALT ou CTRL+ALT. A localização ListBox onde a queda ocorreria também é determinada durante o DragOver evento. Se os dados a eliminar não forem um String, então o DragEventArgs.Effect é definido como DragDropEffects.None. Finalmente, o estado da queda é apresentado no DropLocationLabelLabelarquivo .

Os dados a deixar cair para a direita ListBox são determinados no DragDrop handler de eventos e o String valor é adicionado no local apropriado no ListBox. Se a operação de arrastar sair dos limites do formulário, então a operação de arrastar e largar é cancelada no QueryContinueDrag tratador de eventos.

Este excerto de código demonstra o uso da DragAction enumeração. Veja o DoDragDrop método para o exemplo completo do código.

void ListDragSource_QueryContinueDrag( Object^ sender, System::Windows::Forms::QueryContinueDragEventArgs^ e )
{
   // Cancel the drag if the mouse moves off the form.
   ListBox^ lb = dynamic_cast<ListBox^>(sender);
   if ( lb != nullptr )
   {
      Form^ f = lb->FindForm();

      // Cancel the drag if the mouse moves off the form. The screenOffset
      // takes into account any desktop bands that may be at the top or left
      // side of the screen.
      if ( ((Control::MousePosition.X - screenOffset.X) < f->DesktopBounds.Left) || ((Control::MousePosition.X - screenOffset.X) > f->DesktopBounds.Right) || ((Control::MousePosition.Y - screenOffset.Y) < f->DesktopBounds.Top) || ((Control::MousePosition.Y - screenOffset.Y) > f->DesktopBounds.Bottom) )
      {
         e->Action = DragAction::Cancel;
      }
   }
}

private void ListDragSource_QueryContinueDrag(object sender, QueryContinueDragEventArgs e)
{
    // Cancel the drag if the mouse moves off the form.
    ListBox lb = sender as ListBox;

    if (lb != null)
    {
        Form f = lb.FindForm();

        // Cancel the drag if the mouse moves off the form. The screenOffset
        // takes into account any desktop bands that may be at the top or left
        // side of the screen.
        if (((Control.MousePosition.X - screenOffset.X) < f.DesktopBounds.Left) ||
            ((Control.MousePosition.X - screenOffset.X) > f.DesktopBounds.Right) ||
            ((Control.MousePosition.Y - screenOffset.Y) < f.DesktopBounds.Top) ||
            ((Control.MousePosition.Y - screenOffset.Y) > f.DesktopBounds.Bottom))
        {
            e.Action = DragAction.Cancel;
        }
    }
}

Private Sub ListDragSource_QueryContinueDrag(ByVal sender As Object, ByVal e As QueryContinueDragEventArgs) Handles ListDragSource.QueryContinueDrag
    ' Cancel the drag if the mouse moves off the form.
    Dim lb As ListBox = CType(sender, ListBox)

    If (lb IsNot Nothing) Then

        Dim f As Form = lb.FindForm()

        ' Cancel the drag if the mouse moves off the form. The screenOffset
        ' takes into account any desktop bands that may be at the top or left
        ' side of the screen.
        If (((Control.MousePosition.X - screenOffset.X) < f.DesktopBounds.Left) Or
            ((Control.MousePosition.X - screenOffset.X) > f.DesktopBounds.Right) Or
            ((Control.MousePosition.Y - screenOffset.Y) < f.DesktopBounds.Top) Or
            ((Control.MousePosition.Y - screenOffset.Y) > f.DesktopBounds.Bottom)) Then

            e.Action = DragAction.Cancel
        End If
    End If
End Sub

Observações

Esta enumeração é usada por QueryContinueDragEventArgs.