Dim e As Object = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1", "欢迎选课").Attribute = "style='height:100%'" '这个style必须设置，不然无法返回页面
.AddPage("page2", "个人信息")
End With
wb.AddForm("page1", "form1", "select.htm")
With wb.AddButtonGroup("form1", "btn", False)
With .Add("btn1", "团课", "button") '自定义按钮
.Attribute = """
End With
With .Add("btn2", "精品课", "button")
.FormAction = ""
.Attribute = """
End With
With .Add("btn3", "私教课", "button")
.FormAction = ""
.Attribute = """
End With
End With
'wb.InsertHTML("form1", "<h5 style='margin-top: 0px;line-height: 40px;font-size:14px;font-weight:300'> 排课日期</h5>") '增加用户登录Lable
'*********************************以下为日历控件*****************************
Dim s As String = FileSys.ReadAllText(ProjectPath & "web\lib\yuwen.txt")
wb.InsertHTML("form1", s)
'*********************************以上为日历控件*****************************
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示返回的课程表
wb.AppendHTML("<script src='./lib/anniu.js'></script>") '引入脚本文件
wb.AppendHTML("<script>autoclick()</script>") '自动运行js函数
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)
怎样将黄色部分的“p1”加入到page1中？