请教关于用ACC打开IE浏览器的问题！（有新问题请教各位）

sxgaobo

用：Shell("C:\Program Files\Internet Explorer\iexplore.exe " & [位置] & "", 3)可以打开IE浏览器，如何能使打开的效果如下啊！即没有地址栏、没有工具栏等栏
再请教个问题，如何能将打开的网页中的右键功能屏蔽掉啊？就是在打开的网页上点右键时不弹出任何菜单。

sxgaobo

帮忙啊！！！

sxgaobo

求答案~~！

sxgaobo

SOS!SOS

sxgaobo

自己顶！！！

sxgaobo

.? = 0
可以啊？

sxgaobo

再请教个问题，如何能将打开的网页中的右键功能屏蔽掉啊？就是在打开的网页上点右键时不弹出任何菜单。

sxgaobo

谢谢sgrshh29 ！！！
漂亮，真乃高手！！！！！！

sgrshh29

写了一段代码，可以最大化了。
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub shh()
Dim X As Long
Const SW_SHOWMAXIMIZED = 3
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
X = apiShowWindow(IE.hwnd, SW_SHOWMAXIMIZED)
Err.Clear
With IE
.navigate "About:Blank"
.Visible = 1
.MenuBar = 0
.Toolbar = 0
.StatusBar = 0
End With
Set IE = Nothing
End Sub

sgrshh29

要用api函数，但是我不会。变通的办法就是将ie对象的宽度和高度设置成屏幕的大小。