我在VB的窗体中,打开一个网页,结果这个网页还在VB窗口的后面?程序如下:
Private Sub Form_Load()
Shell ("explorer http://192.168.201.244/daszmp/default1.aspx")
End Sub请问高手们:怎么能让VB窗口打开一个网页后,网页在窗口的前面啊????
谢谢!!

解决方案 »

  1.   

    写入Activate事件中。Private Sub Form_Activate()
        Shell ("explorer http://www.vb99.com")
    End Sub
      

  2.   

    仔细想想上面的答案好象不太科学。因为窗口的Activate事件可能会多次发生。要么你设置变量检查它是否第一次发生,即程序启动后发生,或者:
     private sub Form_Load()
         Shell "explorer http://www.vb99.com", vbNormalFocus
     end sub
      

  3.   

    Private Sub Form_Load()
        WindowState = 1
        Shell "explorer http://192.168.201.244/daszmp/default1.aspx", vbMaximizedFocus
    End Sub
      

  4.   

    Shell "explorer http://www.vb99.com", vbMaximizedFocus
      

  5.   

    Private Sub Form_Load()
    Shell "explorer http://192.168.201.244/daszmp/default1.aspx", vbNormalFocus
    End Sub
      

  6.   

    大哥们,,我的意思可能表达的有问题!
    我是说保证VB的界面在WEB界面的后面!!
      

  7.   

    大哥们,,我的意思可能表达的有问题!
    我是说保证VB的界面在WEB界面的后面!!
    //我试过了,没有问题啊?WEB在前,vbNormalFocus,vbMaximizedFocus的目的就是为了Active Web界面
      

  8.   

    TO:lxcc(虫子|专注于抢分) ,我试过,不行啊,,,
      

  9.   

    使用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 LongCall ShellExecute(Me.hWnd, "open", "http://192.168.201.244/daszmp/default1.aspx", "", "", 1)
      

  10.   

    还不行,你就form1.hide好了,呵呵
      

  11.   

    Shell "explorer http://www.vb99.com", 1
      

  12.   

    Public Function Shell( _
       ByVal Pathname As String, _ 
       Optional ByVal Style As AppWinStyle = AppWinStyle.MinimizedFocus, _ 
       Optional ByVal Wait As Boolean = False, _ 
       Optional ByVal Timeout As Integer = -1 _
    ) As IntegerPathname 
    必选项。字符串。要执行的程序名以及任何需要的参数和命令行开关。Pathname 还可以包括驱动器和目录路径或文件夹。 
    Style 
    可选项。AppWinStyle。从 AppWinStyle 枚举中选择的值,该枚举与要在其中运行程序的窗口样式相对应。如果省略 Style,则 Shell 使用 AppWinStyle.MinimizedFocus,这将使程序以最小化启动并具有焦点。 Wait 
    可选项。Boolean。指示 Shell 函数是否应等待程序完成的值。如果省略 Wait,则 Shell 使用 False。 
    Timeout 
    可选项。Integer。Wait 为 True 时等待完成的毫秒数。如果省略 Timeout,则 Shell 使用 -1,表示没有超时,Shell 直到程序完成时才返回。因此,如果省略 Timeout 或将它设置为 -1,则 Shell 可能永远不会将控制返回给程序。 
      

  13.   

    我SHELL应用程序就可以,但是SHELL网页就不行,!不知道是什么原因?
    有高手能解释一下吗?
    Shell "notepad.exe", 3
    shell "http://192.168.201.244/daszmp/default1.aspx",3
      

  14.   

    MSDN中:
    Shell 函数
          执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数:部分 描述 
    pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。 
    Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。 
    windowstyle 命名参数有以下这些值:常量 值 描述 
    vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。 
    VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。 
    VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 
    VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 
    VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 
    VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 
    说明如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。