前端之家收集整理的这篇文章主要介绍了
[VB.NET]用VB编了个闹钟,,却碰到问题~~,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
用VB编了个闹钟,却碰到问题~~ Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Convert.ToString(System.DateTime.Now) If (h == System.DateTime.Now.Hour && m== System.DateTime.Now.Minute && s== System.DateTime.Now.Second) Then Message
Box.Show( 时间到了!!! ) End If End Sub Dim h,s,m Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click h = Int32.Parse(Text
Box1.Text) s = Int32.Parse(Text
Box2.Text) m = Int32.Parse(Text
Box3.Text) End Sub End Class 以上是
代码,可是为什么到了设置的时间却不能
提示~~~??? __________________________________________________________________________ 请lz检查程序是否进入 Timer1_Tick 这个
方法 __________________________________________________________________________ 我看 用 〉 表示 时间 没有叫做同时。 __________________________________________________________________________ 我说 的是你 时间 判断的时候 用大于 号 __________________________________________________________________________ 哎 88年的 __________________________________________________________________________ Timer1是否启动 __________________________________________________________________________ 还是不行,还有其他办法吗??? __________________________________________________________________________ 昏倒 〉= 顺序反了 现在 比设定 System.DateTime.Now.Hour > = h && System.DateTime.Now.Minute > = m && System.DateTime.Now.Second > = s 测试通过 结帖 __________________________________________________________________________ 暈死 vb.net加c#雙語法寫的代碼也能用?? __________________________________________________________________________ 谢楼主! __________________________________________________________________________ Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Convert.ToString(System.DateTime.Now) If System.DateTime.Now.Hour = Int32.Parse(Text
Box1.Text) And System.DateTime.Now.Minute = Int32.Parse(Text
Box2.Text) And System.DateTime.Now.Second = Int32.Parse(Text
Box3.Text) Then Message
Box.Show( 时间到了!!! ) End If End Sub __________________________________________________________________________ 那只是便于理解, 其实只要 不用绝对的时间对比 就可以了, 因为 没有 同时,这回事 所以,只要用逻辑 上的 大于 或小于 对比 就可以 把 timer 设定 到 1000 毫秒 没关系 ***************************************************************************** 欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源
代码) http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html __________________________________________________________________________ h == System.DateTime.Now.Hour && m== System.DateTime.Now.Minute && s== System.DateTime.Now.Second in vb == -> = && -> and __________________________________________________________________________
原文链接:https://www.f2er.com/vb/263379.html