Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
With ExWeUI.WebUI.AddCollapseGroup("","col01",False)
With .AddPanel("colp01","面板1","./images/button.png")
.Show = True
.C
End With
With .AddPanel("colp02","面板2","./images/tab.png")
.C
End With
With .AddPanel("colp03","加载页面")
.DataUrl = "teststep2.htm"
End With
wb.InsertHTML(.BuildHtml)
End With
wb.AppendHTML("<script src='./lib/exweui.js' ></script>")
e.WriteString(wb.Build)
运行上面代码，有这个提示
[此贴子已经被作者于2024/5/8 10:59:37编辑过]
加好友 
发短信
Post By：2024/5/7 21:34:00 [显示全部帖子]
此主题相关图片如下：无标题.png
