请问蓝版,我是一个简单的页面怎么调用这个?类似于这样
Select
Case e.Path
Case
"table.htm"
Dim wb As New WeUI
With wb.AddActionSheet("","menu")
'设计菜单
.Add("mnudAdd", "增加订单")
.Add("mnuEdit",
"编辑订单")
.Add("mnuDelete", "删除订单")
.Add("mnuCancel","取消","",True)
End
With
With
wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址") '表头
.body.AddRow("技术部","张三","36","110","中国北京") '数据
.body.AddRow("技术部","李四","38","110","中国上海")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
.ActiveSheet = "menu"
End
With
e.WriteString(wb.Build)
End
Select