文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
文本框中光标位置的获得
用VB导入导出你的IE收藏夹
VB应用程序访问SQL Server方法探讨
VB访问SQL Server数据库技术全揭密
自动上网抓数据的机器人
自己的IE——用VB制作浏览器
VB中如何保存Webbrowser中的整个页面..
在VB中该如何控制其它程序的弹出窗口..
保存webbrowser中的HTML内容
破译动网验证码的简单方法
轻松获取QQ密码
VB.NET获取硬盘序列号的方法
WEBBROWSER 技巧一(收藏)
VB自动登陆网络站点详解(二):Inet..
获取webbrowser控件网页的源码
WebBrowser控件说明
关于用VB做更漂亮的窗体的思考
VB中访问存储过程的几种办法
VB6中改变屏幕的分辨率和刷新频率
VB编写一个能显示百分比的自定义进度..
公农历转换VB类
VB.NET窗口渐淡关闭
使用VB实现邮箱自动注册(二):修改..
VB.NET轻松实现任务栏程序
VB.NET启动外部程序
利用vb实现图片上传
VB实现局域网内的文件传输
VB 一个Function传回多个值
在VB中实现多线程
VB 手机号码编码程序


技术教程 -> VB教程 ->  
用VB导入导出你的IE收藏夹
来源:转载   人气:1735   录入时间:2007-11-8
    经常使用IE上网冲浪的朋友,时间一长,通常在收藏夹里都积累了不少好东东。而一旦重装系统,尤其是当同一台机子中同时存有多个用户配置时,手工方式备份、恢复这些内容就未免麻烦。这里利用IE5对象库中的ShellUIHelper对象,编写一个简单的小程序,可以很方便的导入/导出IE收藏夹中的内容。
   
   一、在VB6中新建工程,如图所示,在窗体上依次设置控件:
   
   二、引用MicrosoftInternetControls对象库:
   
   *在VB6“工程”菜单上,单击“引用”;
   
   *在引用对话框选择“Microsoft Internet Controls”类型库ShDocVw.dll(Shell Doc Object and Control Library),然后确定。
   
   一旦引用了部件,可以从“视图”菜单中调出“对象浏览器”工具查看部件提供的对象、接口、方法、属性、事件以及常量。这里我们要使用ShellUIHelper对象的ImportExportFavorites方法:
    
   
   Sub ImportExportFavorites(fImport As Boolean, strImpExpPath As String)
   
   
    
   
   FImport为True/False值时表示导出/导出收藏夹内容,strImpExpPath为书签文件的路径。
   
   三、编写程序
    
   
   Dim IsImport As Boolean
   Private Sub CmdCancel_Click() ‘取消
   End
   End Sub
   Private Sub CmdOK_Click()
   ImportExportBookmark (IsImport)
   End Sub
   Private Sub Form_Load()
   OptExport.Value = True
   IsImport = False
   CDlgBookmark.CancelError = True 'CancelError属性设置为 True 时,无论何时选取“取消”按钮,均产生 32755 (cdlCancel) 号错误。
   End Sub
   Private Sub OptExport_Click() ‘选择“导出”
   IsImport = False
   End Sub
   Private Sub OptImport_Click() ‘选择“导入”
   IsImport = True
   End Sub
   Private Sub ImportExportBookmark(fImport As Boolean)
   Dim ObjSUH As SHDocVw.ShellUIHelper
   Set ObjSUH = New SHDocVw.ShellUIHelper
   If fImport = True Then
   CDlgBookmark.DialogTitle = "书签文件导入收藏夹:"
   On Error GoTo CancelHandler
   CDlgBookmark.ShowOpen
   Else
   CDlgBookmark.DialogTitle= "收藏夹导出到书签文件:"
   On Error GoTo CancelHandler
   CDlgBookmark.ShowSave
   End If
   ObjSUH.ImportExportFavorites fImport, CDlgBookmark.FileName
   CancelHandler: '文件对话框选择了“取消”按钮
   If Err.Number = cdlCancel Then Exit Sub
   End Sub
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987