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
加好友 
发短信
Post By：2015/1/5 10:05:00 [显示全部帖子]
