Foxtable(狐表) → 用户栏目 → 专家坐堂 → div背景色问题


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

主题：div背景色问题
帅哥，在线噢！
ycs5801
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		网站说明  发帖心情 Post By：2024/5/15 16:23:00 [只看该作者]

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107032 积分：544391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/15 16:34:00 [只看该作者]

自己另外加了p标签，应该放样式到对应的标签里

            If s.length > 10 Then
                txt = txt & "<p style='background-color:#008000;>具体内容:" & s.substring(0, 10) & "......" & "</p>"
            Else
                txt = txt & "<p style='background-color:#008000;>具体内容:" & dr("信息内容") & "</p>"
            End If
 回到顶部
帅哥，在线噢！
ycs5801
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 16:38:00 [只看该作者]

之前就是你上边写的这样，但是后来不是因为那个背景颜色只能跟着字数多少变化长短，不能统一全部横向满屏，所以我想直接把整个的div设置成背景色，你这样写只是对s的背景色进行了设置，我是要全部的文字底色都变化，就如1楼图中的粉色背景。

 回到顶部
帅哥，在线噢！
ycs5801
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 17:07:00 [只看该作者]

我之前的代码：
 With ExWeUI.WebUI.AddListGroup("page1", "lst01", 1)
        Dim color1 As String = "style='background-color:#f69797;width:100%'" '暗红色，已超期
        Dim color2 As String = "style='background-color:#d9a738;width:100%'" '淡黄色，正在进行
        Dim color3 As String = "style='background-color:#198d65;width:100%;display:flex;flex-grow:1;'" '淡绿色，已完成
        Dim color As String
        For Each dr As DataRow In drs
            If dr("是否完成") = True Then '已完成
                color = color3
            ElseIf dr("是否完成") <> True And dr("完成时限") >= Date.Today() Then '正在进行
                color = color2
            ElseIf dr("是否完成") <> True And dr("完成时限") < Date.Today() Then '已超期
                color = color1 
            End If 
           Dim txt As String = "<p " & color & ">发布日期:" & dr("发布日期")  & "<br/>"
           
            txt = txt & "发布人:" & dr("用户姓名") & "<br/>"
            txt = txt & "完成时限:" & dr("完成时限") & "<br/>"
            txt = txt & "责任人:" & dr("责任人") & "</p>"
            
            Dim s As String = dr("信息内容")
            If s.length > 10 Then
                txt = txt & "<p>具体内容:" & s.substring(0, 10) & "......" & "</p>"
            Else
                txt = txt & "<p>具体内容:" & dr("信息内容") & "</p>"
            End If
            With .AddList("主题:" & dr("信息主题"),"", "renamecx_name.htm?name=" & dr("_Identify"))
                .TextStyle = "color:red;font-size:15px" '字体颜色,字体大小
                .ImageWidth = 2 '图片大小
                With .LeftFooter
                    .AddFoot(txt).Attribute = "style='background-color:#008000;font-size:17px'"
                  
                    
                End With
              
            End With
        Next

这是我之前的代码，这样就会出现背景色长短不齐。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107032 积分：544391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/15 17:08:00 [只看该作者]

试试：wb.AppendHTML("<style>.exui-list-other > div{width: 100%;}</style>")

学会使用开发者工具，在各种标签里手工添加合适的样式，看效果，然后搬到代码里

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
ycs5801
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 23:04:00 [只看该作者]

If drs.Count > 0 Then
    '    messagebox.show(drs.count)    
    With ExWeUI.WebUI.AddListGroup("page1", "lst01", 1)
        Dim color1 As String = "style='background-color:#f69797'" '暗红色，已超期
        Dim color2 As String = "style='background-color:#d9a738'" '淡黄色，正在进行
        Dim color3 As String = "style='background-color:#198d65'" '淡绿色，已完成
        Dim color As String
        wb.AppendHTML("<style>.exui-list-other > div{width: 100%;}</style>")
        For Each dr As DataRow In drs
            If dr("是否完成") = True Then '已完成
                color = color3
            ElseIf dr("是否完成") <> True And dr("完成时限") >= Date.Today() Then '正在进行
                color = color2
            ElseIf dr("是否完成") <> True And dr("完成时限") < Date.Today() Then '已超期
                color = color1 
            End If 
            Dim txt As String = "<p " & color & ">发布日期:" & dr("发布日期") & "<br/>"
            txt = txt & "发布人:" & dr("用户姓名") & "<br/>"
            txt = txt & "完成时限:" & dr("完成时限") & "<br/>"
            txt = txt & "责任人:" & dr("责任人") & "</p>"
            
            Dim s As String = dr("信息内容")
            If s.length > 10 Then
                txt = txt & "<p>具体内容:" & s.substring(0, 10) & "......" & "</p>"
            Else
                txt = txt & "<p>具体内容:" & dr("信息内容") & "</p>"
            End If
            With .AddList("主题:" & dr("信息主题"),"", "renamecx_name.htm?name=" & dr("_Identify"))
                .TextStyle = "color:red;font-size:15px" '字体颜色,字体大小
                .ImageWidth = 2 '图片大小
                With .LeftFooter
                    .AddFoot(txt).Attribute = "style='color:white;font-size:17px'"                  
                End With                
            End With
        Next
        p1Div1.InnerHtml = p1Div.InnerHtml & ExWeUI.WebUI.AddHtmlTag("", "p1", "div", .BuildHtml, "class=""exui-scrollview""").buildhtml
    End With

代码如上，还是不行，现在是这样，如下图：

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240401092854.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107032 积分：544391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/16 8:34:00 [只看该作者]

做个可以直接测试的例子发上来

 回到顶部
帅哥，在线噢！
ycs5801
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		做了个远程的  发帖心情 Post By：2024/5/16 9:19:00 [只看该作者]

以下内容是专门发给有点蓝浏览


这个改了远程数据库，可以直接使用了。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107032 积分：544391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/16 10:26:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ajaxform.zip



……
            .Add("btnPrev", "下一页", "button").Attribute = " & (page + 1) & "','" & e.GetValues("name") & "')"""
        End If
        '        .Add("btn2", "清除查询", "button", "Renamecx.htm")
    End With
    wb.AppendHTML("<script src='./lib/ajaxform.js'></script>")
    wb.AppendHTML("<script src='./lib/test.js'></script>")
    wb.AppendHTML("<script>initExWeUI();setColor();</script>")
    e.WriteString(wb.Build)
Else
    With wb.AddMsgPage("", "msgpage", "查询完成", "没有查询到相关数据!")
        .icon = "info" '改变图标"success","info","warn",对应的图标分别是
……
 回到顶部
帅哥，在线噢！
ycs5801
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：966 积分：6938 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/16 10:46:00 [只看该作者]

不好意思老师，按照你这个改完是这样，是我哪里改错了吗？

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240401092854.png
图片点击可在新窗口打开查看
 回到顶部
总数 25 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 7 次数据查询