http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/Drag_Drop&feed=atom&action=history
VB.Net Tutorial/GUI/Drag Drop - История изменений
2024-03-29T07:49:36Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/Drag_Drop&diff=3890&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/Drag_Drop&diff=3891&oldid=prev
Admin: 1 версия
2010-05-26T12:57:22Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Copy and paste Object==<br />
<br />
<br />
<br />
<source lang="vbnet">" Requires a reference to System.Xml.<br />
Imports System.Xml.Serialization<br />
Imports System.IO<br />
Imports System.Windows.Forms<br />
public class CopyPasteEmployee<br />
public Shared Sub Main<br />
Application.Run(New Form1)<br />
End Sub<br />
End class<br />
<br />
Public Class Form1<br />
<Serializable()> _<br />
Public Class Employee<br />
Public FirstName As String<br />
Public LastName As String<br />
Public Sub New()<br />
End Sub<br />
Public Sub New(ByVal first_name As String, ByVal last_name As String)<br />
FirstName = first_name<br />
LastName = last_name<br />
End Sub<br />
End Class<br />
" Copy the Employee to the clipboard.<br />
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click<br />
Dim emp As New Employee(txtFirstName.Text, txtLastName.Text)<br />
Dim data_object As New DataObject<br />
data_object.SetData("Employee", emp)<br />
Clipboard.SetDataObject(data_object)<br />
End Sub<br />
" Paste data from the clipboard.<br />
Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click<br />
Dim data_object As IDataObject = Clipboard.GetDataObject()<br />
If data_object.GetDataPresent("Employee") Then<br />
Dim emp As Employee = DirectCast(data_object.GetData("Employee"), Employee)<br />
txtPasteFirstName.Text = emp.FirstName<br />
txtPasteLastName.Text = emp.LastName<br />
End If<br />
End Sub<br />
End Class<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.btnPaste = New System.Windows.Forms.Button<br />
Me.txtPasteLastName = New System.Windows.Forms.TextBox<br />
Me.txtPasteFirstName = New System.Windows.Forms.TextBox<br />
Me.Label3 = New System.Windows.Forms.Label<br />
Me.Label4 = New System.Windows.Forms.Label<br />
Me.btnCopy = New System.Windows.Forms.Button<br />
Me.txtLastName = New System.Windows.Forms.TextBox<br />
Me.txtFirstName = New System.Windows.Forms.TextBox<br />
Me.Label2 = New System.Windows.Forms.Label<br />
Me.Label1 = New System.Windows.Forms.Label<br />
Me.SuspendLayout()<br />
"<br />
"btnPaste<br />
"<br />
Me.btnPaste.Location = New System.Drawing.Point(232, 96)<br />
Me.btnPaste.Name = "btnPaste"<br />
Me.btnPaste.Size = New System.Drawing.Size(48, 24)<br />
Me.btnPaste.TabIndex = 22<br />
Me.btnPaste.Text = "Paste"<br />
"<br />
"txtPasteLastName<br />
"<br />
Me.txtPasteLastName.Location = New System.Drawing.Point(72, 112)<br />
Me.txtPasteLastName.Name = "txtPasteLastName"<br />
Me.txtPasteLastName.Size = New System.Drawing.Size(136, 20)<br />
Me.txtPasteLastName.TabIndex = 21<br />
"<br />
"txtPasteFirstName<br />
"<br />
Me.txtPasteFirstName.Location = New System.Drawing.Point(72, 88)<br />
Me.txtPasteFirstName.Name = "txtPasteFirstName"<br />
Me.txtPasteFirstName.Size = New System.Drawing.Size(136, 20)<br />
Me.txtPasteFirstName.TabIndex = 20<br />
"<br />
"Label3<br />
"<br />
Me.Label3.AutoSize = True<br />
Me.Label3.Location = New System.Drawing.Point(8, 112)<br />
Me.Label3.Name = "Label3"<br />
Me.Label3.Size = New System.Drawing.Size(54, 13)<br />
Me.Label3.TabIndex = 19<br />
Me.Label3.Text = "Last Name"<br />
"<br />
"Label4<br />
"<br />
Me.Label4.AutoSize = True<br />
Me.Label4.Location = New System.Drawing.Point(8, 88)<br />
Me.Label4.Name = "Label4"<br />
Me.Label4.Size = New System.Drawing.Size(53, 13)<br />
Me.Label4.TabIndex = 18<br />
Me.Label4.Text = "First Name"<br />
"<br />
"btnCopy<br />
"<br />
Me.btnCopy.Location = New System.Drawing.Point(232, 16)<br />
Me.btnCopy.Name = "btnCopy"<br />
Me.btnCopy.Size = New System.Drawing.Size(48, 24)<br />
Me.btnCopy.TabIndex = 17<br />
Me.btnCopy.Text = "Copy"<br />
"<br />
"txtLastName<br />
"<br />
Me.txtLastName.Location = New System.Drawing.Point(72, 32)<br />
Me.txtLastName.Name = "txtLastName"<br />
Me.txtLastName.Size = New System.Drawing.Size(136, 20)<br />
Me.txtLastName.TabIndex = 16<br />
Me.txtLastName.Text = "AAAAAA"<br />
"<br />
"txtFirstName<br />
"<br />
Me.txtFirstName.Location = New System.Drawing.Point(72, 8)<br />
Me.txtFirstName.Name = "txtFirstName"<br />
Me.txtFirstName.Size = New System.Drawing.Size(136, 20)<br />
Me.txtFirstName.TabIndex = 15<br />
Me.txtFirstName.Text = "BBBBB"<br />
"<br />
"Label2<br />
"<br />
Me.Label2.AutoSize = True<br />
Me.Label2.Location = New System.Drawing.Point(8, 32)<br />
Me.Label2.Name = "Label2"<br />
Me.Label2.Size = New System.Drawing.Size(54, 13)<br />
Me.Label2.TabIndex = 14<br />
Me.Label2.Text = "Last Name"<br />
"<br />
"Label1<br />
"<br />
Me.Label1.AutoSize = True<br />
Me.Label1.Location = New System.Drawing.Point(8, 8)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(53, 13)<br />
Me.Label1.TabIndex = 13<br />
Me.Label1.Text = "First Name"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(288, 139)<br />
Me.Controls.Add(Me.btnPaste)<br />
Me.Controls.Add(Me.txtPasteLastName)<br />
Me.Controls.Add(Me.txtPasteFirstName)<br />
Me.Controls.Add(Me.Label3)<br />
Me.Controls.Add(Me.Label4)<br />
Me.Controls.Add(Me.btnCopy)<br />
Me.Controls.Add(Me.txtLastName)<br />
Me.Controls.Add(Me.txtFirstName)<br />
Me.Controls.Add(Me.Label2)<br />
Me.Controls.Add(Me.Label1)<br />
Me.Name = "Form1"<br />
Me.Text = "CopyPasteEmployee"<br />
Me.ResumeLayout(False)<br />
Me.PerformLayout()<br />
End Sub<br />
Friend WithEvents btnPaste As System.Windows.Forms.Button<br />
Friend WithEvents txtPasteLastName As System.Windows.Forms.TextBox<br />
Friend WithEvents txtPasteFirstName As System.Windows.Forms.TextBox<br />
Friend WithEvents Label3 As System.Windows.Forms.Label<br />
Friend WithEvents Label4 As System.Windows.Forms.Label<br />
Friend WithEvents btnCopy As System.Windows.Forms.Button<br />
Friend WithEvents txtLastName As System.Windows.Forms.TextBox<br />
Friend WithEvents txtFirstName As System.Windows.Forms.TextBox<br />
Friend WithEvents Label2 As System.Windows.Forms.Label<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
End Class</source><br />
<br />
==Drop a file==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Data<br />
Imports System.Data.OleDb<br />
Imports System.Windows.Forms<br />
public class FileDrop<br />
public Shared Sub Main<br />
Application.Run(New Form1)<br />
End Sub<br />
End class<br />
Public Class Form1<br />
" Allow Copy if there is FileDrop data.<br />
Private Sub lblDropTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragEnter<br />
If e.Data.GetDataPresent(DataFormats.FileDrop) Then<br />
e.Effect = DragDropEffects.Copy<br />
Else<br />
e.Effect = DragDropEffects.None<br />
End If<br />
End Sub<br />
" Display the dropped file names.<br />
Private Sub lblDropTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragDrop<br />
lstFiles.Items.Clear()<br />
Dim file_names As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())<br />
For Each file_name As String In file_names<br />
lstFiles.Items.Add(file_name)<br />
Next file_name<br />
End Sub<br />
End Class<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.lstFiles = New System.Windows.Forms.ListBox<br />
Me.lblDropTarget = New System.Windows.Forms.Label<br />
Me.SuspendLayout()<br />
"<br />
"lstFiles<br />
"<br />
Me.lstFiles.Dock = System.Windows.Forms.DockStyle.Fill<br />
Me.lstFiles.FormattingEnabled = True<br />
Me.lstFiles.Location = New System.Drawing.Point(0, 48)<br />
Me.lstFiles.Name = "lstFiles"<br />
Me.lstFiles.Size = New System.Drawing.Size(274, 160)<br />
Me.lstFiles.TabIndex = 3<br />
"<br />
"lblDropTarget<br />
"<br />
Me.lblDropTarget.AllowDrop = True<br />
Me.lblDropTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D<br />
Me.lblDropTarget.Dock = System.Windows.Forms.DockStyle.Top<br />
Me.lblDropTarget.Location = New System.Drawing.Point(0, 0)<br />
Me.lblDropTarget.Name = "lblDropTarget"<br />
Me.lblDropTarget.Size = New System.Drawing.Size(274, 48)<br />
Me.lblDropTarget.TabIndex = 2<br />
Me.lblDropTarget.Text = "Drop Target"<br />
Me.lblDropTarget.TextAlign = System.Drawing.ContentAlignment.MiddleCenter<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(274, 210)<br />
Me.Controls.Add(Me.lstFiles)<br />
Me.Controls.Add(Me.lblDropTarget)<br />
Me.Name = "Form1"<br />
Me.Text = "AcceptFiles"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Friend WithEvents lstFiles As System.Windows.Forms.ListBox<br />
Friend WithEvents lblDropTarget As System.Windows.Forms.Label<br />
End Class</source></div>
Admin