Office中国论坛/Access中国论坛

标题: 请教！如何使用代码控制，用IE查看指定的图片？ [打印本页]

作者: sxgaobo 时间: 2006-5-16 01:41
标题: 请教！如何使用代码控制，用IE查看指定的图片？
同题！

作者: wu8313 时间: 2006-5-16 02:45
不知道是这个意思吗？

使用flash工具，将一组图片，通过工具转换为动态网页文件。然后使用代码打开这个动态网页就可以了。
Me.命令1.HyperlinkAddress = CurrentProject.Path & "\1.htm"

[attach]17790[/attach]

[此贴子已经被作者于2006-5-15 18:46:10编辑过]

作者: LucasLynn 时间: 2006-5-16 04:08

以下是引用sxgaobo在2006-5-15 17:41:00的发言：
同题！

最简单的（不一定是最好的）方法：

shell("C:\Program Files\Internet Explorer\iexplore.exe C:\1.jpg")

如果你想完善一下的，那么可以使用VBA中访问注册表的函数来读取Internet Explorer的安装路径，然后再调用shell。通常而言上面这样写也基本没问题了。

[此贴子已经被作者于2006-5-15 20:12:58编辑过]

作者: sxgaobo 时间: 2006-5-16 17:03
谢谢总版主！

shell("C:\Program Files\Internet Explorer\iexplore.exe C:\1.jpg")

正是我需要的，只是如何能使打开的IE成为当前窗口并且最大化，并且将地址栏和所有的工具栏都关闭，只留关闭按钮啊？

作者: LucasLynn 时间: 2006-5-16 17:22

以下是引用sxgaobo在2006-5-16 9:03:00的发言：

谢谢总版主！

shell("C:\Program Files\Internet Explorer\iexplore.exe C:\1.jpg")

正是我需要的，只是如何能使打开的IE成为当前窗口并且最大化，并且将地址栏和所有的工具栏都关闭，只留关闭按钮啊？

使用-k参数。

作者: sxgaobo 时间: 2006-5-16 17:55
谢谢总版主！

我对这些一点也不懂啊！使用-k参数？能告诉我怎么做吗？

作者: sxgaobo 时间: 2006-5-17 02:07
帮帮我好吗？

作者: LucasLynn 时间: 2006-5-17 02:37

以下是引用sxgaobo在2006-5-16 9:55:00的发言：

谢谢总版主！

我对这些一点也不懂啊！使用-k参数？能告诉我怎么做吗？

shell("C:\Program Files\Internet Explorer\iexplore.exe -k C:\1.jpg")

关闭窗口的热键——Ctrl-W

[此贴子已经被作者于2006-5-16 18:37:53编辑过]

作者: sxgaobo 时间: 2006-5-17 04:06
真的非常感谢总版主!

如何能使打开的IE成为当前窗口，并且最大化啊？再怎么能保留关闭按钮，而不是使用热键—Ctrl+W关闭IE啊？

作者: fan0217 时间: 2006-5-17 06:37
请查阅shell函数的系统帮助.

作者: sxgaobo 时间: 2006-5-22 19:09
使用下列代码可以实现打开的IE最大化和屏蔽掉所有菜单和工具栏。我想保留关闭按钮，请教该如何做啊！？

Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe -k d:\图片\小背景.jpg", 3)

作者: LucasLynn 时间: 2006-5-22 20:10

以下是引用sxgaobo在2006-5-22 11:09:00的发言：

使用下列代码可以实现打开的IE最大化和屏蔽掉所有菜单和工具栏。我想保留关闭按钮，请教该如何做啊！？

Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe -k d:\图片\小背景.jpg", 3)

实现起来比较简单的就只有这样了，一定要完全做到你的要求那代码量就相当大了，要编写JavaScript代码来打开窗口，还要在VBA中调用其他控件来解释JavaScript。

作者: crg770502 时间: 2006-5-22 23:57
引用web 浏览器控件

WebBrowser.Navigate "file:///C:/aa.jpg"[attach]17948[/attach]

[此贴子已经被作者于2006-5-22 16:16:10编辑过]

作者: LucasLynn 时间: 2006-5-23 00:49

以下是引用crg770502在2006-5-22 15:57:00的发言：

引用web 浏览器控件

WebBrowser.Navigate "file:///C:/aa.jpg"[attach]17948[/attach]

这个思路不错，不必局限在一定要使用浏览器来打开。

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