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 继承。）
【vb.net收藏夹位置的简单介绍】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
VB.NET savefiledialog控件怎么查看保存路径或者设置保存路径？其
FileName
属性可以取到点击确定之后vb.net收藏夹位置的完整路径地址vb.net收藏夹位置，是带文件名vb.net收藏夹位置的vb.net收藏夹位置，再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夹路径。
其
InitialDirectory
属性可以设置打开时默认指向vb.net收藏夹位置的路径。
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 = szTitleChr$(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
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收藏夹位置的信息别忘了在本站进行查找喔。

vb.net收藏夹位置的简单介绍

推荐阅读

自流平地面做法家装自流平地面做法

soul为什么打不开相册

早上好精美短语句子早上好精美短语

夏秋防治日光性皮炎

库乐队小提琴教程小提琴教程

苹果6手机将缓存以及垃圾清除具体操作方法

木糖醇蛋糕的做法

梅毒的危害感染梅毒多久可以查出来吗

香港|北京3日内新增两例香港输入病例，有一点很相似

Win10使用WMIC提示“WMIC已弃用”

oracle日期函数显示年月日，oracle日期型怎么写

七个长字的歇后语是什麽

泪痕沟去除的小方法泪痕碗之念

redis客户端工具有哪些 redis客户端的编写

ios客户端是什么，i phone客户端是什么东西

老年人应向年轻人学习9件事

土豆红烧排骨

置之脑后是什么意思置之脑后解释

开封特产有哪些

润喉片长期吃好吗润喉片长期吃有副作用吗