Foxtable(狐表)用户栏目专家坐堂 → [求助]webbrower控件中图片显示问题


  共有3653人关注过本帖树形打印复制链接

主题:[求助]webbrower控件中图片显示问题

帅哥哟,离线,有人找我吗?
cqlwsam
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
[求助]webbrower控件中图片显示问题  发帖心情 Post By:2015/1/5 10:05:00 [只看该作者]

webbrowser控件中图片按比例显示,如何实现。谢谢!
代码如下(全显示,由于不同图片其纵横比不同,图片被拉长或压扁了):
 Dim txt1 As String = ProjectPath & "reports\"
    If FileSys.FileExists(txt) Then
        Dim ext As String =txt.SubString(txt.LastIndexof(".") + 1) '获得文件后缀名
        Select Case ext
            Case "bmp","gif","jpg","png","tif","wmf","tiff","pcx","tga","exif""fpx","svg","psd","cdr","pcd","dxf","ufo","eps","ai","aw" '设置筛选器
                Dim txt2 As String ="<html> " & vblf & vbcr & "<img src=" & txt & " width=" & 100 & "%" & " height=" & 100 & "%" & "/> " & vblf & vbcr & "<html>"
                FileSys.WriteAllText(txt1 & "temp.htm",txt2, False, Encoding.Default)
                brw.Address = txt1 & "temp.htm"
        End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/5 10:09:00 [只看该作者]

 试试这样写

 

im txt2 As String ="<html> " & vblf & vbcr & "<img src=" & txt & " height=" & 100 & "%" & "/> " & vblf & vbcr & "<html>"


 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/1/5 10:12:00 [只看该作者]

把宽度删掉。我试试。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/5 10:14:00 [只看该作者]

如果不行就试试
Dim txt2 As String ="<html> " & vblf & vbcr & "<img src=" & txt & " & "/> " & vblf & vbcr & "<html>"

或者 Dim txt2 As String ="<html> " & vblf & vbcr & "<img src='" & txt & "' style='width:100%; height:100%;' " & "/> " & vblf & vbcr & "<html>"

 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/1/5 10:17:00 [只看该作者]

可以实现。能不能把图片在webbrowser控件中居中!那样就更巴适了。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/5 10:20:00 [只看该作者]

这样 <html><body style='text-align:center'><img></body></html>

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/5 10:20:00 [只看该作者]

试试

 

Dim txt2 As String ="<html> " & vblf & vbcr & "<Center><img src=" & txt & " height=" & 100 & "%" & "/></Center>" & vblf & vbcr & "<html>"


 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/1/5 10:32:00 [只看该作者]

OK

 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1022 积分:7598 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/1/5 10:32:00 [只看该作者]

后面一个, 两个center那个

 回到顶部