如何在菜单里实现打开一个网页的链接？50分相送！

Question

Shell "Explorer.exe http://www.sina.com.cn",vbMaximizedFocus

Answer 1

假如菜單為mnu1,在菜單的click事件里加入;
Shell "explorer.exe " & mnu1.caption, vbMaximizedFocus

Answer 2

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    ShellExecute 0, "open", "http://zyl910.yeah.net", vbNullString, vbNullString, 3

Answer 3

ShellExecute 0, "open", "http://www.csd.net", vbNullString, vbNullString, vbNormalFocus你该不会是散分吧？

Answer 4

Private Sub Form_Load()
    Shell ("start http://www.sina.com.cn")
End Sub

Answer 5

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 Sub Command1_Click()
Dim Ret As Long
    Ret = ShellExecute(Me.hwnd, "open", "http://www.csdn.net", "", App.Path, 1)
End Sub

Answer 6

上面的朋友我的机器是Win2000个人版VB60&sp5用
Call Shell("start http://www.sina.com.cn")
不好使。
我记得在Win98下好象好使。（给你提个醒：））

Answer 7

Shell "rundll32.exe url.dll,FileProtocolHandler http://www.csdn.net"

Answer 8

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'''菜单名为mnuHttp
Private Sub mnuHttp_Click()
    Call ShellExecute(Form1.hwnd, "open", "http://www.sohu.com", vbNullString, vbNullString, &H0)End Sub在win2k,vb6下通过

Answer 9

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 LongPrivate Sub Label1_Click()
    ShellExecute hwnd, "open", "http://www.sina.com.cn", "",_   vbNullString, 5
End Sub
Win2000测试通过

Answer 10

在VB中，引用Internet Explore
如：
private sub menu_click()
 dim ie as internet explore
 
 set ie=new internet explore  ...
 ie.navaigate  url...
end subOK!

Answer 11

在菜单栏上实现超链接    
http://www.csdn.net/Develop/Read_Article.asp?Id=12969