Public Type BrowseInfo hwndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long 你要是想用treeview加载,那有点麻烦。
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
你要是想用treeview加载,那有点麻烦。
一个管理VB源码的数据库吐血推荐
可以任意添加删除