- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 图片格式求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116783)
-- 发布时间：2018/3/30 23:20:00
-- 图片格式求助
这种一大三小的格式怎么编码用哪个控件
此主题相关图片如下：screenshot_20180330_231457.jpg
-- 发布时间：2018/3/31 9:22:00
--
需要使用原生的html处理，参考：
\'Dim fl As String = "F:\\Web_dev\\MyWeb\\webdesigner\\web\\" & e.path
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".json",".svg",".ttf",".woff",".woff2",".eot",".ico"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddArticle("","ar1")
.AddTitle("h1","大标题")
.AddTitle("h2","章标题")
.AddTitle("h3","1.1节标题")
.AddContent("<div style=\'display:flex;justify-content:center; height:600px\'><div style=\'flex-basis: 100%;display: flex;height:600px\'><img src=\'a.jpg\'> </img></div><div style=\'flex-basis: 100%;display: flex;flex-direction:column;height:600px\'><img src=\'a.jpg\' style=\'height:200px;width:200px\'> </img><img src=\'a.jpg\' style=\'height:200px;width:200px\'> </img><img src=\'a.jpg\' style=\'height:200px;width:200px\'> </img></div></div>")
End With
e.WriteString(wb.Build) \'生成网页
End Select