ShellExecute的有关问题,为什么执行了却没有反应

ShellExecute的问题,为什么执行了却没有反应
我的目的是在单击txtlink的时候用系统的默认浏览器打开一个URL.
可是我这样写,却发现怎么都没有反应

VB code

Private Sub txtLink_Click()    ShellExecute0& , "open ", "http://blog.163.com/frantic_hao/ ", vbNullString, vbNullString, 1End Sub

是什么地方有问题么 ?

[解决办法]

VB code

Option ExplicitPrivate 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 Command1_Click()    ShellExecute ByVal 0&, "Open", "www.163.com", vbNullString, vbNullString, 1End Sub
[解决办法]
晕
你的系统DLL文件丢失了
你下载一个Shell32.DLL放到System32中去
[解决办法]
按理这个文件早就注册了的啊，不会出这个问题的。
[解决办法]
Win7下有好些程序有问题。这个就不好办了。。。
WinXP下的这个文件只有7.93MB
你试一试到DLL之家去下载这个Shell32.Dll，然后将其名字修改为Shell32A.Dll。注册，修改API声明，在试一试？
[解决办法]
VB codeOption ExplicitPrivate Const URL = "http://blog.163.com/frantic_hao/"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 Const SW_SHOWNORMAL = 1Private Sub Command1_Click()        Dim Success As Long        Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)End Sub
[解决办法]
VB code这样也行：Option ExplicitPrivate Sub Command1_Click()        Shell "explorer ""http://blog.163.com/frantic_hao/""", vbMaximizedFocusEnd Sub
[解决办法]
在我的电脑没有任何问题，我测试过的。你电脑有问题。
[解决办法]
的确是楼主的电脑有问题。

ShellExecute的有关问题,为什么执行了

热点推荐