页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助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编辑过]
加好友 
发短信
Post By：2020/5/21 11:51:00 [显示全部帖子]
此主题相关图片如下：2.png
