以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置模式窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191752)

--  作者:lihe60
--  发布时间: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;
}

--  作者:lihe60
--  发布时间:2024/5/8 7:57:00
--  
类似这样的窗口,如何设计
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/8 8:31:00
--  
使用这里的浮层面板:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150866
--  作者:lihe60
--  发布时间: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编辑过]

--  作者:lihe60
--  发布时间:2024/5/8 11:00:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/8 11:14:00
--  
请仔细阅读ExWeUI的帮助文档,按帮助启用ExWeUI