知识大全用VB实现拖放功能

Posted 2022-07-17 操作

篇首语：男人无志，钝铁无钢，女人无志，乱草无秧。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB实现拖放功能相关的知识，希望对你有一定的参考价值。

用VB实现拖放功能 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　拖放是用鼠标拖动一个文件到其它对象的活动在图形操作过程中拖放是最常用的功能之一下面我们来看看怎样用VB实现拖放功能

　　首先介绍与拖放有关的控件

　　属性 DragMode决定拖动操作的初始化是人工方式还是自动方式

　　DragIcon确定在拖动过程中显示的指针的图标形状

　　方法 Drag开始结束或取消拖动控件

　　事件 MouseDown事件发生于用户按下鼠标按钮时

　　DragOver事件发生于拖动操作完成时

　　DragDrop事件发生于拖动操作正在进行时

　　然后编写一个小程序这个程序能实现在窗口中或窗口间拖动图标的功能建

　　立窗口Form 和Form 在窗口中都加入Image 其中Form 下的Image picture为你想显示的图标

　　Form 下程序代码为

　　Option Explicit

　　Dim dragx As Single

　　Dim dragy As Single

　　Const BEGIN_DRAG=

　　Private Sub Form_DragDrop（Source As Control X As Single Y As Single）

　　Image Picture=Source ;Sourse为被拖动的控件

　　Form Image Picture=LoadPicture（″″）

　　Image Move（X dragx）（Y dragy） X Y为鼠标所在目标窗体或控件的当前坐标

　　End Sub

　　Private Sub Form_Load（）

　　Load Form

　　Form Show

　　End Sub

　　Private Sub Image _MouseDown（Button As Integer Shift As Integer

　　X As Single Y As Single）

　　dragx=X

　　dragy=Y

　　Image Drag BEGIN_DRAG ;开始拖动操作

　　Image DragIcon = LoadPicture（″按下鼠标时想显示的光标″）

　　End Sub

　　Form 下程序代码为

　　Option Explicit

　　Dim dragx As Single

　　Dim dragy As Single

　　Const BEGIN_DRAG=

　　Private Sub Form_DragDrop（Source As Control X As Single Y As Single）

　　Image Picture=Source

　　Form Image Picture=LoadPicture（″″）

　　Image Move（X dragx）（Y dragy）

　　End Sub

　　Private Sub Image _MouseDown（Button As Integer Shift As Integer源码天空

　　X As Single Y As Single）

　　dragx=X

　　dragy=Y

　　Image Drag BEGIN_DRAG

　　Image DragIcon=LoadPicture（″按下鼠标时想显示的光标″）

　　End Sub

cha138/Article/program/net/201311/13801

知识大全 用VB实现拖放功能

知识大全用VB实现拖放功能