怎么连接INTERNET上的网站

[wozhidaode]

我有一个MDI窗口
一个COMMAND1 我想在点击COMMAND1之后 弹出一个IE浏览器 并转到输入网址的网站站网页上。



刚来CSDN混 ， 还请高手解答下！

[嗷嗷叫的老马]

private sub command1_click()
shell "explorer " & text1.text
end sub

[可爱的小莱]

[Quote=引用 1 楼 myjian 的回复:]
private sub command1_click()
    shell "explorer " & text1.text
end sub
[/Quote]
可以的，

[jessezappy]

既然大家都提供了有效方法了，那么我就说另一个有效方法。使用API函数 ShellExecute 例子看下面：

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 Lab_Lab_Click()
Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://www.csdn.net", "", App.Path, 1)
End Sub

[wozhidaode]

那么要使打开的IE浏览器获得焦点 还要加上explorer.gotfocus 是么？

[贝隆]

'声明API函数：ShellExecute
public 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()
ShellExecute "www.163.com"
end sub

[jessezappy]

[Quote=引用 4 楼 wozhidaode 的回复:]
  那么要使打开的IE浏览器获得焦点 还要加上explorer.gotfocus  是么？
[/Quote]

不用，ShellExecute 的参数可以将 IE 作为前置窗口显示。

[嗷嗷叫的老马]

[Quote=引用 4 楼 wozhidaode 的回复:]
  那么要使打开的IE浏览器获得焦点 还要加上explorer.gotfocus  是么？
[/Quote]
注意SHELL函数的第二个参数.

你在输入那段代码后打个逗号就会有提示.

[wozhidaode]

[Quote=引用 6 楼 myjian 的回复:]
引用 4 楼 wozhidaode 的回复:
  那么要使打开的IE浏览器获得焦点 还要加上explorer.gotfocus  是么？

注意SHELL函数的第二个参数.

你在输入那段代码后打个逗号就会有提示.
[/Quote]





哦
谢谢
好了 !