页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助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编辑过]

主题：页面打开即开始计时，页面保持一分钟后，允许点击按钮！求助1、多文本框怎么设定不可修改；2、怎么设定时间，不满足条件不允许点击按钮！