Control.DragOver 事件

參考

定義

命名空間:: System.Windows.Forms

組件:: System.Windows.Forms.dll

重要

部分資訊涉及發行前產品，在發行之前可能會有大幅修改。 Microsoft 對此處提供的資訊，不做任何明確或隱含的瑕疵擔保。

發生於物件拖曳至控件的界限上時。

public:
 event System::Windows::Forms::DragEventHandler ^ DragOver;

public event System.Windows.Forms.DragEventHandler DragOver;

public event System.Windows.Forms.DragEventHandler? DragOver;

member this.DragOver : System.Windows.Forms.DragEventHandler

Public Custom Event DragOver As DragEventHandler

事件類型

DragEventHandler

範例

下列程式代碼範例示範兩個 ListBox 控件之間的拖放作業。範例會在拖曳動作啟動時呼叫 DoDragDrop 方法。如果滑鼠在 MouseDown 事件期間已從滑鼠位置移動超過 SystemInformation.DragSize，則拖曳動作會啟動。 IndexFromPoint 方法可用來判斷專案在 MouseDown 事件期間要拖曳的專案索引。

此範例也會示範如何針對拖放作業使用自定義數據指標。此範例會要求兩個數據指標檔案 3dwarro.cur 和 3dwno.cur分別存在於應用程式目錄中，以取得自定義拖放數據指標。檢查 UseCustomCursorsCheckCheckBox 時，將會使用自定義數據指標。自訂數據指標會在 GiveFeedback 事件處理程序中設定。

鍵盤狀態會在右側 ListBox的 DragOver 事件處理程式中評估，以判斷拖曳作業會根據 SHIFT、CTRL、ALT 或 CTRL+ALT 鍵的狀態而定。在 DragOver 事件期間，也會決定 ListBox 中發生卸除的位置。如果要卸除的數據不是 String，則 DragEventArgs.Effect 會設定為 DragDropEffects中的 None。最後，卸除的狀態會顯示在 DropLocationLabelLabel中。

要卸除右側 ListBox 的數據會決定在 DragDrop 事件處理程式中，且 String 值會在 ListBox的適當位置新增。如果拖曳作業在窗體界限之外移動，則會在 QueryContinueDrag 事件處理程式中取消拖放作業。

此程式代碼摘錄示範如何使用 DragOver 事件。如需完整的程式代碼範例，請參閱 DoDragDrop 方法。

void ListDragTarget_DragOver( Object^ /*sender*/, System::Windows::Forms::DragEventArgs^ e )
{
   // Determine whether string data exists in the drop data. If not, then
   // the drop effect reflects that the drop cannot occur.
   if (  !e->Data->GetDataPresent( System::String::typeid ) )
   {
      e->Effect = DragDropEffects::None;
      DropLocationLabel->Text = "None - no string data.";
      return;
   }

   // Set the effect based upon the KeyState.
   if ( (e->KeyState & (8 + 32)) == (8 + 32) && ((e->AllowedEffect & DragDropEffects::Link) == DragDropEffects::Link) )
   {
      // KeyState 8 + 32 = CTRL + ALT
      // Link drag-and-drop effect.
      e->Effect = DragDropEffects::Link;
   }
   else
   if ( (e->KeyState & 32) == 32 && ((e->AllowedEffect & DragDropEffects::Link) == DragDropEffects::Link) )
   {
      // ALT KeyState for link.
      e->Effect = DragDropEffects::Link;
   }
   else
   if ( (e->KeyState & 4) == 4 && ((e->AllowedEffect & DragDropEffects::Move) == DragDropEffects::Move) )
   {
      // SHIFT KeyState for move.
      e->Effect = DragDropEffects::Move;
   }
   else
   if ( (e->KeyState & 8) == 8 && ((e->AllowedEffect & DragDropEffects::Copy) == DragDropEffects::Copy) )
   {
      // CTRL KeyState for copy.
      e->Effect = DragDropEffects::Copy;
   }
   else
   if ( (e->AllowedEffect & DragDropEffects::Move) == DragDropEffects::Move )
   {
      // By default, the drop action should be move, if allowed.
      e->Effect = DragDropEffects::Move;
   }
   else
            e->Effect = DragDropEffects::None;





   
   // Get the index of the item the mouse is below.
   // The mouse locations are relative to the screen, so they must be
   // converted to client coordinates.
   indexOfItemUnderMouseToDrop = ListDragTarget->IndexFromPoint( ListDragTarget->PointToClient( Point(e->X,e->Y) ) );
   
   // Updates the label text.
   if ( indexOfItemUnderMouseToDrop != ListBox::NoMatches )
   {
      DropLocationLabel->Text = String::Concat( "Drops before item # ", (indexOfItemUnderMouseToDrop + 1) );
   }
   else
            DropLocationLabel->Text = "Drops at the end.";
}

