以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]PC端 listview 的效果，在移动端如何实现？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102213)
--  作者：yangguojun
--  发布时间：2017/6/15 11:32:00
--  [求助]PC端 listview 的效果，在移动端如何实现？
PC端 listview 的效果，在移动端如何实现？
--  作者：有点色
--  发布时间：2017/6/15 11:47:00
--  

没有对应的控件。

 

你可以改用Grid http://www.foxtable.com/mobilehelp/scr/0077.htm

 
--  作者：yangguojun
--  发布时间：2017/6/15 13:03:00
--  
Grid  能否不显示中间的网格线？
--  作者：有点色
--  发布时间：2017/6/15 15:06:00
--  
Select Case e.Path
    Case "test.htm" \'首页
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","WeUI","微信网页设计样式库")
        With wb.AddGrid("","g1")
            .Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
            .Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
            .Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")
            .Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")
            .Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")
            .Add("c7","Article", "./images/article.png", "http://www.foxtable.com")
            .Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")
            .Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")
            .Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")
            .Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")
            .Add("c12","SearchBar", "./images/search.png", "http://www.foxtable.com")
        End With
        wb.AppendHTML("<style>.weui_grid:before{border-bottom: 0px solid #000000;border-right: 0px solid #000000;}</style>")
        \'wb.AppendHTML("<script src=\'./lib/test.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build) \'生成网页
End Select
[此贴子已经被作者于2017/6/15 15:06:41编辑过]