以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  web中添加按钮或标签  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177281)

--  作者:cd_tdh
--  发布时间:2022/5/16 9:01:00
--  web中添加按钮或标签

老师,可以在AddCheckGroup的右侧增加一个按钮或标签吗?

Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "在岗人员", "请选择考勤人员")


--  作者:有点蓝
--  发布时间:2022/5/16 10:01:00
--  
实例里有对应的用法,自己看单选框的代码

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


--  作者:cd_tdh
--  发布时间:2022/5/16 10:32:00
--  
我是想做个全选按钮,放01那个位置,能否实现,不行就放下面吧
[此贴子已经被作者于2022/5/16 10:32:03编辑过]

--  作者:有点蓝
--  发布时间:2022/5/16 10:38:00
--  
可以增加一个html原生的按钮
--  作者:cd_tdh
--  发布时间:2022/5/16 10:43:00
--  
以下是引用有点蓝在2022/5/16 10:38:00的发言:
可以增加一个html原生的按钮

请老师告知一下方法,谢谢!

 


--  作者:有点蓝
--  发布时间:2022/5/16 10:48:00
--  
https://www.baidu.com/baidu?ie=UTF-8&word=html%20button
--  作者:cd_tdh
--  发布时间:2022/5/16 14:39:00
--  

我用这种方式看起来更美观,

        With wb.AddPreview("","pv2","","")                                    
            .AddButton("全选", "", 1, "")  
            .Addbutton("反选", "", 0, "")
       End With

在请教一下老师,我添加了两个按钮,一个全选,一个反选的代码怎么写呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220516144429.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/5/16 14:45:12编辑过]

--  作者:有点蓝
--  发布时间:2022/5/16 14:51:00
--  
.Addbutton("全选"""1"onclick=\'xxjs函数(""1"")\'")
.Addbutton("反选"""1"onclick=\'xxjs函数(""0"")\'")

function xxjs函数(t){
    
document.getElementById("xx复选框控件").checked = t == \'1\'
}
[此贴子已经被作者于2022/5/16 14:51:32编辑过]

--  作者:cd_tdh
--  发布时间:2022/5/16 15:24:00
--  

Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "cgp", "请选择考勤人员")

老师,复选框控件为cgp

check JS函数如下:

function check(t){
    document.getElementById("cgp").checked = t == \'1\'
}

 

\'全选及反选按钮,哪儿有问题?
With wb.AddPreview("","pv1","","")                         
     .Addbutton("全选", "", 1, "onclick=\'check(""1"")\'")  
     .Addbutton("反选", "", 0, "onclick=\'check(""0"")\'")
End With


--  作者:有点蓝
--  发布时间:2022/5/16 15:27:00
--  
cgp是控件组名称,要设置里面的复选框控件