private void ListDragTarget_DragOver(object sender, DragEventArgs e)
{
    // Determine whether string data exists in the drop data. If not, then
    // the drop effect reflects that the drop cannot occur.
    if (!e.Data.GetDataPresent(typeof(System.String)))
    {
        e.Effect = DragDropEffects.None;
        DropLocationLabel.Text = "None - no string data.";
        return;
    }

    // Set the effect based upon the KeyState.
    if ((e.KeyState & (8 + 32)) == (8 + 32) &&
        (e.AllowedEffect & DragDropEffects.Link) == DragDropEffects.Link)
    {
        // KeyState 8 + 32 = CTRL + ALT

        // Link drag-and-drop effect.
        e.Effect = DragDropEffects.Link;
    }
    else if ((e.KeyState & 32) == 32 &&
        (e.AllowedEffect & DragDropEffects.Link) == DragDropEffects.Link)
    {
        // ALT KeyState for link.
        e.Effect = DragDropEffects.Link;
    }
    else if ((e.KeyState & 4) == 4 &&
        (e.AllowedEffect & DragDropEffects.Move) == DragDropEffects.Move)
    {
        // SHIFT KeyState for move.
        e.Effect = DragDropEffects.Move;
    }
    else if ((e.KeyState & 8) == 8 &&
        (e.AllowedEffect & DragDropEffects.Copy) == DragDropEffects.Copy)
    {
        // CTRL KeyState for copy.
        e.Effect = DragDropEffects.Copy;
    }
    else if ((e.AllowedEffect & DragDropEffects.Move) == DragDropEffects.Move)
    {
        // By default, the drop action should be move, if allowed.
        e.Effect = DragDropEffects.Move;
    }
    else
    {
        e.Effect = DragDropEffects.None;
    }

    // Get the index of the item the mouse is below. 

    // The mouse locations are relative to the screen, so they must be 
    // converted to client coordinates.

    indexOfItemUnderMouseToDrop =
        ListDragTarget.IndexFromPoint(ListDragTarget.PointToClient(new Point(e.X, e.Y)));

    // Updates the label text.
    if (indexOfItemUnderMouseToDrop != ListBox.NoMatches)
    {
        DropLocationLabel.Text = "Drops before item #" + (indexOfItemUnderMouseToDrop + 1);
    }
    else
    {
        DropLocationLabel.Text = "Drops at the end.";
    }
}

