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


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

主题：div背景色问题
帅哥哟，离线，有人找我吗？
ycs5801
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		div背景色问题  发帖心情 Post By：2024/5/15 10:59:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240401092854.png
图片点击可在新窗口打开查看

下边这两个绿色块，怎样可以像上边红色块那样横向填满？

代码如下：
  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%'" '淡绿色，已完成
        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
....
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 11:21:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240401092854.png
图片点击可在新窗口打开查看
调试是这样，应该怎么改呢？
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 14:47:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240401092854.png
图片点击可在新窗口打开查看

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:#198d65;font-size:17px'"                             
                End With              
            End With

我直接在改这个addfoot里边的属性，为什么没有背景色呢？
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 15:11:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:renamecxtq.rar
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		附件  发帖心情 Post By：2024/5/15 15:55:00 [显示全部帖子]

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

已上传
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		网站说明  发帖心情 Post By：2024/5/15 16:23:00 [显示全部帖子]

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2024/5/15 16:38:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：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

这是我之前的代码，这样就会出现背景色长短不齐。
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1064 积分：7581 威望：0 精华：0 注册：2009/6/24 9:44:00 		做了个远程的  发帖心情 Post By：2024/5/16 9:19:00 [显示全部帖子]

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


这个改了远程数据库，可以直接使用了。
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 9 次数据查询