正文
vb.net收藏夹位置的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用VB.NET如何实现添加到收藏夹
一般要用到这个类:System.Windows.Forms.WebBrowser
使用 WebBrowser 控件可以在 Windows 窗体应用程序中承载网页以及支持浏览器vb.net收藏夹位置的其vb.net收藏夹位置他文档。例如vb.net收藏夹位置，可以使用 WebBrowser 控件在应用程序中提供基于 HTML 的集成用户帮助或 Web 浏览功能。此外，还可以使用 WebBrowser 控件向 Windows 窗体客户端应用程序添加基于 Web 的现有控件。
使用户可以在窗体中导航网页。
下表列出vb.net收藏夹位置了由 WebBrowser 类型公开的成员。
公共构造函数
名称 说明
WebBrowser 初始化 WebBrowser 类的新实例。
页首
公共属性 （请参见 受保护的属性 ）
名称 说明
AccessibilityObject 获取分配给该控件的 AccessibleObject。（从 Control 继承。）
AccessibleDefaultActionDescription 获取或设置控件的默认操作说明，供辅助功能客户端应用程序使用。（从 Control 继承。）
AccessibleDescription 获取或设置辅助功能客户端应用程序使用的控件说明。（从 Control 继承。）
AccessibleName 获取或设置辅助功能客户端应用程序所使用的控件名称。（从 Control 继承。）
AccessibleRole 获取或设置控件的辅助性角色 （从 Control 继承。）
ActiveXInstance 获取基础 ActiveX WebBrowser 控件。（从 WebBrowserBase 继承。）
AllowDrop 此控件不支持此属性。（从 WebBrowserBase 继承。）
AllowNavigation 获取或设置一个值，该值指示控件在加载其初始页之后是否可以导航到其vb.net收藏夹位置他页。
AllowWebBrowserDrop 获取或设置一个值，该值指示 WebBrowser 控件是否导航到拖放到它上面的文档。
Anchor 获取或设置控件绑定到的容器的边缘并确定控件如何随其父级一起调整大小。 （从 Control 继承。）
AutoScrollOffset 获取或设置一个值，该值指示在 ScrollControlIntoView 中将控件滚动到何处。（从 Control 继承。）
AutoSize 此属性与此类无关。（从 Control 继承。）
BackColor 此属性对于此控件无意义。（从 WebBrowserBase 继承。）
BackgroundImage 此控件不支持此属性。（从 WebBrowserBase 继承。）
BackgroundImageLayout 此控件不支持此属性。（从 WebBrowserBase 继承。）
BindingContext 获取或设置控件的 BindingContext。（从 Control 继承。）
Bottom 获取控件下边缘与其容器的工作区上边缘之间的距离（以像素为单位）。（从 Control 继承。）
Bounds 获取或设置控件（包括其非工作区元素）相对于其父控件的大小和位置（以像素为单位）。（从 Control 继承。）
CanFocus 获取一个值，该值指示控件是否可以接收焦点。（从 Control 继承。）
CanGoBack 获取一个值，该值指示导航历史记录中的上一页是否可用，如果可用，GoBack 方法才能成功。
CanGoForward 获取一个值，该值指示导航历史记录中的下一页是否可用，如果可用，GoForward 方法才能成功。
CanSelect 获取一个值，该值指示是否可以选中控件。（从 Control 继承。）
Capture 获取或设置一个值，该值指示控件是否已捕获鼠标。（从 Control 继承。）
CausesValidation 获取或设置一个值，该值指示控件是否会引起在任何需要在接收焦点时执行验证的控件上执行验证。（从 Control 继承。）
CheckForIllegalCrossThreadCalls 获取或设置一个值，该值指示是否捕获对错误线程的调用，这些调用访问控件的 Handle 属性。（从 Control 继承。）
ClientRectangle 获取表示控件的工作区的矩形。（从 Control 继承。）
ClientSize 获取或设置控件的工作区的高度和宽度。（从 Control 继承。）
CompanyName 获取包含控件的应用程序的公司名称或创建者。（从 Control 继承。）
Container 获取 IContainer，它包含 Component。（从 Component 继承。）
ContainsFocus 获取一个值，该值指示控件或它的一个子控件当前是否有输入焦点。（从 Control 继承。）
ContextMenu 获取或设置与控件关联的快捷菜单。（从 Control 继承。）
ContextMenuStrip 获取或设置与此控件关联的 ContextMenuStrip。（从 Control 继承。）
Controls 获取包含在控件内的控件的集合。（从 Control 继承。）
Created 获取一个值，该值指示控件是否已经创建。（从 Control 继承。）
Cursor 此控件不支持此属性。（从 WebBrowserBase 继承。）
DataBindings 为该控件获取数据绑定。（从 Control 继承。）
DefaultBackColor 获取控件的默认背景色。（从 Control 继承。）
DefaultFont 获取控件的默认字体。（从 Control 继承。）
DefaultForeColor 获取控件的默认前景色。（从 Control 继承。）
DisplayRectangle 获取表示控件的显示区域的矩形。（从 Control 继承。）
Disposing 获取一个值，该值指示 Control 基类是否在释放进程中。（从 Control 继承。）
Dock 获取或设置哪些控件边框停靠到其父控件并确定控件如何随其父级一起调整大小。（从 Control 继承。）
Document 获取一个 HtmlDocument，它表示当前显示在 WebBrowser 控件中的网页。
DocumentStream 获取或设置一个流，该流包含显示在 WebBrowser 控件中的网页的内容。
DocumentText 获取或设置显示在 WebBrowser 控件中的页的 HTML 内容。
DocumentTitle 获取当前显示在 WebBrowser 控件中的文档的标题。
DocumentType 获取当前显示在 WebBrowser 控件中的文档的类型。
Enabled 此控件不支持此属性。（从 WebBrowserBase 继承。）
EncryptionLevel 获取一个值，该值指示当前显示在 WebBrowser 控件中的文档所使用的加密方法。
Focused 已重写。获取一个值，该值指示控件或其任一子窗口是否具有输入焦点。
Font 此属性对于此控件无意义。（从 WebBrowserBase 继承。）
ForeColor 此属性对于此控件无意义。（从 WebBrowserBase 继承。）
Handle 获取控件绑定到的窗口句柄。（从 Control 继承。）
HasChildren 获取一个值，该值指示控件是否包含一个或多个子控件。（从 Control 继承。）
Height 获取或设置控件的高度。（从 Control 继承。）
ImeMode 此属性对于此控件无意义。（从 WebBrowserBase 继承。）
InvokeRequired 获取一个值，该值指示调用方在对控件进行方法调用时是否必须调用 Invoke 方法，因为调用方位于创建控件所在的线程以外的线程中。（从 Control 继承。）
IsAccessible 获取或设置一个值，该值指示控件对辅助功能应用程序是否可见。（从 Control 继承。）
IsBusy 获取一个值，该值指示 WebBrowser 控件当前是否正在加载新文档。
IsDisposed 获取一个值，该值指示控件是否已经被释放。（从 Control 继承。）
IsHandleCreated 获取一个值，该值指示控件是否有与它关联的句柄。（从 Control 继承。）
IsMirrored 获取一个值，该值指示此控件是否为镜像控件。（从 Control 继承。）
IsOffline 获取或设置一个值，该值指示 WebBrowser 控件是否处于脱机模式。
IsWebBrowserContextMenuEnabled 获取或设置一个值，该值指示 WebBrowser 控件是否启用了快捷菜单。
LayoutEngine 获取控件的布局引擎的缓存实例。（从 Control 继承。）
Left 获取或设置控件左边缘与其容器的工作区左边缘之间的距离（以像素为单位）。（从 Control 继承。）
Location 获取或设置该控件的左上角相对于其容器的左上角的坐标。（从 Control 继承。）
Margin 获取或设置控件之间的空间。（从 Control 继承。）
MaximumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的上限。（从 Control 继承。）
MinimumSize 获取或设置大小，该大小是 GetPreferredSize 可以指定的下限。（从 Control 继承。）
ModifierKeys 获取一个值，该值指示哪一个修改键（Shift、Ctrl 和 Alt）处于按下的状态。（从 Control 继承。）
MouseButtons 获取一个值，该值指示哪一个鼠标按钮处于按下的状态。（从 Control 继承。）
MousePosition 获取鼠标光标的位置（以屏幕坐标表示）。（从 Control 继承。）
Name 获取或设置控件的名称。（从 Control 继承。）
ObjectForScripting 获取或设置一个对象，该对象可由显示在 WebBrowser 控件中的网页所包含的脚本代码访问。
Padding 此属性对于此控件无意义。
Parent 获取或设置控件的父容器。（从 Control 继承。）
PreferredSize 获取可以容纳控件的矩形区域的大小。（从 Control 继承。）
ProductName 获取包含控件的程序集的产品名称。（从 Control 继承。）
ProductVersion 获取包含控件的程序集的版本。（从 Control 继承。）
ReadyState 获取一个值，该值指示 WebBrowser 控件的当前状态。
RecreatingHandle 获取一个值，该值指示控件当前是否在重新创建其句柄。（从 Control 继承。）
Region 获取或设置与控件关联的窗口区域。（从 Control 继承。）
Right 获取控件右边缘与其容器的工作区左边缘之间的距离（以像素为单位）。（从 Control 继承。）
RightToLeft 此控件不支持此属性。（从 WebBrowserBase 继承。）
ScriptErrorsSuppressed 获取或设置一个值，该值指示出现脚本错误时，WebBrowser 控件是否显示错误对话框。
ScrollBarsEnabled 获取或设置一个值，该值指示是否在 WebBrowser 控件中显示滚动条。
Site （从 WebBrowserBase 继承。）
Size 获取或设置控件的高度和宽度。（从 Control 继承。）
StatusText 获取 WebBrowser 控件的状态文本。
TabIndex 获取或设置在控件的容器的控件的 Tab 键顺序。（从 Control 继承。）
TabStop 获取或设置一个值，该值指示用户能否使用 Tab 键将焦点放到该控件上。（从 Control 继承。）
Tag 获取或设置包含有关控件的数据的对象。（从 Control 继承。）
Text 此控件不支持此属性。（从 WebBrowserBase 继承。）
Top 获取或设置控件上边缘与其容器的工作区上边缘之间的距离（以像素为单位）。（从 Control 继承。）
TopLevelControl 获取没有另一个 Windows 窗体控件作为其父级的父控件。通常，这是控件所在的最外面的 Form。（从 Control 继承。）
Url 获取或设置当前文档的 URL。
UseWaitCursor 此控件不支持此属性。（从 WebBrowserBase 继承。）
Version 获取所安装的 Internet Explorer 的版本。
Visible 获取或设置一个值，该值指示是否显示该控件。（从 Control 继承。）
WebBrowserShortcutsEnabled 获取或设置一个值，该值指示 WebBrowser 控件中是否启用了键盘快捷键。
Width 获取或设置控件的宽度。（从 Control 继承。）
WindowTarget （从 Control 继承。）
页首
受保护的属性
名称 说明
CanRaiseEvents 确定是否可以在控件上引发事件。（从 Control 继承。）
CreateParams 获取创建控件句柄时所需要的创建参数。（从 Control 继承。）
DefaultCursor 获取或设置控件的默认光标。（从 Control 继承。）
DefaultImeMode 获取控件支持的输入法编辑器 (IME) 模式。（从 Control 继承。）
DefaultMargin 获取控件之间默认指定的间距（以像素为单位）。（从 Control 继承。）
DefaultMaximumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最大大小。（从 Control 继承。）
DefaultMinimumSize 获取以像素为单位的长度和高度，此长度和高度被指定为控件的默认最小大小。（从 Control 继承。）
DefaultPadding 获取控件内容的内部间距（以像素为单位）。（从 Control 继承。）
DefaultSize 已重写。
DesignMode 获取一个值，用以指示 Component 当前是否处于设计模式。（从 Component 继承。）
DoubleBuffered 获取或设置一个值，该值指示此控件是否应使用辅助缓冲区重绘其图面，以减少或避免闪烁。（从 Control 继承。）
Events 获取附加到此 Component 的事件处理程序的列表。（从 Component 继承。）
FontHeight 获取或设置控件的字体的高度。（从 Control 继承。）
RenderRightToLeft （从 Control 继承。）
ResizeRedraw 获取或设置一个值，该值指示控件在调整大小时是否重绘自己。（从 Control 继承。）
ScaleChildren 获取一个值，该值确定子控件的缩放。 （从 Control 继承。）
ShowFocusCues 获取一个值，该值指示控件是否应显示聚焦框。（从 Control 继承。）
ShowKeyboardCues 获取一个值，该值指示用户界面是否处于适当的状态以显示或隐藏键盘快捷键。（从 Control 继承。）
页首
公共方法 （请参见 受保护的方法 ）
名称 说明
BeginInvoke 已重载。 在创建控件的基础句柄所在线程上异步执行委托。 （从 Control 继承。）
BringToFront 将控件带到 Z 顺序的前面。 （从 Control 继承。）
Contains 检索一个值，该值指示指定控件是否为一个控件的子控件。 （从 Control 继承。）
CreateControl 强制创建控件，包括创建句柄和任何子控件。 （从 Control 继承。）
CreateGraphics 为控件创建 Graphics。 （从 Control 继承。）
CreateObjRef 创建一个对象，该对象包含生成用于与远程对象进行通信的代理所需的全部相关信息。 （从 MarshalByRefObject 继承。）
Dispose 已重载。 释放由控件使用的所有资源。
DoDragDrop 开始拖放操作。 （从 Control 继承。）
DrawToBitmap 此控件不支持此方法。 （从 WebBrowserBase 继承。）
EndInvoke 检索由传递的 IAsyncResult 表示的异步操作的返回值。 （从 Control 继承。）
Equals 已重载。 确定两个 Object 实例是否相等。 （从 Object 继承。）
FindForm 检索控件所在的窗体。 （从 Control 继承。）
Focus 为控件设置输入焦点。 （从 Control 继承。）
FromChildHandle 检索包含指定句柄的控件。 （从 Control 继承。）
FromHandle 返回当前与指定句柄关联的控件。 （从 Control 继承。）
GetChildAtPoint 已重载。 检索指定位置的子控件。 （从 Control 继承。）
GetContainerControl 沿着控件的父控件链向上，返回下一个 ContainerControl。 （从 Control 继承。）
GetHashCode 用作特定类型的哈希函数。GetHashCode 适合在哈希算法和数据结构（如哈希表）中使用。 （从 Object 继承。）
GetLifetimeService 检索控制此实例的生存期策略的当前生存期服务对象。 （从 MarshalByRefObject 继承。）
GetNextControl 按照子控件的 Tab 键顺序向前或向后检索下一个控件。 （从 Control 继承。）
GetPreferredSize 检索可以容纳控件的矩形区域的大小。 （从 Control 继承。）
GetType 获取当前实例的 Type。 （从 Object 继承。）
GoBack 如果导航历史记录中的上一页可用，则将 WebBrowser 控件导航到该页。
GoForward 如果导航历史记录中的下一页可用，则将 WebBrowser 控件导航到该页。
GoHome 将 WebBrowser 控件导航到当前用户的主页。
GoSearch 将 WebBrowser 控件导航到当前用户的默认搜索页。
Hide 对用户隐藏控件。 （从 Control 继承。）
InitializeLifetimeService 获取控制此实例的生存期策略的生存期服务对象。 （从 MarshalByRefObject 继承。）
Invalidate 已重载。 使控件的特定区域无效并向控件发送绘制消息。 （从 Control 继承。）
Invoke 已重载。 在拥有此控件的基础窗口句柄的线程上执行委托。 （从 Control 继承。）
IsKeyLocked 确定 Caps Lock、Num Lock 或 Scroll Lock 键是否有效。 （从 Control 继承。）
IsMnemonic 搜索指定的字符串，以确定指定字符是否是分配给此控件的助记键字符。 （从 Control 继承。）
Navigate 已重载。 将指定位置的文档加载到 WebBrowser 控件中。
PerformLayout 已重载。 强制控件将布局逻辑应用于子控件。 （从 Control 继承。）
PointToClient 将指定屏幕点的位置计算成工作区坐标。 （从 Control 继承。）
PointToScreen 将指定工作区点的位置计算成屏幕坐标。 （从 Control 继承。）
PreProcessControlMessage 在调度键盘或输入消息之前，在消息循环内对它们进行预处理。 （从 Control 继承。）
PreProcessMessage （从 WebBrowserBase 继承。）
Print 使用当前打印和页面设置打印当前显示在 WebBrowser 控件中的文档。
RectangleToClient 计算指定屏幕矩形的大小和位置（以工作区坐标表示）。 （从 Control 继承。）
RectangleToScreen 计算指定工作区矩形的大小和位置（以屏幕坐标表示）。 （从 Control 继承。）
ReferenceEquals 确定指定的 Object 实例是否是相同的实例。 （从 Object 继承。）
Refresh 已重载。 已重写。 重新加载当前显示在 WebBrowser 控件中的文档。
ResetBackColor （从 Control 继承。）
ResetBindings （从 Control 继承。）
ResetCursor （从 Control 继承。）
ResetFont （从 Control 继承。）
ResetForeColor （从 Control 继承。）
ResetImeMode （从 Control 继承。）
ResetRightToLeft （从 Control 继承。）
ResetText 将 Text 属性重置为其默认值。 （从 Control 继承。）
ResumeLayout 已重载。 恢复正常的布局逻辑。 （从 Control 继承。）
Scale 已重载。 缩放控件和任何子控件。 （从 Control 继承。）
Select 已重载。 激活控件。 （从 Control 继承。）
SelectNextControl 激活下一个控件。 （从 Control 继承。）
SendToBack 将控件发送到 Z 顺序的后面。 （从 Control 继承。）
SetBounds 已重载。 设置控件的边界。 （从 Control 继承。）
Show 向用户显示控件。 （从 Control 继承。）
ShowPageSetupDialog 打开 Internet Explorer“页面设置”对话框。
ShowPrintDialog 打开 Internet Explorer 的“打印”对话框，但不设置页眉或页脚值。
ShowPrintPreviewDialog 打开 Internet Explorer 的“打印预览”对话框。
ShowPropertiesDialog 打开当前文档的 Internet Explorer“属性”对话框。
ShowSaveAsDialog 打开 Internet Explorer 的“保存网页”对话框，如果承载的文档不是 HTML 页，则打开其“保存”对话框。
Stop 取消所有挂起的导航并停止所有动态页元素（如背景声音和动画）。
SuspendLayout 临时挂起控件的布局逻辑。 （从 Control 继承。）
ToString 返回包含 Component 的名称的 String（如果有）。不应重写此方法。 （从 Component 继承。）
Update 使控件重绘其工作区内的无效区域。 （从 Control 继承。）
页首
受保护的方法
名称 说明
AccessibilityNotifyClients 已重载。 向具有辅助功能的客户端应用程序通知 AccessibleEvents。 （从 Control 继承。）
AttachInterfaces 已重写。 创建基础 ActiveX 控件时由该控件调用。
CreateAccessibilityInstance 为该控件创建一个新的辅助功能对象。 （从 Control 继承。）
CreateControlsInstance 为控件创建控件集合的新实例。 （从 Control 继承。）
CreateHandle 为该控件创建句柄。 （从 Control 继承。）
CreateSink 已重写。 使基础 ActiveX 控件与可以处理控件事件的客户端相关联。
CreateWebBrowserSiteBase 已重写。 返回对非托管 WebBrowser ActiveX 控件站点的引用，扩展该站点可以对托管 WebBrowser 控件进行自定义。
DefWndProc 向默认窗口过程发送指定消息。 （从 Control 继承。）
DestroyHandle 毁坏与该控件关联的句柄。 （从 Control 继承。）
DetachInterfaces 已重写。 放弃基础 ActiveX 控件时由该控件调用。
DetachSink 已重写。 从基础 ActiveX 控件中释放附加在 CreateSink 方法中的事件处理客户端。
Dispose 已重载。 已重写。 释放由控件使用的所有资源。
Finalize 在通过垃圾回收将 Component 回收之前，释放非托管资源并执行其他清理操作。 （从 Component 继承。）
GetAccessibilityObjectById 检索指定的 AccessibleObject。 （从 Control 继承。）
GetAutoSizeMode 检索一个值，该值指示当启用控件的 AutoSize 属性时控件的行为方式。 （从 Control 继承。）
GetScaledBounds 检索缩放控件时的边界。 （从 Control 继承。）
GetService 返回一个对象，该对象表示由 Component 或它的 Container 提供的服务。 （从 Component 继承。）
GetStyle 为控件检索指定控件样式位的值。 （从 Control 继承。）
GetTopLevel 确定控件是否是顶级控件。 （从 Control 继承。）
InitLayout 在将控件添加到另一个容器之后调用。 （从 Control 继承。）
InvokeGotFocus 为指定的控件引发 GotFocus 事件。 （从 Control 继承。）
InvokeLostFocus 为指定的控件引发 LostFocus 事件。 （从 Control 继承。）
InvokeOnClick 为指定的控件引发 Click 事件。 （从 Control 继承。）
InvokePaint 为指定的控件引发 Paint 事件。 （从 Control 继承。）
InvokePaintBackground 为指定的控件引发 PaintBackground 事件。 （从 Control 继承。）
IsInputChar （从 WebBrowserBase 继承。）
IsInputKey 确定指定的键是常规输入键还是需要预处理的特殊键。 （从 Control 继承。）
MemberwiseClone 已重载。 （从 MarshalByRefObject 继承。）
NotifyInvalidate 引发 Invalidated 事件，其中带有要使之无效的控件的指定区域。 （从 Control 继承。）
OnAutoSizeChanged 引发 AutoSizeChanged 事件。 （从 Control 继承。）
OnBackColorChanged （从 WebBrowserBase 继承。）
OnBackgroundImageChanged 引发 BackgroundImageChanged 事件。 （从 Control 继承。）
OnBackgroundImageLayoutChanged 引发 BackgroundImageLayoutChanged 事件。 （从 Control 继承。）
OnBindingContextChanged 引发 BindingContextChanged 事件。 （从 Control 继承。）
OnCanGoBackChanged 引发 CanGoBackChanged 事件。
OnCanGoForwardChanged 引发 CanGoForwardChanged 事件。
OnCausesValidationChanged 引发 CausesValidationChanged 事件。 （从 Control 继承。）
OnChangeUICues 引发 ChangeUICues 事件。 （从 Control 继承。）
OnClick 引发 Click 事件。 （从 Control 继承。）
OnClientSizeChanged 引发 ClientSizeChanged 事件。 （从 Control 继承。）
OnContextMenuChanged 引发 ContextMenuChanged 事件。 （从 Control 继承。）
OnContextMenuStripChanged 引发 ContextMenuStripChanged 事件。 （从 Control 继承。）
OnControlAdded 引发 ControlAdded 事件。 （从 Control 继承。）
OnControlRemoved 引发 ControlRemoved 事件。 （从 Control 继承。）
OnCreateControl 引发 CreateControl 事件。 （从 Control 继承。）
OnCursorChanged 引发 CursorChanged 事件。 （从 Control 继承。）
OnDockChanged 引发 DockChanged 事件。 （从 Control 继承。）
OnDocumentCompleted 引发 DocumentCompleted 事件。
OnDocumentTitleChanged 引发 DocumentTitleChanged 事件。
OnDoubleClick 引发 DoubleClick 事件。 （从 Control 继承。）
OnDragDrop 引发 DragDrop 事件。 （从 Control 继承。）
OnDragEnter 引发 DragEnter 事件。 （从 Control 继承。）
OnDragLeave 引发 DragLeave 事件。 （从 Control 继承。）
OnDragOver 引发 DragOver 事件。 （从 Control 继承。）
OnEnabledChanged 引发 EnabledChanged 事件。 （从 Control 继承。）
OnEncryptionLevelChanged 引发 EncryptionLevelChanged 事件。
OnEnter 引发 Enter 事件。 （从 Control 继承。）
OnFileDownload 引发 FileDownl
相关问答
Q1: VB.NET savefiledialog控件 怎么查看 保存路径 或者 设置保存路径？
其
FileName
属性可以取到点击确定之后vb.net收藏夹位置的完整路径地址vb.net收藏夹位置，是带文件名vb.net收藏夹位置的vb.net收藏夹位置，再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夹路径。
其
InitialDirectory
属性可以设置打开时默认指向vb.net收藏夹位置的路径。
Q2: vb6.0制作浏览器怎样写另存为、打开、添加至收藏夹、整理收藏夹。详细代码是什么？
添加2个txet控件,一个command(实现添加至收藏夹)
Private Const MAX_PATH As Long = 260
Private Const ERROR_SUCCESS As Long = 0
Private Const S_OK As Long = 0
Private Const S_FALSE As Long = 1
Private Const SHGFP_TYPE_CURRENT As Long = H0
Private Const SHGFP_TYPE_DEFAULT As Long = H1
Const CSIDL_FAVORITES As Long = H6
Private Declare Function DoAddToFavDlg Lib "shdocvw" _
(ByVal hWnd As Long, _
ByVal szPath As String, _
ByVal nSizeOfPath As Long, _
ByVal szTitle As String, _
ByVal nSizeOfTitle As Long, _
ByVal pidl As Long) As Long
Private Declare Function DoOrganizeFavDlg Lib "shdocvw" _
(ByVal hWnd As Long, _
ByVal lpszRootFolder As String) As Long
Private Declare Function SHGetFolderPath Lib "shfolder" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
ByVal hToken As Long, _
ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
pidl As Long) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpSectionName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" _
(ByVal pv As Long)
Public Sub ProfileSaveItem(lpSectionName As String, _
lpKeyName As String, _
lpValue As String, _
iniFile As String)
Call WritePrivateProfileString(lpSectionName, lpKeyName, lpValue, iniFile)
End Sub
Private Function MakeFavouriteEntry(szTitle As String, sURL As String) As String
'变量定义
Dim success As Long
Dim pos As Long
Dim nSizeOfPath As Long
Dim nSizeOfTitle As Long
Dim pidl As Long
Dim szPath As String
'追加chr$(0)字符
szTitle = szTitle Chr$(0)
nSizeOfTitle = Len(szTitle)
'返回路径的字符串
szPath = Space$(MAX_PATH) Chr$(0)
nSizeOfPath = Len(szPath)
'得到用户“收藏夹”路径的PIDL (pointer to item identifier list)
'成功后返回值为ERROR_SUCCESS
If SHGetSpecialFolderLocation(hWnd, _
CSIDL_FAVORITES, _
pidl) = ERROR_SUCCESS Then
'调用“添加到收藏夹”对话框
'hwnd = 本窗口的句柄
'szPath = 所选择文件夹的绝对路径，包括文件名和所需的URL
' 例如，在我的系统里就是C:\Documents and Settings\40Star\Favorites\CSDN.NET--中国最大的开发者网络.url
'szTitle = 标题
'pidl = PIDL 描述用户的收藏夹的信息
success = DoAddToFavDlg(hWnd, _
szPath, nSizeOfPath, _
szTitle, nSizeOfTitle, _
pidl)
'如果路径有效并指定了标题，而且用户选择了“确定”，success 返回 1
If success = 1 Then
'删除最后的Chr$ (0)
pos = InStr(szPath, Chr$(0))
szPath = Left(szPath, pos - 1)
pos = InStr(szTitle, Chr$(0))
szTitle = Left(szTitle, pos - 1)
'在Text中显示结果
Text1.Text = szPath
Text2.Text = szTitle
Call ProfileSaveItem("InternetShortcut", "URL", sURL, szPath)
'返回创建成功的路径
MakeFavouriteEntry = szPath
End If
'清空PIDL
Call CoTaskMemFree(pidl)
End If
End Function
Private Sub Command1_Click()
Dim szTitle As String
Dim sURL As String
Dim sResult As String
'指定添加到收藏夹后的快捷方式的名称
szTitle = Text1.Text
'指定添加到收藏夹后的快捷方式的URL
sURL = Text2.Text
'调用MakeFavouriteEntry函数，打开对话框
sResult = MakeFavouriteEntry(szTitle, sURL)
End Sub
Private Sub Form_Load()
End Sub
Q3: vb.net 如何移动文件夹?
Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称，新的文件夹名称）
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称不变
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称 更改为 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’当路径相同时只改文件夹名称 不移动文件
vb.net收藏夹位置的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net收藏夹位置的信息别忘了在本站进行查找喔。
