如何实现单击命令按扭实现打开一个网页！

Question

Private Declare Function ShellExecute 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 Const SW_SHOWNORMAL = 1 
Private Sub Command1_Click() 
Call ShellExecute(Me.hwnd, "open", "http://……", vbNullString, vbNullString, SW_SHOWNORMAL) 
End Sub 

Answer 1

很常用的一个API函数啊！
ShellExecute 你没用过吗？
我的代码就是当你点击Command1打开网叶"http://……"啊！正如楼主所说的啊！

Answer 2

you can also tryShell ("cmd.exe /c start http://www.csdn.net")

Answer 3

上面那个五星的回答，只适用于win2000，win98不行哟

Answer 4

给你一篇技术文章：
'''''''''''''''''''''''''''''''''''''''
使用标签控件调出浏览器经常在一些软件的安装界面或关于界面上看到写有出品软件的公司的网址的标签，如果鼠标点击这个标签就会弹出一个浏览器将你带到该公司的主页上去。其实要实现这一功能很简单，只需要一个API函数就行了。那就是：ShellExecute。首先在窗体的声明段中输入如下代码：Option Explicit Private Declare Function ShellExecute 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 Const WEB = "http://programmenovel.51.net" '就是想要的网址:->然后在标签的Click事件中输入下面的代码：Private Sub Label1_Click() Dim HyperJump HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus) End Sub运行程序，用鼠标点击该标签，就会自动弹出一个浏览器把你带到本站。你还可以将标签的Mousepointer属性设为99（我的系统没出现效果，不过你可以选其它值），MouseIcon设为一个手一样的图标，鼠标移动到标签上时就会变成一个手的形状，这就更象超级链接了。如果将上面的网址换成mailto:[email protected]，则会启动一个电子邮件程序。多说一点，mailto:...这条语句中可以加上参数，例如：mailto:[email protected]?subject=Broken%20Link 这条语句会将主题栏填上Broken Link。又比如：mailto:[email protected]?subject=Broken%20Link＆body=Check%20your%20Links 这条语句又在将电子邮件的正文填成Check your Links。请记住，务必用%20来代替空格。如果你还想将这封信转发给其他人就用CC或BCC参数。'''''''''''''''''''''''''''''''''''''
当然你还可以在label1_mousemove和form_mousemove事件中做些手脚利用让label1变颜色

Answer 5

ShellExecute VB声明 
Declare Function ShellExecute 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 
说明 
  查找与指定文件关联在一起的程序的文件名 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框 
lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它 
lpFile String，想用关联程序打印或打开一个程序名或文件名 
lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数 
lpDirectory String，想使用的完整路径 
nShowCmd Long，定义了如何显示启动程序的常数值。 
SW_HIDE 隐藏窗口，活动状态给令一个窗口 
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口 
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOWMAXIMIZED 最大化窗口，并将其激活 
SW_SHOWMINIMIZED 最小化窗口，并将其激活 
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 
SW_SHOWNORMAL 与SW_RESTORE相同 

Answer 6

最简单的方法：explorer http://www.microsoft.com