共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何设置模式窗口
1楼
lihe60 发表于：2024/5/7 21:34:00在BS结构中，如何设置同CS结构中模式窗口，双击某行就选择对应行中数据到指定的控件或列
2楼
有点蓝 发表于：2024/5/7 22:15:00httprequest事件
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;
}
3楼
lihe60 发表于：2024/5/8 7:57:00类似这样的窗口，如何设计
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png4楼
有点蓝 发表于：2024/5/8 8:31:005楼
lihe60 发表于：2024/5/8 10:59:00Dim 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编辑过]
6楼
lihe60 发表于：2024/5/8 11:00:00此主题相关图片如下：无标题.png
7楼
有点蓝 发表于：2024/5/8 11:14:00请仔细阅读ExWeUI的帮助文档，按帮助启用ExWeUI
共7 条记录, 每页显示 10 条, 页签:
[1]