Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:list列表问题

1楼
ycs5801 发表于:2024/7/24 1:23:00

使用List

List(列表)用于列表内容,列表项可以附带说明、超链接和图标。

一个例子

HttpRequest事件代码

Select Case e.Path
    Case "test.htm"
        Dim wb As New We
UI
        With wb.AddListGroup("", "lsg1",
"
简单列表")
            .Add("ls1",
"
新浪主页")
            .Add("ls2",
"
网易主页")
        End With
        With wb.AddListGroup("", "lsg2",
"
增加说明的列表")
            .Add("ls3",
"
新浪主页", "sina.com")
            .Add("ls4",
"
网易主页", "163.com")
        End With
        With wb.AddListGroup("", "lsg3",
"
增加跳转的列表")
            .Add("ls5",
"
新浪主页", "sina.com", "http://www.sina.com.cn")
            .Add("ls6",
"
网易主页", "163.com", "http://www.163.com")
        End With
        With wb.AddListGroup("", "lsg4",
"
增加图标的列表")
            .Add("ls7",
"
新浪主页", "sina.com", "http://www.sina.com.cn", "./images/sina.png")
           
.Add("ls8","网易主页", "163.com", "http://www.163.com", "./images/163.png")
        End With
        e.WriteString(wb.Build)

End
Select


问题:list是不是无法实现点击运行某个函数?比如说这种:

.RightFooter.AddFoot("加入购物车").Attribute = "on click='alert(""已加入"")' style='color:blue;'"  


如果想实现是不是只能用exweui中的组件?

2楼
有点蓝 发表于:2024/7/24 8:45:00
很简单的东西,都不去动手测试一下!

        With wb.AddListGroup("", "lsg1", "简单列表")
            .Add("ls1", "新浪主页").Attribute = "onclick=""alert('新浪主页')"""
            .Add("ls2", "网易主页")
        End With
3楼
ycs5801 发表于:2024/7/24 9:58:00
  With wb.AddListGroup("", "lsg3""增加跳转的列表")
            .Add("ls5",
"
新浪主页""sina.com""http://www.sina.com.cn")
           

        End With

能不能仅仅针对某个元素,比如这个链接。
4楼
有点蓝 发表于:2024/7/24 10:08:00
这个没有办法在服务端处理。自己分析前端网页,使用js找到对应的标签,绑定事件
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.