现在想用VB，当前时间变化在文本框会显示后台设定的数字。

Question

意思就是假设1点的时候text显示200，当1点半的时候text会自动变成230

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Time = #10:24:00 AM# Then
    Me.Caption = "1"
ElseIf Time = #10:25:00 AM# Then
    Me.Caption = "2"
End If
End Sub

 工具是用来方便自己的，好用就行，没必要追求新旧。剪刀有几千年历史，比剪刀厉害的切割机很多。为什么我们还用剪刀呢。因为适合自己

追问

您那个1或2是显示在哪里的？

Answer 2

VB过时了，不要用了