亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

WinForm拖拽控件生成副本的解決方法

 更新時間：2014年08月05日 14:47:20   投稿：shichen2014  
這篇文章主要介紹了WinForm拖拽控件生成副本的解決方法,對C#新手有一定的學(xué)習(xí)借鑒價值,需要的朋友可以參考下

本文講述了WinForm中實現(xiàn)拖拽效果的功能，即在WinForm中有一個Button，可以實現(xiàn)拖拽這個Button到目標(biāo)位置后生成一個該控件的副本的功能。具體操作步驟如下：

要實現(xiàn)該功能主要分成如下三步：

1）確定被拖拽的對象：這里是Button（要使得Button被單擊之后可以拖拽，那么必須處理其MouseDown事件，同時調(diào)用其DoDragDrop——該函數(shù)接受兩個參數(shù)：i）要拖動的數(shù)據(jù)。ii）拖動的效果（該效果是2“目標(biāo)位置”所能夠接受的效果，是一個枚舉值）：

C#代碼如下：

Button1.DoDragDrop(Button1, DragDropEffects.Copy || DragDropEffects.Move); //形成拖拽效果，移動+拷貝的組合效果

VB.NET頁面代碼如下：

Button1.DoDragDrop(Button1, DragDropEffects.Copy Or DragDropEffects.Move)  '形成拖拽效果，移動+拷貝的組合效果

2）目標(biāo)位置：這里是Form窗體自身。為了使得和Windows資源管理器中實現(xiàn)的文件拖拽效果一樣（即拖拽一個文件到目標(biāo)位置的中途，鼠標(biāo)出現(xiàn)“+”號的效果）。那么應(yīng)當(dāng)處理DragEnter事件——即拖拽控件途中進(jìn)入Form體內(nèi)把效果設(shè)置成Copy的效果。

C#代碼如下：

private void Form1_DragEnter(System.Object sender, System.Windows.Forms.DragEventArgs e)
{
  //當(dāng)Button被拖拽到WinForm上時候，鼠標(biāo)效果出現(xiàn)
  if ((e.Data.GetDataPresent(typeof(Button)))) {
    e.Effect = DragDropEffects.Copy;
  }
}

VB.NET頁面代碼如下：

Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
    If (e.Data.GetDataPresent(GetType(Button))) Then  '當(dāng)Button被拖拽到WinForm上時候，鼠標(biāo)效果出現(xiàn)
      e.Effect = DragDropEffects.Copy
    End If
  End Sub

同時，為了使得Form自身支持接受拖拽傳來的控件，必須設(shè)置其AllowDrag=True：

另外，一旦松開鼠標(biāo)，那么拖拽過程結(jié)束。此時應(yīng)當(dāng)處理DragDrop事件，復(fù)制一個按鈕：

C#代碼如下：

private void Form1_DragDrop(System.Object sender, System.Windows.Forms.DragEventArgs e)
{
  //拖放完畢之后，自動生成新控件
  Button btn = new Button();
  btn.Size = Button1.Size;
  btn.Location = this.PointToClient(new Point(e.X, e.Y));
  //用這個方法計算出客戶端容器界面的X，Y坐標(biāo)。否則直接使用X，Y是屏幕坐標(biāo)
  this.Controls.Add(btn);
  btn.Text = "按鈕" + count.ToString;
  count = count + 1;
}

VB.NET頁面代碼如下：

Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
    '拖放完畢之后，自動生成新控件
    Dim btn As New Button
    btn.Size = Button1.Size
    btn.Location = Me.PointToClient(New Point(e.X, e.Y))  '用這個方法計算出客戶端容器界面的X，Y坐標(biāo)。否則直接使用X，Y是屏幕坐標(biāo)
    Me.Controls.Add(btn)
    btn.Text = "按鈕" + count.ToString
    count = count + 1
  End Sub

這里需要注意點：Location屬性（指定控件放置位置的起始點）不能直接用e.X或e.Y——因為這是屏幕坐標(biāo)，要根據(jù)實際的控件界面坐標(biāo)進(jìn)行適度轉(zhuǎn)換，最簡單方法是——PointToClient方法。

下面給出完整代碼：

【界面如下所示】

C#代碼如下：

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{

  //計數(shù)變量，說明輸出了第N個Button

  private int count = 1;
  private void Form1_Load(System.Object sender, System.EventArgs e)
  {
    this.AllowDrop = true;
    //窗體自身支持接受拖拽來的控件
  }

  private void Button1_MouseDown(System.Object sender, System.Windows.Forms.MouseEventArgs e)
  {
    //左鍵的話，標(biāo)志位為true（表示拖拽開始）
    if ((e.Button == System.Windows.Forms.MouseButtons.Left)) {
      Button1.DoDragDrop(Button1, DragDropEffects.Copy | DragDropEffects.Move);
      //形成拖拽效果，移動+拷貝的組合效果
    }
  }

  private void Form1_DragEnter(System.Object sender, System.Windows.Forms.DragEventArgs e)
  {
    //當(dāng)Button被拖拽到WinForm上時候，鼠標(biāo)效果出現(xiàn)
    if ((e.Data.GetDataPresent(typeof(Button)))) {
      e.Effect = DragDropEffects.Copy;
    }
  }

  private void Form1_DragDrop(System.Object sender, System.Windows.Forms.DragEventArgs e)
  {
    //拖放完畢之后，自動生成新控件
    Button btn = new Button();
    btn.Size = Button1.Size;
    btn.Location = this.PointToClient(new Point(e.X, e.Y));
    //用這個方法計算出客戶端容器界面的X，Y坐標(biāo)。否則直接使用X，Y是屏幕坐標(biāo)
    this.Controls.Add(btn);
    btn.Text = "按鈕" + count.ToString();
    count = count + 1;
  }
  public Form1()
  {
    DragDrop += Form1_DragDrop;
    DragEnter += Form1_DragEnter;
    Load += Form1_Load;
  }
}

 

VB.NET頁面代碼如下：

Public Class Form1

  '計數(shù)變量，說明輸出了第N個Button
  Private count As Integer = 1

  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.AllowDrop = True   '窗體自身支持接受拖拽來的控件
  End Sub
 
  Private Sub Button1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    '左鍵的話，標(biāo)志位為true（表示拖拽開始）
    If (e.Button = Windows.Forms.MouseButtons.Left) Then
      Button1.DoDragDrop(Button1, DragDropEffects.Copy Or DragDropEffects.Move)  '形成拖拽效果，移動+拷貝的組合效果
    End If
  End Sub

  Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
    If (e.Data.GetDataPresent(GetType(Button))) Then  '當(dāng)Button被拖拽到WinForm上時候，鼠標(biāo)效果出現(xiàn)
      e.Effect = DragDropEffects.Copy
    End If
  End Sub

  Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
    '拖放完畢之后，自動生成新控件
    Dim btn As New Button
    btn.Size = Button1.Size
    btn.Location = Me.PointToClient(New Point(e.X, e.Y))  '用這個方法計算出客戶端容器界面的X，Y坐標(biāo)。否則直接使用X，Y是屏幕坐標(biāo)
    Me.Controls.Add(btn)
    btn.Text = "按鈕" + count.ToString
    count = count + 1
  End Sub
End Class

相關(guān)文章

最新評論