在vb中怎样利用定时器控件来做出每秒变动的电子表

Question

在vb中怎样利用定时器控件来做出每秒变动的电子表

Answer 1

给你做一个，稍等。

设计界面

运行界面

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = FormatDateTime(Date, 1)
Label2.Caption = Time
Label1.BackStyle = 0
Label2.BackStyle = 0
Dim P As Integer, X As String
P = Weekday(Date)
Select Case P
Case 1: X = "日"
Case 2: X = "一"
Case 3: X = "二"
Case 4: X = "三"
Case 5: X = "四"
Case 6: X = "五"
Case 7: X = "六"
End Select
Label1.Caption = Label1.Caption & Space(1) & "星期" & X
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub

是不是特别简单

Answer 2

当然可以啊...
不过需要用到局部变量而已
Private intTimePast As Integer
然后还是按你的设置Timer控件的Interval设置为60000
最后在Time Tick事件里
If intTimePast < Val(Trim(textDelaytimeDisplay.Text)) Then
intTimePast = intTimePast + 1
Else
MsgBox "时间到，按确定后重新计算"
intTimePast = 0
End If
----------------------------------
当然你最后说的办法也是可以的，直接设置
Timer1.Interval = 60000 * DelayTimer
但值得说一下的
1. 不是必须要在Form_load，你在哪设置，就在哪写都可以的
2. 在设置之前，最好Enabeld = False，设置完后Enabled = True