OLE 为什么无法获得特殊图标？

2006-05-25 05:35:15 302 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sss2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

Excel办公效率提升：3分钟学会批量插入文件图标（含路径设置技巧）本文详细介绍了如何在Excel中批量插入文件图标并设置路径，无需编程知识即可在3分钟内掌握这一高效办公技巧。通过OLE对象链接与嵌入技术，实现文件图标的快速插入与路径管理，大幅提升文档处理效率，特别适合处理大量附件的行政人员和项目协调者。阅读详情

我设置 FORM 为 OLE 后，可以得到任何文件的信息，但是如果把“我的电脑”、“我的文档”等图标拖到我程序的窗体就无法识别，提示错误是“数据格式不匹配”。

请问这些特殊的图标该怎么获得数据？

代码如下：

Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

If Data.GetFormat(vbCFText) Then
Text1.Text = Data.GetData(vbCFText)
Else
For i1 = 1 To Data.Files.Count
Text1.Text = Data.Files(i1)
Next
End If

End Sub

...全文

C++ Win32 API实现Windows文件拖放功能：从WM_DROPFILES到OLE拖放在Windows桌面应用开发中，消息机制是GUI编程的核心基础，它构成了事件驱动模型的骨架。其原理在于系统将用户操作（如鼠标点击、键盘输入）转化为消息，通过消息队列传递给窗口过程函数进行处理。掌握这一机制的技术价值在于能够实现高度定制化的交互功能，例如文件拖放操作，这对于提升软件的专业性和用户体验至关重要。在应用场景上，无论是资源管理器、设计工具还是内部系统，都需要支持直观的拖拽交互。本文聚焦于使用C++和Win32 API实现文件拖放功能，详细解析了WM_DROPFILES消息的处理流程，并进阶介绍了基于阅读详情

sss2002

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

sss2002 2006-06-03

打赏
举报

顶上来

province_ 2006-05-28

打赏
举报

If Data.GetFormat(vbCFText) Then
Text1.Text = Data.GetData(vbCFText)
Else If Data.GetFormat(vbCFFiles) Then '加上判断吧。OLE类型又不是仅仅这么两种
For i1 = 1 To Data.Files.Count
Text1.Text = Data.Files(i1)
Next
end if
End If

sss2002 2006-05-28

打赏
举报

召唤高人显身，顶阿

of123 2006-05-25

打赏
举报

我的文档、我的电脑并不是真正的文件或文件夹，而是一个映射对象。

你需要在捕获错误后进行处理。
下面是一个获取特殊文件夹路径的例子：
'Module Code
Option Explicit
Declare Function SHGetSpecialFolderLocation Lib "Shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Declare Function SHGetPathFromIDList Lib "Shell32.dll" Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal pszPath As String) As Long
Public Type SHITEMID
cb As Long
abID As Byte
End Type

Public Type ITEMIDLIST
mkid As SHITEMID
End Type
Public Const MAX_PATH As Integer = 260

Public Function fGetSpecialFolder(CSIDL As Long) As String
Dim sPath As String
Dim IDL As ITEMIDLIST
'
' Retrieve info about system folders such as the "Recent Documents" folder.
' Info is stored in the IDL structure.
'
fGetSpecialFolder = ""
If SHGetSpecialFolderLocation(Form1.hwnd, CSIDL, IDL) = 0 Then
'
' Get the path from the ID list, and return the folder.
'
sPath = Space$(MAX_PATH)
If SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) Then
fGetSpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1) & ""
End If
End If
End Function

'Form Code
Private Const CSIDL_DESKTOP = &H0 '// The Desktop - virtual folder
Private Const CSIDL_PROGRAMS = 2 '// Program Files
Private Const CSIDL_CONTROLS = 3 '// Control Panel - virtual folder
Private Const CSIDL_PRINTERS = 4 '// Printers - virtual folder
Private Const CSIDL_DOCUMENTS = 5 '// My Documents
Private Const CSIDL_FAVORITES = 6 '// Favourites
Private Const CSIDL_STARTUP = 7 '// Startup Folder
Private Const CSIDL_RECENT = 8 '// Recent Documents
Private Const CSIDL_SENDTO = 9 '// Send To Folder
Private Const CSIDL_BITBUCKET = 10 '// Recycle Bin - virtual folder
Private Const CSIDL_STARTMENU = 11 '// Start Menu
Private Const CSIDL_DESKTOPFOLDER = 16 '// Desktop folder
Private Const CSIDL_DRIVES = 17 '// My Computer - virtual folder
Private Const CSIDL_NETWORK = 18 '// Network Neighbourhood - virtual folder
Private Const CSIDL_NETHOOD = 19 '// NetHood Folder
Private Const CSIDL_FONTS = 20 '// Fonts folder
Private Const CSIDL_SHELLNEW = 21 '// ShellNew folder

Private Sub form_load()
MsgBox "Desktop Folder " & fGetSpecialFolder(CSIDL_DESKTOPFOLDER)
MsgBox "Recent Folder " & fGetSpecialFolder(CSIDL_RECENT)
'// etc...
End Sub

sss2002 2006-05-25

打赏
举报

感谢楼上的，那么当这些特殊的图标拖到 FORM 后，错误如何捕获呢？

OLE 为什么无法获得特殊图标？

相关推荐