Office中国论坛/Access中国论坛

标题: 请教关于用ACC打开IE浏览器的问题！（有新问题请教各位） [打印本页]

作者: sxgaobo 时间: 2009-3-4 18:37
标题: 请教关于用ACC打开IE浏览器的问题！（有新问题请教各位）
本帖最后由 sxgaobo 于 2012-3-26 09:45 编辑

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

作者: chaojianan 时间: 2009-3-4 20:49
在窗体上添加一个微软 web 浏览器控件即可。

作者: sgrshh29 时间: 2009-3-5 06:38
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
With IE
.MenuBar = 0
.Toolbar = 0
.StatusBar = 0
.navigate "About:Blank"
.Visible = 1
End With
Set IE = Nothing

作者: sxgaobo 时间: 2009-3-5 09:31
本帖最后由 sxgaobo 于 2009-3-5 09:36 编辑

谢谢俩位朋友的热情帮助，再请教sgrshh29 ，我不太懂代码，如何用您的方法打开指点路径下的文件啊？如：D:\asp\xinw\images\DSC00287.JPG
另：如何能使打开的浏览器最大化。

作者: sgrshh29 时间: 2009-3-5 09:52
.navigate "D:\asp\xinw\images\DSC00287.JPG"

作者: sgrshh29 时间: 2009-3-5 09:56
转载：使打开的浏览器最大化
方法一:先把所有的IE窗口关了;只打开一个IE窗口;最大化这个窗口;关了它;OK，以后的默认都是最大化的了
方法二:先关闭所有的IE浏览器窗口，用鼠标右键点击快速启动栏的IE浏览器图标，在出现的快捷菜单中点击“属性”，系统随即弹出“启动InternetExplorer浏览器属性”对话页面，点击“快捷方式”标签，在出现的页面的“运行方式(R)”中单击右侧的下拉条，选择“最大化”，再按“确定”退出。打开IE浏览器窗口，点击里面的链接，接着关闭先前打开的IE浏览器窗口，只留下这个链接页面，拉动边框将其窗口拉到整个屏幕，然后关闭该页面。从此，您打开IE浏览器窗口，就直接能看到最大化的页面了。
方法三:如果上述方法不灵，那可得修改计算机的注册表了。方法是：打开“注册表编辑器”，找到[HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Desktop\OldkAreas]，然后选中弹出窗口右侧的一个选项“OldWorkAreaRects”,并删除。在“注册表编辑器”中找到[HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main]，选择窗口右侧的“Windos_Placement”，将其删除。退出“注册表编辑器”，重新启动电脑，然后打开IE，将其窗口最大化，并单击“向下还原”按钮将窗口还原，接着再次单击“最大化”按钮，最后关闭IE窗口。以后再打开IE时，窗口就正常了

作者: sxgaobo 时间: 2009-3-5 10:20
谢谢sgrshh29！
OK了。
关于最大化不能用VBA代码设置吗？

作者: t小宝 时间: 2009-3-5 11:24
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE ", vbMaximizedFocus

作者: sxgaobo 时间: 2009-3-5 11:29

在sgrshh29 的方法上怎么做啊？

作者: sgrshh29 时间: 2009-3-5 12:23
要用api函数，但是我不会。变通的办法就是将ie对象的宽度和高度设置成屏幕的大小。

作者: sgrshh29 时间: 2009-3-5 13:16
写了一段代码，可以最大化了。
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

作者: sxgaobo 时间: 2009-3-5 14:43
谢谢sgrshh29 ！！！
漂亮，真乃高手！！！！！！

作者: sxgaobo 时间: 2012-3-23 22:41
再请教个问题，如何能将打开的网页中的右键功能屏蔽掉啊？就是在打开的网页上点右键时不弹出任何菜单。

作者: sxgaobo 时间: 2012-3-26 17:53
自己顶！！！

作者: sxgaobo 时间: 2012-3-28 20:24
.? = 0
可以啊？

作者: sxgaobo 时间: 2012-3-31 14:02
帮忙啊！！！

作者: sxgaobo 时间: 2012-4-2 14:56
SOS!SOS

作者: sxgaobo 时间: 2012-4-5 08:50
求答案~~！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)