VB控件间的拖放

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 ⽅法语法包含下⾯部分：
部分描述
object必需的。

对象表达式，其值是“应⽤于”列表中
的⼀个对象。

data可选的变体型，包含要传送到 DataObject 对象
的数据。

format可选的常数或值，规定所传送数据的格式，
如“设置值”中所述。

设置值
format 设置如下：
常数值描述
vbCFText1⽂本（.txt⽂件）
vbCFBitmap2位图（.bmp⽂件）
vbCFMetafile3元⽂件（.wmf⽂件）
vbCFEMetafile14增强元⽂件（.emf ⽂件）
vbCFDIB8设备⽆关位图 (DIB)
vbCFPalette9调⾊板
vbCFFiles15⽂件列表
vbCFRTF-16639丰富⽂本格式（.rtf⽂件）。