用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
以上是代码,,可是为什么到了设置的时间却不能提示~~~???
[解决办法]
h == System.DateTime.Now.Hour && m== System.DateTime.Now.Minute && s== System.DateTime.Now.Second
in vb
== -> =
&& -> and
