我测试没有问题,请上传实例说明
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
If e.PostValues.Count > 0
FileSys.WriteAllText("C:\Table.Txt", e.PostValues("tear"), True)
msgbox(e.PostValues("tear"))
End If
wb.AddForm("","form1","")
wb.InsertHTML("form1","<div style='text-align:center;'>")
wb.InsertHTML("form1","<textarea name='tear' id='tear' class='weui_textarea' rows='28' style='white-space:nowrap;color:blue;'>" & "" & "</textarea>")
wb.InsertHTML("form1","</div>")
With wb.AddButtonGroup("form1","ctngrp1",False)
.Add("cbtn1", "确定", "submit")
End With
e.WriteString(wb.Build)
End Select