VB dragover事件

[liubo20083]

在dragover 过程中，将一个控件拖动到另一个控件上面，如何返回另一个控件的名称？谢谢各位大神……

[clear_zero]

你要在你的目标控件的dragover里面写代码就好了

[贝隆]

DragOver 事件示例
本例演示一种指示有效的拖放目标的方法。当一个 TextBox 控件被拖过一个 PictureBox 控件时，指针从缺省的箭头变为特定的图标。当源被拖到其它地方时，指针恢复到缺省的状态。要尝试这个例子，可将代码粘贴到一个包含 1 个小 TextBox 和一个 PictureBox 的窗体的声明部分。将 TextBox 控件的 DragMode 属性设置为 1，然后按 F5 键并把 TextBox 拖过 PictureBox。

Private Sub Picture1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
Select Case State
Case vbEnter
' 装载图标。
Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO")
Case vbLeave
Source.DragIcon = LoadPicture() ' 卸载图标.
End Select
End Sub

Private Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
Source.DragIcon = LoadPicture() ' 卸载图标。
End Sub

[of123]

DrugOver 和 DrugDrop 事件，都是相对于被入侵者（即你所说的另一个控件）来说的。因此，哪一个控件的 DrugOver 或 DrugDrop 事件被激活，“另一个”控件就是它。