VB中的Time

Question

我想做了时间触发，当8：30时 让我的按钮显示出来
我是初学，请大家帮帮忙！

Answer 1

If Format(Now, "HH:mm") = "08:30" Then
   command1.Visible=True 
End If

Answer 2

凑凑热闹
楼上的代码放在
Private Sub Timer1_Timer()End Sub
----
Timer1.Interval=60000 (时间间隔随意)
Timer1.Enabled=True
放在Form_Load或Button_Click中

Answer 3

Private Sub Timer1_Timer()
If Format(Now, "HH:mm") = "08:30" Then
   command1.Visible=True 
End If
End Sub

Answer 4

Private Sub Timer1_Timer()
If Format(Now, "HH:mm") = "08:30" Then
   command1.Visible=True 
End If
End Sub

Answer 5

FormatdateTime('t',now);
输出为 10:17

Answer 6

不好意思,记不清了应该是  FormatDateTime(Now, vbShortTime)

Answer 7

凑凑热闹
Private Sub Timer1_Timer()
  If Format(Now, "HH:mm") = "08:30" Then
     command1.Visible=True 
     timer1.enabled = false'关闭定时器
  End IfEnd Sub
----
private sub form_load
   Timer1.Interval=60000 (时间间隔随意)
   Timer1.Enabled=True
end sub 

Answer 8

又学了一招,呵呵
Private Sub Timer1_Timer()
  If Format(Now, "HH:mm") = "08:30" Then
     command1.Visible=True 
     timer1.enabled = false'关闭定时器
  End IfEnd Sub
----
private sub form_load
   Timer1.Interval=60000 (时间间隔随意)
   Timer1.Enabled=True
end sub 测试通过!!!!!!!!!!!!