Foxtable(狐表)用户栏目专家坐堂 → 如何做折叠的复选列表项


  共有1925人关注过本帖树形打印复制链接

主题:如何做折叠的复选列表项

帅哥哟,离线,有人找我吗?
yellow
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2819 威望:0 精华:0 注册:2014/12/24 9:51:00
如何做折叠的复选列表项  发帖心情 Post By:2018/6/22 17:00:00 [只看该作者]

FoxTable给出的WeUI框架里,列表输入框是折叠的,点击展开。复选列表项是不可以折叠的。我需要可折叠的复选列表项,应该怎样做?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/22 17:46:00 [只看该作者]

在page里面加入复选框,控制page的显示隐藏

 

http://www.foxtable.com/mobilehelp/scr/0109.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
yellow
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2819 威望:0 精华:0 注册:2014/12/24 9:51:00
  发帖心情 Post By:2018/6/23 0:34:00 [只看该作者]

谢谢!实现了。但新问题有来了:怎样实现输入框“yzm”显示“page2”中选择的内容?

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddPage("","page1") '主页面
        wb.AddPage("","page2",False) '选项页面
        wb.AddForm("page1","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","基本资料")
            With .AddInputCell("ic5")
                .AddLabel("lyzm","多选内容",0)
                .AddInput("yzm","text",1) ‘怎样在这里显示多选的内容?
                .AddVcodeButton("选择","请选择",2).Attribute="""
            End With
        End With
        wb.AddForm("page2","form2","test.htm")
        With wb.AddCheckGroup("form2","rdg1","浏览器")
            .Add("bw1","Intenet Explorer")
            .Add("bw2","Google Chorme")
            .Add("bm3","FireFox")
            .Add("bm4","Safari")
        End With
        With wb.AddButtonGroup("page2","btg1")
            .Add("btn1", "确定", "button").Attribute="""
        End With
        e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2018/6/23 15:27:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/6/23 9:29:00 [只看该作者]

添加js文件,函数

function setValue(){
var str = "";
if(document.getElementById("bw1").checked){
str = str + ',' + document.getElementById("bw1").getAttribute("data-v");
};
if(document.getElementById("bw2").checked){
str = str + ','  + document.getElementById("bw2").getAttribute("data-v");
};
if(document.getElementById("bw3").checked){
str = str + ','  + document.getElementById("bw3").getAttribute("data-v");
};
if(document.getElementById("bw4").checked){
str = str + ','  + document.getElementById("bw4").getAttribute("data-v");
};

    document.getElementById("yzm").value=str.substring(1);
}

后台代码

        With wb.AddCheckGroup("form2","rdg1","浏览器")
            .Add("bw1","Intenet Explorer").Attribute="onclick='setValue()' data-v='Intenet Explorer'"
            .Add("bw2","Google Chorme").Attribute="onclick='setValue()' data-v='Google Chorme'"
            .Add("bw3","FireFox").Attribute="onclick='setValue()' data-v='FireFox'"
            .Add("bw4","Safari").Attribute="onclick='setValue()' data-v='Safari'"
        End With

引入脚本文件

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
[此贴子已经被作者于2018/6/23 9:29:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yellow
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2819 威望:0 精华:0 注册:2014/12/24 9:51:00
  发帖心情 Post By:2018/6/23 11:39:00 [只看该作者]

厉害了图片点击可在新窗口打开查看,看来我还要好好学一下js。太感谢您了!

 回到顶部