有什么方法用text达到richtext的"拖放"效果

[xxlroad]

有什么方法用text达到richtext的"拖放"效果
1、拖放
就是和word里的效果差不多

请不要告诉我用richtext?

[Chice_wxg]

Text1.OLEDragMode = vbOLEDragAutomatic '1
Text1.OLEDropMode = vbOLEDropAutomatic '2
Text1.Text = "Please Drag This Text"
Text2.OLEDragMode = vbOLEDragAutomatic '1
Text2.OLEDropMode = vbOLEDropAutomatic '2

这样才可以

[jett]

OLEDropMode =2比较好
不用自己处理接受的数据

[acptdta]

感谢您使用微软产品。

关于Visual Basic中 OLEDrag/Drop，您也可以参考一下以下文章。该文章对Visual Basic中drag-and-drop的实现有较详细的描述：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvb600/html/dragdrop.asp


-微软全球技术中心 桌面产品技术支持


本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。

为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

[jamex]

为何不用richtext呢？

[xxlroad]

因为richtext 要带 ocx 我写的一个软件才 30来K

[jett]

用ole的drag

[jett]

Text1.OLEDragMode = 1
Text1.OLEDropMode = 1

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print Data.GetData(vbCFText)
End Sub

[xxlroad]

好的
谢谢大家