这里以我的软件“文章管理系统”为例解释一下OLE拖放在VB中的应用： 在窗体中添加一个Image控件，在它的imgDrop_OLEDragDrop过程中添加如下代码： Private Sub imgDrop_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim strTmp
If Data.GetFormat(15) Then Dim strFileName as String strFileName = GetFileName(Data.Files(1)) ............ End If
If Data.GetFormat(1) Then Dim strContent as String strContent=Data.GetData(1) ................. End If End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