Private Sub ListDragTarget_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles ListDragTarget.DragOver
    ' Determine whether string data exists in the drop data. If not, then
    ' the drop effect reflects that the drop cannot occur.
    If Not (e.Data.GetDataPresent(GetType(System.String))) Then

        e.Effect = DragDropEffects.None
        DropLocationLabel.Text = "None - no string data."
        Return
    End If

    ' Set the effect based upon the KeyState.
    If ((e.KeyState And (8 + 32)) = (8 + 32) And
        (e.AllowedEffect And DragDropEffects.Link) = DragDropEffects.Link) Then
        ' KeyState 8 + 32 = CTRL + ALT

        ' Link drag-and-drop effect.
        e.Effect = DragDropEffects.Link

    ElseIf ((e.KeyState And 32) = 32 And
        (e.AllowedEffect And DragDropEffects.Link) = DragDropEffects.Link) Then

        ' ALT KeyState for link.
        e.Effect = DragDropEffects.Link

    ElseIf ((e.KeyState And 4) = 4 And
        (e.AllowedEffect And DragDropEffects.Move) = DragDropEffects.Move) Then

        ' SHIFT KeyState for move.
        e.Effect = DragDropEffects.Move

    ElseIf ((e.KeyState And 8) = 8 And
        (e.AllowedEffect And DragDropEffects.Copy) = DragDropEffects.Copy) Then

        ' CTRL KeyState for copy.
        e.Effect = DragDropEffects.Copy

    ElseIf ((e.AllowedEffect And DragDropEffects.Move) = DragDropEffects.Move) Then

        ' By default, the drop action should be move, if allowed.
        e.Effect = DragDropEffects.Move

    Else
        e.Effect = DragDropEffects.None
    End If

    ' Gets the index of the item the mouse is below. 

    ' The mouse locations are relative to the screen, so they must be 
    ' converted to client coordinates.

    indexOfItemUnderMouseToDrop =
        ListDragTarget.IndexFromPoint(ListDragTarget.PointToClient(New Point(e.X, e.Y)))

    ' Updates the label text.
    If (indexOfItemUnderMouseToDrop <> ListBox.NoMatches) Then
        DropLocationLabel.Text = "Drops before item #" & (indexOfItemUnderMouseToDrop + 1)
    Else
        DropLocationLabel.Text = "Drops at the end."
    End If

End Sub

備註

當滑鼠游標在拖放作業期間於控件界限內移動時，就會引發 DragOver 事件。

下列說明如何和何時引發與拖放作業相關的事件。

DoDragDrop 方法會決定目前游標位置下的控件。然後它會檢查控件是否為有效的置放目標。

如果控件是有效的置放目標，則會使用指定的拖放效果引發 GiveFeedback 事件。如需拖放效果的清單，請參閱 DragDropEffects 列舉。

追蹤滑鼠游標位置、鍵盤狀態和滑鼠按鈕狀態的變更。

如果使用者移出視窗，就會引發 DragLeave 事件。
如果滑鼠進入另一個控件，則會引發該控件的 DragEnter。
如果滑鼠移動但停留在相同的控件內，則會引發 DragOver 事件。

如果鍵盤或滑鼠按鈕狀態有所變更，則會引發 QueryContinueDrag 事件，並判斷是要繼續拖曳、卸除數據，還是根據事件 QueryContinueDragEventArgs的 Action 屬性值取消作業。

如果 DragAction 值的值是 Continue，則會引發 DragOver 事件以繼續作業，並透過新的效果引發 GiveFeedback 事件，以便設定適當的視覺回饋。如需有效卸除效果的清單，請參閱 DragDropEffects 列舉。

注意

DragOver 和 GiveFeedback 事件會配對，如此一來，當滑鼠在置放目標上移動時，使用者就會得到滑鼠位置上最 up-to日期的意見反應。
如果 DragAction 的值是 Drop，則會將下降效果值傳回至來源，讓來源應用程式可以在源數據上執行適當的作業：例如，如果作業是移動，請剪下數據。
如果 DragAction 的值是 Cancel，則會引發 DragLeave 事件。

注意

DragEventArgs 的 X 和 Y 屬性位於螢幕座標中，而不是用戶端座標。下列 C# 程式代碼列會將屬性轉換成用戶端 Point：

Point clientPoint = targetControl.PointToClient（new Point（de.X， de.Y));

如需處理事件的詳細資訊，請參閱處理和引發事件。

適用於

另請參閱

OnDragOver(DragEventArgs)

共用方式為

Control.DragOver 事件

定義

事件類型

範例

備註

適用於

另請參閱

意見反應

其他資源