怎么连接INTERNET上的网站

Question

我有一个MDI窗口   
    一个COMMAND1  我想在点击COMMAND1之后    弹出一个IE浏览器  并转到输入网址的网站站网页上。 
   
      刚来CSDN混  ，  还请高手解答下！

Answer 1

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

Answer 2

既然大家都提供了有效方法了，那么我就说另一个有效方法。使用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 LongPrivate Sub Lab_Lab_Click()
Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://www.csdn.net", "", App.Path, 1)
End Sub

Answer 3

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

Answer 4

'声明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 

Answer 5

注意SHELL函数的第二个参数.你在输入那段代码后打个逗号就会有提示.

Answer 6

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