| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]webbrower控件中图片显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62598) |
| -- 作者：cqlwsam -- 发布时间：2015/1/5 10:05:00 -- [求助]webbrower控件中图片显示问题 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 |
| -- 作者：有点甜 -- 发布时间：2015/1/5 10:09:00 -- 试试这样写
im txt2 As String ="<html> " & vblf & vbcr & "<img src=" & txt & " height=" & 100 & "%" & "/> " & vblf & vbcr & "<html>" |
| -- 作者：cqlwsam -- 发布时间：2015/1/5 10:12:00 -- 把宽度删掉。我试试。 |
| -- 作者：Bin -- 发布时间：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 -- 发布时间：2015/1/5 10:17:00 -- 可以实现。能不能把图片在webbrowser控件中居中！那样就更巴适了。 |
| -- 作者：Bin -- 发布时间：2015/1/5 10:20:00 -- 这样 <html><body style=\'text-align:center\'><img></body></html> |
| -- 作者：有点甜 -- 发布时间：2015/1/5 10:20:00 -- 试试
Dim txt2 As String ="<html> " & vblf & vbcr & "<Center><img src=" & txt & " height=" & 100 & "%" & "/></Center>" & vblf & vbcr & "<html>" |
| -- 作者：cqlwsam -- 发布时间：2015/1/5 10:32:00 -- OK |
| -- 作者：cqlwsam -- 发布时间：2015/1/5 10:32:00 -- 后面一个， 两个center那个 |