vb的dragdrop dragmode 属性是什么意思 有什么用 怎么用呢

vb的dragdrop dragmode 属性是什么意思 有什么用 怎么用呢

DragDrop 事件示例本例
演示将一个 PictureBox 控件放到另一个 PictureBox 控件上的视觉效果。要尝试这个例子，可将代码粘贴到一个含有 3 个 PictureBox 控件的窗体声明部分。将 Picture1 和 Picture2 的 DragMode 属性设置为 1（自动）。使用 Picture 属性将位图赋值给 Picture1 和 Picture2，然后按 F5 键并将 Picture1 或 Picture2 拖到 Picture3 上。
Private Sub Picture3_DragDrop (Source As Control, X as Single, Y As Single)
If TypeOf Source Is PictureBox Then
' 将 Picture3 位图设置为与源控件相同。
Picture3.Picture = Source.Picture End If
End Sub
DragMode 属性示例
每次单击窗体时，这个例子使拖动 CommandButton 控件的操作有效和无效。要试用此例，先把代码粘贴到包含 CommandButton 的窗体的声明部分，然后按 F5 键并单击窗体。
Private Sub Form_Click ()

' 检查 DragMode.
If Command1.DragMode = vbManual Then ' 打开 DragMode .
Command1.DragMode = vbAutomatic
Else ' 或关闭 DragMode.
Command1.DragMode = vbManual
End If
End Sub