small

现在的一些应用程序大都有一些在线帮助，即可以通过Internet获得相应信息，
在菜单中直接启动浏览器并链接到相应的URL地址。在VB程序中我们可方便地实现这
一功能。举例如下，在这里我们启动浏览器并加载搜索引擎YAHOO。

　　程序及注释如下：

　　1．在FORM中加一命令按钮command1，CapionΚ＂链接到YAHOO”，双击按钮，
写如下代码：
    　Private Sub Command1—Click（）
    　　BrowseTo（“http：／／www．yahoo．com”）
  　　End Sub

　　2．加入一模块MODEL1，写如下代码：
　　′此模块函数启动默认的浏览器并加载URL地址，如果浏览器已打开，直接加载
URL地址，如果浏览器没有打开，则首先启动浏览器然后加载URL地址。
  　　OptionExplicit
　　′API函数声明，利用的是shellexecute
　　Private Declare Function ShelllExecute Lib "Shell32．dll" Alias_
"ShellExecuteA"（ByVal hwnd As Long，ByVal lpOperation As String，_
ByVal lpFile As String，ByVal lpParameters As String，_
ByVal lpDirectory As String，ByVal nShowCmd As Long）As Long

　　Private Declare Function GetDesktopWindow Lib "user32"（）As Long

　　Private Const SW—NORMAL=1
　　Private Const SW—MINIMIZE=6
　　Private Const SW—MAXIMIZE=3

　　public Function BrowseTo（ByVal sURL As String）As Boolean
  　　DimxRetAsLong
　  　xRet=ShellExecute(GetDesktopWindow(),vbNullString,sURL,vbNullString,App.Path，SWNORMAL)
　　  ′返回值〉32，说明运行成功
　　  If xRetΛ32 Then BrowseTo=True Else BrowseTo=False
　　EndFunction

　　3．存盘，拨号入网后，按F5运行，单击“链接到YAHOO”命令按钮，看是否正常。