- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助1、多文本框怎么设定不可修改；2、怎么设定时间，不满足条件不允许点击按钮！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150118)
-- 发布时间：2020/5/21 11:51:00
-- 页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助1、多文本框怎么设定不可修改；2、怎么设定时间，不满足条件不允许点击按钮！
页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助1、多文本框怎么设定不可修改；2、怎么设定时间，不满足条件不允许点击按钮！
当前代码如下：
Case "time.htm"
wb.AddForm("","form1","time.htm")
With wb.AddInputGroup("form1","ipg1","开始学习时间:" & Date.Now())
.AddInput("姓名","姓名","Text").Value=Date.Now()
End With
Dim bt As String =Tables("学习内容").Current("内容")
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",50).Readonly=True
.AddTextArea("bz",50).Value= bt
End With
With wb.AddButtonGroup("form1","btg1",True) \'垂直排列
.Add("btn1", "学习结束")
End With
e.WriteString(wb.Build) \'生成网页
代码实现页面打开即获取当前时间
并且获取多文本值内容
当前生成了两个多文本框 需要解决只有一个文本框 且值不能被编辑
需要解决按钮在当前页面打开并保持1分钟后，才能进行点击，并且提交一个数据到表 学习记录 中的 结束列 值为点击按钮的当前时间
[此贴子已经被作者于2020/5/21 11:54:29编辑过]
-- 发布时间：2020/5/21 13:47:00
--
1、就是Readonly的用法
2、参考
js文件
function countDown() {
cnt=cnt-1;
var bt1 = document.getElementById(\'btn1\');
if(cnt === 0){
bt1.disabled=false;
bt1.innerHTML = "确定";
bt1.style.backgroundColor = "#04be02";
}
else {
bt1.innerHTML = "确定(" + cnt + "秒)"
setTimeout(countDown,1000);
}
}
httprequest事件
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","基本资料")
.AddInput("xm","姓名","text")
.AddInput("nl","年龄","number")
.AddInput("rq","日期","date")
.AddSwitch("vip","VIP客户")
End With
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",5).Readonly=True
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>",True)
wb.AppendHTML("<script>document.getElementById(\'btn1\').disabled=true;document.getElementById(\'btn1\').style.backgroundColor = \'#b2b2b2\';var cnt = 60;setTimeout(countDown,1000);</script>")
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2020/5/21 15:23:00
-- 回复：（有点蓝）1、就是Readonly的用法2、参考js文件...
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",5).Readonly=True
End With
这个是可以定义不准编辑了
Dim bt As String =Tables("学习内容").Current("内容")
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",50).Readonly=True
.AddTextArea("bz",50).Value= bt
如果这样写会生成两个多文本框 我只想生成一个文本框 有没有办法同时定义不准编辑和定义值呢？value
-- 发布时间：2020/5/21 15:25:00
--
with .AddTextArea("bz",50)
.Readonly=True
.Value= bt
-- 发布时间：2020/5/21 15:37:00
-- 回复：（有点蓝）with .AddTextArea("bz",50).Re...
此主题相关图片如下：2.png
js运行后按钮显示乱码
此主题相关图片如下：1.png
-- 发布时间：2020/5/21 15:46:00
-- 回复：（有点蓝）with .AddTextArea("bz",50).Re...
谢谢老师 重新启动项目后显示正常了
-- 发布时间：2020/5/21 15:51:00
--
不要使用记事本编辑js 文件。js 文件必须是utf8编码格式的。建议上网下安装vs code、editplus等专业的编辑软件使用