208.htm

vb功能实例介绍。详细、很好的实例说明。

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