章鱼哥—VB.NET RichTextBox.AllowDrop属性的实例

发布时间：2020-12-17 07:51:54 所属栏目：百科来源：网络整理

导读：这篇文章讲述allowDrop属性的另一种用法，即接受文字，读者可以借鉴下，该文为转载文章地址：http://www.lob.cn/sl/control/431.shtml RichTextBox.AllowDrop属性的实例下面的代码示例演示如何使用 ListBox 控件（包含要放入 RichTextBox 控件的项）来执行

这篇文章讲述allowDrop属性的另一种用法，即接受文字，读者可以借鉴下，该文为转载文章地址：http://www.lob.cn/sl/control/431.shtml

RichTextBox.AllowDrop属性的实例

下面的代码示例演示如何使用 ListBox 控件（包含要放入 RichTextBox 控件的项）来执行拖放操作。窗体的构造函数将 AllowDrop 属性设置为 true 以使拖放操作能够在 RichTextBox 中进行。该示例使用 ListBox 的 MouseDown 事件通过调用 DoDragDrop 方法来启动拖动操作。该示例使用 DragEnter 事件来确定拖放到 RichTextBox 中的项是否为有效的数据类型。DragDrop 事件将被拖动的项实际放在 RichTextBox 控件中 RichTextBox 内的当前光标位置。该示例要求 DragDrop 和 DragEnter 事件已连接到此示例中定义的事件处理程序。

PublicSubNew()
MyBase.New()
'ThiscallisrequiredbytheWindowsFormDesigner.
InitializeComponent()
richTextBox1.AllowDrop=True
EndSub
PrivateSublistBox1_MouseDown(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandleslistBox1.MouseDown
'Determineswhichitemwasselected.
DimlbAsListBox=CType(sender,ListBox)
DimptAsNewPoint(e.X,e.Y)
'RetrievetheitematthespecifiedlocationwithintheListBox.
DimindexAsInteger=lb.IndexFromPoint(pt)
'Startsadrag-and-dropoperation.
Ifindex>=0Then
'RetrievetheselecteditemtexttodragintotheRichTextBox.
lb.DoDragDrop(lb.Items(index).ToString(),DragDropEffects.Copy)
EndIf
EndSub'listBox1_MouseDown
PrivateSubrichTextBox1_DragEnter(ByValsenderAsObject,ByValeAsDragEventArgs)HandlesrichTextBox1.DragEnter
'Ifthedataistext,copythedatatotheRichTextBoxcontrol.
Ife.Data.GetDataPresent("Text")Then
e.Effect=DragDropEffects.Copy
EndIf
EndSub'richTextBox1_DragEnter
PrivateSubrichTextBox1_DragDrop(ByValsenderAsObject,ByValeAsDragEventArgs)HandlesrichTextBox1.DragDrop
'PastethetextintotheRichTextBoxwhereatselectionlocation.
richTextBox1.SelectedText=e.Data.GetData("System.String",True).ToString()
EndSub'richTextBox1_DragDrop

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!