如何用VB打开一个全屏的Html，并让这个Html显示在最前面

[伟大de虫子]

如何用VB打开一个全屏的Html，并让这个Html显示在最前面

急，马上给分。

[Sean918]

Html　是什么？

IE　窗口？

[Sean918]

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.sohu.com",vbMaximizedFocus

[roberthome]

同意楼上的意见＾○＾

[wgy081]

用个api函数
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
接可以,不管ie装在那里.
我现在基本上都是用这里来完成的

大家一起探讨!!!!!!!

[伟大de虫子]

你写这个API出来对我来说根本没用，我都不知道怎么用它

[用户 昵称]

dim ie as long
ie = Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.sohu.com",vbMaximizedFocus

用keybd_event向ie这个窗体发送f11键

然后setwindowpos

[用户 昵称]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
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 Command1_Click()
Dim ie As Long
ie = ShellExecute(Me.hwnd, "open", "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "www.csdn.net", vbNullString, 1)
Dim start As Double
start = Timer
Do
DoEvents
Loop While Timer - start < 1
keybd_event vbKeyF11, 0, 0, 0
End Sub