谁能帮我解决这个问题：关于IE收藏夹。例子我已做好。
现在的例子是Form_Onlond 调用模块里的GetFaves 函数
GetFaves Me 传递窗口过去
动态加载菜单栏 Favorites
单击列表收藏夹。
我想现实点击按钮Command1把收藏列表在Command1下。
谢谢帮忙。
例子下载：www.my1982.com/Ex.Rar
我Q：23638564
Eamil:kpggdf@163.com
谢谢帮忙~~
问题点数：0、回复次数：4Top
1 楼ziyantan（gdsspt.com）回复于 2004-12-04 00:19:34 得分 0
顶一下Top
2 楼ziyantan（gdsspt.com）回复于 2004-12-04 10:22:28 得分 0
TTop
3 楼ziyantan（gdsspt.com）回复于 2004-12-04 11:57:04 得分 0
我等到花儿也谢了。
高手那去了。
贴子都发这么久了。
有星的在那啦？
下午我自己解决他看看。
晕死Top
4 楼daisy8675（莫依 沉迷）回复于 2004-12-09 01:28:06 得分 0
Private Sub cmdOrgFavorite_Click()
Dim lpszRootFolder As String
Dim lpszPath As String
Dim dwReturn As Long
lpszPath = Space$(256)
dwReturn = SHGetFolderPath(Me.hWnd, _
CSIDL_FAVORITES, _
0&, &H0, lpszPath)
If dwReturn = 0 Then
lpszRootFolder = Left$(lpszPath, InStr(lpszPath, vbNullChar) - 1)
End If
DoOrganizeFavDlg hWnd, lpszRootFolder
End Sub
' 秨﹍\祘Α栋
Public Const CSIDL_PROGRAMS = &H2
' My Documents
Public Const CSIDL_PERSONAL = &H5
' {ㄏノ}\и程稲 Windows NT
Public Const CSIDL_FAVORITES = &H6
' 秨﹍\祘Α栋\币笆
Public Const CSIDL_STARTUP = &H7
' {ㄏノ}\秨﹍ Windows NT
Public Const CSIDL_STARTMENU = &HB
' {ㄏノ}\ Windows NT
Public Const CSIDL_DESKTOPDIRECTORY = &H10
' {Windows}\ShellNew
Public Const CSIDL_TEMPLATES = &H15
' All Users\秨﹍ Windows NT
Public Const CSIDL_COMMON_STARTMENU = &H16
' All Users\祘Α栋 Windows NT
Public Const CSIDL_COMMON_PROGRAMS = &H17
' All Users\币笆 Windows NT
Public Const CSIDL_COMMON_STARTUP = &H18
' All Users\ Windows NT
Public Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
' {Windows}\Application Data
Public Const CSIDL_APPDATA = &H1A
' All Users\и程稲 Windows NT
Public Const CSIDL_COMMON_FAVORITES = &H1F
' All Users\Application Data Windows NT
Public Const CSIDL_COMMON_APPDATA = &H23
Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" _
(ByVal hWnd As Long, _
ByVal lpszRootFolder As String) As Long
Public Declare Function SHGetFolderPath Lib "shfolder.dll" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
ByVal hToken As Long, _
ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long
Top
