请问怎样可以实现把资源管理器里面的c:\1.txt文件, 用鼠标拖到 richtextbox 里面放下时, richtextbox 可以显示里面的文件内容?

Question

怎样可以实现把资源管理器里面的c:\1.txt文件,  用鼠标拖到  richtextbox 里面放下时, richtextbox 可以显示里面的文件内容?

Answer 1

用ＯＬＥ拖动就可以了，看看msdn吧

Answer 2

把 oledragmode 属性设置为 manual  然后 调用就可以了

Answer 3

把控件的oleDropmode设为１，人工，在　OLEDragDrop　OLEDragOver　事件中获取Private Sub lvwAnnex_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If Data.GetFormat(vbCFFiles) = True Then
       
        Effect = OLEDragDropFiles(Data)
    
    End IfEnd SubPrivate Sub lvwAnnex_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    
    If Data.GetFormat(vbCFFiles) = True Then
       
        Effect = vbDropEffectCopy
    
    End IfEnd Sub

Answer 4

to 楼上,
我试过不行啊.提示错误: OLEDragDropFiles  函数未定义我的问题是:从　windows 的资源管理器里面把　txt 文件拖到  richtextbox 里面，　我怕我表达得不够清楚．

Answer 5

就是呀，我的代码不完整，你可以参考一下msdn