小弟急急！！！高手请进快来帮一帮小弟，小弟先谢谢了！

Question

小弟在form窗体上加了几个commandbutton按钮，小弟想用commandbutton按钮链接网址，可是小弟做完后运行起来，点击commandbutton按钮，可以把IE转起来，但是IE起来以后是空的。没有链接到我想要网址。小弟的源码如下，请高手赐教，小弟先谢谢了！Private Sub Command3_Click()
Dim a As Long
Dim zy As String
On Error GoTo FinalizeError
zy = "http://www.muhappy.com/home.asp" '("设置主页")
a = ShellExecute(0, "open", zy, "", "", SW_SHOWNORMAL)
Command3.Enabled = TrueFinalizeError:
     
End Sub

Answer 1

你的代码一点也不改动，经测试，完全正常~
你检查一下其他部分有没有问题
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 = 1Private Sub Command1_Click()
Dim a As Long
Dim zy As String
On Error GoTo FinalizeError
zy = "http://www.muhappy.com/home.asp" '("设置主页")
a = ShellExecute(0, "open", zy, "", "", SW_SHOWNORMAL)
Command3.Enabled = TrueFinalizeError:
End Sub