這個簡單,下面是例子。運行後把一個超鏈接拖動到Form1中,再放開鼠標,再查看Form1的窗體標題文本,看看Private Sub Form_Load() Me.OLEDropMode = 1 End SubPrivate Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = Data.GetData(vbCFText) End Sub
Me.OLEDropMode = 1
End SubPrivate Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = Data.GetData(vbCFText)
End Sub
谢谢!