Set ossa = Me.pbb.WebBrowser3.Document.selection.createRange
If (Not ossa Is Nothing) Then
ossa.pasteHTML "<img src=c\:ddd.jpg>"
Set ossa = Nothing
但是查看WebBrowser源代码却发现代码是:
<img src=file:///c:/ddd.jpg>这是怎么回事,如何解决?我是要在一个可编辑的WebBrowser中显示本地路径图片。
If (Not ossa Is Nothing) Then
ossa.pasteHTML "<img src=c\:ddd.jpg>"
Set ossa = Nothing
但是查看WebBrowser源代码却发现代码是:
<img src=file:///c:/ddd.jpg>这是怎么回事,如何解决?我是要在一个可编辑的WebBrowser中显示本地路径图片。
解决方案 »
- VB6.0 用语句 添加 控件
- 怎么在屏幕打印?为何我打印不了呢?
- 系统提示'未发现可创建的公共类部件'是什么原因?
- 关于JET 4.0的问题,我没法使用它连接数据库了
- SELECT INTO 语句创建一个新表?
- 用vb6.0的外接程序菜单下的可视化数据管理器,可以建立一个有用户名和密码的数据库吗?我该如何做呢?(初学者)
- 1+1=?
- 关于VB6 listview控件拖动列的问题
- 怎样通过字段名引用记录集中的数据
- 请各位大虾帮帮忙!!!!急、急、急!!!、、、、、100分!!!!
- VB如何修改复选框的内容并贮存到ACCESS数据库中?请教高手
- 数据插入时发生【3219 在此环境中不允许应用程序请求的操作】的错误
./表示本目录
../表示上层目录去ASP版面或JSP版面问问没有不知道的,这不是VB问题,也没深度
确实如此,webbrowser就这样,而且不止你发现的这个,有很多内容通过webbrowser查看都会发现和源代码不一致,这可能是webbrowser为了规范而进行的处理吧。
一般是使用相对路径,使用我上面回复那样的
SavePicture Picture1.Picture, "C:\Pic1.BMP"Dim ret As Boolean
Picture1.Picture = LoadPicture("C:\Pic1.bmp") '打开要压缩的图片
ret = PictureBoxSaveJPG(Picture1, "C:\b.jpg") '保存压缩后的图片
If ret = False Then
MsgBox "保存失败"
End If
Dim fs As Object '删除BMP图片
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile ("C:\Pic1.bmp")Dim oss '放入可编辑的网页之中
Set oss = WebBrowser1.Document.selection.createRange
If (Not oss Is Nothing) Then
oss.pasteHTML "<img src=C:\b.jpg>"
Set oss = Nothing
End If
存入本地的是JPG图片哦。
好在你用的是ie 如果你用的火狐的话 默认参数下你想指向本地地址可能比登天还难 解析方式比较古怪 会自动解析成相对的网络路径 也可能有相应设置可以更改 我没深入研究过。
这种添加只是代表当前走的是本地文件协议而不是超文本传送协议,不会影响图片的显示,不光是ie 估计目前还没有任何一种浏览器支持显示bmp格式的文件 bmp不适合用于web展示
你在问题中贴出的方法也可以显示图片的 只是你写错了路径而导致无法显示而已
"<img src=c\:ddd.jpg>" 要改成 "<img src=c:\ddd.jpg>"
你5楼提到的方法跟问题中的方法没有区别