| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 请教，WEUI中如何设置Article的Attribute属性？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140831) |
| -- 作者：jq_shang -- 发布时间：2019/9/15 21:35:00 -- 请教，WEUI中如何设置Article的Attribute属性？ 在WEUI中使用Article，经过尝试，已经弄成功设置标题居中。 但是，文本段落在设置首行缩进的过程中，咋也尝试不对。请教，如何设置Article段落中的首行缩进呢？ With wb.AddArticle("","ar1") end with |
| -- 作者：有点蓝 -- 发布时间：2019/9/15 22:41:00 -- .AddContent(wb1,"style=\'text-indent:2em\'") |
| -- 作者：jq_shang -- 发布时间：2019/9/15 22:47:00 -- 谢谢蓝版主！ |
| -- 作者：jq_shang -- 发布时间：2019/9/15 22:53:00 -- 还是有点问题啊。wb1是多段文本，用这个命令代码，只有一行做到首行缩进。 |
| -- 作者：jq_shang -- 发布时间：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) \'生成网页 |
| -- 作者：有点蓝 -- 发布时间：2019/9/15 23:00:00 -- wb1 = wb1.Replace(vbcrlf,"<br/> ") |
| -- 作者：jq_shang -- 发布时间：2019/9/15 23:14:00 -- 好的，我试试，虽然看不明白，还是谢谢您。 |
| -- 作者：jq_shang -- 发布时间：2019/9/15 23:17:00 -- 好啦！谢谢蓝版。nbsp是什么东东？ |
| -- 作者：jq_shang -- 发布时间：2019/9/15 23:19:00 -- 另外，这个Article的默认文字字体大小在哪里改？我在css文件里没有查到关于article的段落 |
| -- 作者：jq_shang -- 发布时间：2019/9/16 4:57:00 -- 第一个问题看明白了。谢谢蓝版。 |