|
Select Case e.Path
Case "test.htm", ""
Dim wb As new WeUI
Dim file = "001.jpg"
With wb.AddArticle("","ar1")
.AddContent("Write your Sad Times in Sand, Write your Good Times in Stone.-- George Bernard Shaw")
.AddImage("./images/001.jpg","onclick=""showGallery('gla1','./images/" & file & "')"" style='margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);'")
End With
'增加Gallery,第三个参数False表示初始隐藏,第四个参数True表示点击图片自动隐藏
With wb.AddGallery("","gla1",False,True)
.AddImage("./images/001.jpg")
End With
e.WriteString(wb.Build) '生成网页
End Select
|
加好友 
发短信
Post By：2018/11/27 11:46:00 [显示全部帖子]
