Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
Dim wb2 As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","")
.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接
End With
With wb.AddInputGroup("","ppp1","照片")
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
'For tp1 As Integer = 0 To tp
.AddImage("./images/001.jpg")
'Next
End With
End With
With wb.AddPanelGroup("","pg2","")
.Add("pn2","标题 二",txt,"","http://www.foxtable.com") '超链接
End With
With wb.AddInputGroup("","ppp2","照片")
With .AddUploader("up2","",True)
.AllowAdd = False '关闭文件上传功能
'For tp1 As Integer = 0 To tp
.AddImage("./images/002.jpg")
'Next
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2017/7/3 23:32:00 [显示全部帖子]
