Dim e As RequestEventArgs = args(0)
Dim wb As New weui
'If e.PostValues.Count = 0 Then '生成增加订单网页
wb.AddForm("","form1","handle.htm")
wb.InsertHTML("<script>document.getElementById('ipg1').previousElementSibling.style.color = 'white'</script>")
wb.InsertHTML("<script>document.getElementById('ipg1').previousElementSibling.style.background='#04be02'</script>")
wb.InsertHTML("<script>document.getElementById('ipg1').previousElementSibling.style.lineheight='2.5';document.getElementById('ipg1').previousElementSibling.style.margintop='0';document.getElementById('ipg1').previousElementSibling.style.marginbottm='0';</script>")
'wb.InsertHTML("<script>style.lineheight='2.5'</script>")
'24楼的用法,加上重新设置weui_cells_title类的样式即可,参考5楼的用法
'wb.AppendHTML("<style>.mark{background-color:red; color:white;} .fox_table th{background-color:red; }</style>", True) '添加样式
'wb.AppendHTML("<style>.tthead{background-color:#04be02; color:white;}</style>", True) '表头样式
With wb.AddInputGroup("form1","ipg1","增加记录")
.Attribute = ""
'wb.InsertHTML("<style='background-color:#90EE90'>增加记录</Style>")
'.Attribute= "<div style='background:#98bf21;>"
'.Attribute = "class='addnewstyle'"
With .AddInput("huodongdate","活动日期:","date")
.Step="0.01"
.attribute="style='color: black;text-align: left;font-size: 14px'"
End With
With .AddInput("huodongfee","活动费用:","number")
.Step="0.01"
.attribute="style='color: black;text-align: left;font-size: 14px;'"
End With
With .AddInput("yucunkoufee","预存扣费:","number")
.Step="0.01"
.attribute="style='color: red;text-align: left;font-size: 14px;'"
End With
With .AddInput("shouxufee","手续费:","number")
.Step="0.01"
.attribute="style='color: red;text-align: left;font-size: 14px;'"
End With
With .AddInput("offlinefee","线下收费:","number")
.Step="0.01"
.attribute="style='color: red;text-align: left;font-size: 14px;'"
End With
With .Addinput("tixianmoney","提现金额:","number")
.Step="0.01"
.attribute="style='color: black;text-align: left;font-size: 14px;'"
End With
End With
wb.InsertHTML("<script>document.getElementById('ipg2').previousElementSibling.style.color = 'white'</script>")
wb.InsertHTML("<script>document.getElementById('ipg2').previousElementSibling.style.background='#04be02'</script>")
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("demo",3).Placeholder = "请输入100字以内的备注"
.attribute="style='color: black;text-align: left;font-size: 14px;'"
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= ""
End With
With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") '增加订单成功提示框
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","list.htm").Kind = 1
End With
With wb.AddDialog("","dlg2", "错误","") '增加订单失败提示框
.AddButton("btnOK","确定")
End With
wb.AppendHTML("<script src='./lib/setCodes.js'></script>")
'下面代码调标签字体大小
wb.InsertHTML("<script>document.getElementById('huodongdate').parentNode.previousElementSibling.style.f</script>")
wb.InsertHTML("<script>document.getElementById('huodongfee').parentNode.previousElementSibling.style.f</script>")
wb.InsertHTML("<script>document.getElementById('yucunkoufee').parentNode.previousElementSibling.style.f</script>")
wb.InsertHTML("<script>document.getElementById('shouxufee').parentNode.previousElementSibling.style.f</script>")
wb.InsertHTML("<script>document.getElementById('offlinefee').parentNode.previousElementSibling.style.f</script>")
wb.InsertHTML("<script>document.getElementById('tixianmoney').parentNode.previousElementSibling.style.f</script>")
'wb.InsertHTML("<script>document.getElementById('demo').parentNode.previousElementSibling.style.f</script>") '在
e.WriteString(wb.Build)
output.show(wb.build)