- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]网页浏览器如何实现缩放效果 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82513)
-- 发布时间：2016/3/19 11:44:00
-- [求助]网页浏览器如何实现缩放效果
此主题相关图片如下：1.png
左边是PictureBox1，右边是WebBrowser1，WebBrowser1怎么实现缩放的效果呢？ 请老师指点
-- 发布时间：2016/3/19 11:48:00
--
WebBrowser1作为预览窗口用的，显示的文件可能是图片、pdf、doc等
-- 发布时间：2016/3/19 11:51:00
--
另外，我在WebBrowser1的DoubleClick事件中编写代码：
Dim fl As String = e.Sender.Address
Dim Proc As New Process
Proc.File = fl
Proc.Start()
为什么没反应啊？
-- 发布时间：2016/3/19 12:02:00
--
测试了之后发现，网页浏览的单击和双击事件无法触发，因为在这两个事件下编写：msgbox(1)，都没有反应，是软件本身的bug吗？请老师指点
[此贴子已经被作者于2016/3/19 12:04:58编辑过]
-- 发布时间：2016/3/19 12:02:00
--
图片可以这样处理一下
Dim web = e.Form.Controls("WebBrowser1").Baseontrol
Dim filepath = "C:\\Users\\c\\Pictures\\327e9189fa9130b3dd35f44b66ad6268.jpg"
Dim html As String
html = "<img border=\'0\' src=\'" & filepath & "\' width=\'100%\' height=\'100%\'>"
With web
.Document.Write(html)
End With
word直接设置地址。默认是自动缩放的，PDF貌似不行
-- 发布时间：2016/3/19 12:14:00
--
那么老师，网页浏览器的双击和单击事件无法触发又是怎么回事呢？
-- 发布时间：2016/3/19 15:05:00
--
-- 发布时间：2016/3/19 15:25:00
--
网页浏览器是没有事件的。
比如双击，实际上双击的是网页，事件由网页代码响应，而不是浏览器本身来响应
-- 发布时间：2016/3/19 15:40:00
--
哦，那这个事件就有点奇怪了，说明是双击控件，如果双击由网页代码响应，那么这个事件还有存在的必要吗？
-- 发布时间：2016/3/19 15:52:00
--
下个版本会去掉