VB控件间的拖放

新建工程,放置控件Picture1,Text1,Text2,复制下面的代码运行

Text1和Text2可以互相拖放,也可以将Picture1拖放给Text1,Text2.

Private Sub Form_Load()
    Picture1.OLEDragMode = 1
    Text1.OLEDropMode = 1
    Text1.OLEDragMode = 1
    Text2.OLEDropMode = 1
    Text2.OLEDragMode = 1
End Sub

Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = 1
    Data.Clear
    Data.SetData "来自Picture1", 1 '设置拖放的内容
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim s As String
    s = Data.GetData(1)
    Text1.SelLength = 0
    Text1.SelText = s '在光标处插入
End Sub
Private Sub Text1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = 1
    Data.Clear
    Data.SetData Text1.SelText, 1 '设置拖放的内容
End Sub


Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim s As String
    s = Data.GetData(1)
    Text2.SelLength = 0
    Text2.SelText = s '在光标处插入
End Sub
Private Sub Text2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = 1
    Data.Clear
    Data.SetData Text2.SelText, 1 '设置拖放的内容
End Sub

关于事件疑问自行百度,这里说明一下Data.SetData:

语法

object.SetData[data], [format]

SetData 方法语法包含下面部分：

设置值

format 设置如下：