1,451
社区成员
发帖
与我相关
我的任务
分享如何调用webbrowser控件的“另存为”、“添加到收藏夹”、“整理收藏夹”、“同步”对话框？
如何调用webbrowser控件的“另存为”、“添加到收藏夹”、“整理收藏夹”、“同步”对话框？谢谢！
...全文
请发表友善的回复…
发表回复
griefforme 2002-07-03
- 打赏
- 举报
整理收藏夹
Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Private Sub mnuFixFavirate_Click()
Dim strFavPath As String * MAX_PATH
SHGetSpecialFolderPath Me.hWnd, strFavPath, CSIDL_FAVORITES, False
DoOrganizeFavDlg Me.hWnd, strFavPath
End Sub
Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Private Sub mnuFixFavirate_Click()
Dim strFavPath As String * MAX_PATH
SHGetSpecialFolderPath Me.hWnd, strFavPath, CSIDL_FAVORITES, False
DoOrganizeFavDlg Me.hWnd, strFavPath
End Sub
40Star 2002-07-03
- 打赏
- 举报
另存为 WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
