需要使用原生的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
加好友 
发短信
Post By：2018/3/30 23:20:00 [只看该作者]
此主题相关图片如下：screenshot_20180330_231457.jpg