<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
用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
MessageBox.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(TextBox1.Text)
s = Int32.Parse(TextBox2.Text)
m = Int32.Parse(TextBox3.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(TextBox1.Text) And System.DateTime.Now.Minute = Int32.Parse(TextBox2.Text) And System.DateTime.Now.Second = Int32.Parse(TextBox3.Text) Then
MessageBox.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
__________________________________________________________________________