如何使用shellexecute在新的窗口中打开新的网站.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 28 行

打开VB菜单的 Project|References 项，在References对话框中有一个Microsoft Internet Control项，选中它，然后在Form1中加入一个CommandButton，在Form1中加入一下代码： 
    'Dim dWinFolder As ShellLinkObject 
    Dim dWinFolder As ShellWindows 
     
    Private Sub Command1_Click() 
     bBrowser = False 
     If dWinFolder.Count = 0 Then 
     '没有打开的浏览器窗口，执行常规的ShellExecute 打开网页 
     Else 
     dWinFolder.Item(0).Navigate "file:///c:/windows/temp/a.htm", navOpenInNewWindow, _ 
     "_blank", 0, 0 
     End If 
    End Sub 
     
    Private Sub Form_Load() 
     Set dWinFolder = New ShellWindows 
    End Sub 
     
    Private Sub Form_Unload(Cancel As Integer) 
     Set dWinFolder = Nothing 
    End Sub 
    运行程序，就可以在新窗口中打开了。ShellWindows对象是Windows下运行的所有外壳浏览器的集合。 
<END>   
用CreateProcess "C:\Program Files\Internet Explorer\Iexplore.exe " YourURL 
<END>