Foxtable(狐表)用户栏目专家坐堂 → 请教,WEUI中如何设置Article的Attribute属性?


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

主题:请教,WEUI中如何设置Article的Attribute属性?

帅哥哟,离线,有人找我吗?
jq_shang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
请教,WEUI中如何设置Article的Attribute属性?  发帖心情 Post By:2019/9/15 21:35:00 [只看该作者]

在WEUI中使用Article,经过尝试,已经弄成功设置标题居中。

但是,文本段落在设置首行缩进的过程中,咋也尝试不对。请教,如何设置Article段落中的首行缩进呢?

With wb.AddArticle("","ar1")
            .AddTitle("h1",zbt,"align='center'") '主标题
            .AddTitle("h2",fbt,"align='center'") '副标题
            .AddTitle("h3","作者: " & zz,"align='center'") '作者
            .AddImage("./uploadpics/" & tt) '题图
            .AddContent(wb1,"Type='text-indent:2em'")

end with


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 22:41:00 [只看该作者]

 .AddContent(wb1,"style='text-indent:2em'")

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 22:47:00 [只看该作者]

谢谢蓝版主!

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 22:53:00 [只看该作者]

还是有点问题啊。wb1是多段文本,用这个命令代码,只有一行做到首行缩进。

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 22:55:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.Path = "zzwy.htm" '自助网页
    wb.AddPageTitle("","pageheader","JACK桥牌文库","自动生成的动态网页")
    DataTables("网页表").load()
    Dim r As DataRow = DataTables("网页表").Find("编号 = '" & _zzbh & "'")
    If r IsNot Nothing Then
        Dim zbt As String = r("主标题")
        Dim fbt As String = r("副标题")
        Dim zz As String = r("作者")
        Dim jj As String = r("简介")
        Dim hz As String = r("徽章")
        Dim tt As String = r("题图")
        Dim wb1 As String = r("多段文本一")
        wb1 = wb1.Replace(vbcrlf,"<br/>")
        Dim wb2 As String = r("多段文本二")
        wb2 = wb2.Replace(vbcrlf,"<br/>")
        Dim wb3 As String = r("多段文本三")
        wb3 = wb3.Replace(vbcrlf,"<br/>")
        Dim wb4 As String = r("多段文本四")
        wb4 = wb4.Replace(vbcrlf,"<br/>")
        Dim ct1 As String = r("插图一")
        Dim ct2 As String = r("插图二")
        Dim ct3 As String = r("插图三")
       
        ' wb.InsertHTML("<h2 align='center' style='margin-top:5px'> " & bt & "</h2>") '标题
        '       wb.InsertHTML("<h5 align='center' style='margin-top:5px;color:red'> " & zz & "</h5><br/>") '作者,红色
        '     wb.InsertHTML("<style Type='text/css'><!-- p{text-indent: 2em}--></style>")
        '     wb.InsertHTML("<p align='left' style='margin-left:100px;margin-right:60px;'>" & tj & "</p>") '题记,缩进
        '     If dr("类型") = "五言诗七言诗" Then '内容
        '          wb.InsertHTML("<h3 align='center' style='margin-top:5px;font-family:times;color:blue'> <pre><i>" & nr & "</i><pre></h3><br/><br/>")
        '      Else
        '         wb.InsertHTML("<h3 align='left' style='margin-left:120px;font-family:times;color:blue'> <pre><i>" & nr & "</i><pre></h3><br/><br/>")
        '     End If
       
        wb.AddForm("","form1","swlb.htm")
        With wb.AddArticle("","ar1")
            .AddTitle("h1",zbt,"align='center'") '主标题
            If fbt <> "" Then
                .AddTitle("h2",fbt,"align='center'") '副标题
            End If
            .AddTitle("h3","作者: " & zz,"align='center'") '作者
            If tt <> "" Then
                .AddImage("./uploadpics/" & tt) '题图
            End If
            .AddContent(wb1,"style='text-indent:2em'")  '文本段一
            If ct1 <> "" Then
                .AddImage("./uploadpics/" & ct1) '插图一
            End If
            If wb2 <> "" Then
                .AddContent(wb2,"style='text-indent:2em'")  '文本段二
            End If
            If ct2 <> "" Then
                .AddImage("./uploadpics/" & ct2) '插图二
            End If
            If wb3 <> "" Then
                .AddContent(wb3,"style='text-indent:2em'")  '文本段三
            End If
            If ct3 <> "" Then
                .AddImage("./uploadpics/" & ct3) '插图三
            End If
            If wb4 <> "" Then
                .AddContent(wb4,"style='text-indent:2em'")  '文本段四
            End If
        End With
    End If
    wb.AddForm("","form2","swlb.htm")
    With wb.AddButtonGroup("form2","btg2",False)
        .Add("btn1","规则礼仪","","./gzly.htm")
        .Add("btn2","叫牌专题","","./jpzt.htm")
        .Add("btn3","防守专题","","./fszt.htm")
        .Add("btn4","赛场侧记","","./sccj.htm")
    End With
    wb.AddForm("","form3","swlb.htm")
    With wb.AddButtonGroup("form3","btg3",False)
        .Add("btn5","自然体系","","./zrtx.htm")
        .Add("btn6","简单精确","","./jdjq.htm")
        .Add("btn7","接力精确","","./jljq.htm")
        .Add("btn8","返回首页","","./default.htm")
    End With
End If
e.WriteString(wb.Build) '生成网页

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 23:00:00 [只看该作者]

wb1 = wb1.Replace(vbcrlf,"<br/>&nbsp;&nbsp;&nbsp;&nbsp;")

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 23:14:00 [只看该作者]

好的,我试试,虽然看不明白,还是谢谢您。

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 23:17:00 [只看该作者]

好啦!谢谢蓝版。nbsp是什么东东?

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/15 23:19:00 [只看该作者]

另外,这个Article的默认文字字体大小在哪里改?我在css文件里没有查到关于article的段落

 回到顶部
帅哥哟,离线,有人找我吗?
jq_shang
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:217 积分:1646 威望:0 精华:0 注册:2018/1/21 10:25:00
  发帖心情 Post By:2019/9/16 4:57:00 [只看该作者]

第一个问题看明白了。谢谢蓝版。

 回到顶部
总数 12 1 2 下一页