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