以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  计时器  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170764)

--  作者：aaa1234 --  发布时间：2021/8/6 15:50:00 --  计时器 老师您好，这是我的代码 Dim d As Date = Date.Today.adddays(2) Dim dt As Date =  format(d,"yyyy-MM-dd 23:59:59") Dim t As TimeSpan = dt - Date.Now      \'计算现在离今天的24时整还差多少时间 e.Form.Controls("Label29").Text = "剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒" Dim Lbl As WinForm.Label = e.Form.Controls("Label29") If Lbl.ForeColor = Color.Red Then     Lbl.ForeColor = Color.Black Else     Lbl.ForeColor = Color.Red End If 倒计时两天，我想问一下我怎么样可以整一个文本框，例如我输入个3，然后按确定，他就倒计时3天

--  作者：有点蓝 --  发布时间：2021/8/6 15:54:00 --   Dim d As Date = Date.Today.adddays(val(e.Form.Controls("某文本框").text))

--  作者：aaa1234 --  发布时间：2021/8/6 15:54:00 --   谢谢老师

--  作者：aaa1234 --  发布时间：2021/8/6 16:23:00 --   老是我想问一下，我有一个文本框，我想他的值是自己的username，不给他填写，怎么弄  User.Name

--  作者：有点蓝 --  发布时间：2021/8/6 16:56:00 --   窗口afterload e.Form.Controls("某文本框").text = User.Name

--  作者：aaa1234 --  发布时间：2021/8/6 17:37:00 --   不行啊老师

--  作者：有点蓝 --  发布时间：2021/8/6 17:40:00 --   什么东西不行？赋值肯定没有问题，如果绑定了表，参考：http://www.foxtable.com/webhelp/topics/2436.htm