- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何设置模式窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191752)
-- 发布时间：2024/5/7 21:34:00
-- 如何设置模式窗口
在BS结构中，如何设置同CS结构中模式窗口，双击某行就选择对应行中数据到指定的控件或列
-- 发布时间：2024/5/7 22:15:00
--
httprequest事件
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("", "form1", "tongji.htm")
With wb.AddInputGroup("form1", "ipg2", "动态赋值")
.AddInput("bm", "部门", "text")
.AddInput("xm", "姓名", "text")
End With
With wb.AddTable("", "Table1")
.head.AddRow("部门", "姓名", "年龄", "电话", "地址") \'表头
.body.AddRow("技术部", "张三", "36", "110", "中国北京").Attribute = ""
.body.AddRow("技术部", "李四", "38", "110", "中国上海").Attribute = ""
.body.AddRow("技术部", "王五", "39", "110", "中国深圳").Attribute = ""
.body.AddRow("生产部", "赵六", "39", "110", "中国深圳").Attribute = ""
.body.AddRow("生产部", "刘七", "39", "110", "中国深圳").Attribute = ""
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
End Select
js文件
function setvalues(){
document.getElementById("bm").value = table1.rows[table1.rowSel].cells[0].innerHTML;
document.getElementById("xm").value = table1.rows[table1.rowSel].cells[1].innerHTML;
}
-- 发布时间：2024/5/8 7:57:00
--
类似这样的窗口，如何设计
此主题相关图片如下：无标题.png
-- 发布时间：2024/5/8 8:31:00
--
使用这里的浮层面板：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150866
-- 发布时间：2024/5/8 10:59:00
--
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编辑过]
-- 发布时间：2024/5/8 11:00:00
--
此主题相关图片如下：无标题.png
-- 发布时间：2024/5/8 11:14:00
--
请仔细阅读ExWeUI的帮助文档，按帮助启用ExWeUI