[VB.NET]拖动操作的技术基础
1、设置需要接受拖动事件的控件的AllowDrop属性为True,在开发界面时配置,不可通过代码配置
2、在DragEnter事件处理程序里,为e.Effet设置枚举值,否则拖动无效
Private Sub GroupBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GroupBox1.DragEnter e.Effect = DragDropEffects.Link End Sub
3、在DragDrop事件中处理拖入的内容
Private Sub GroupBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GroupBox1.DragDrop s = e.Data.GetData(System.Windows.Forms.DataFormats.FileDrop) Me.Text = "File Pro - 正在移动文件" End Sub
4、获取拖入的内容
s = e.Data.GetData(System.Windows.Forms.DataFormats.FileDrop)
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。