VB制作时,定义重复,时怎么办

来源:百度知道 编辑:UC知道 时间:2024/06/05 15:51:10
“Private Sub Form_Load() ”重复了,怎么改。
如:
===========================
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://123zmw.cn"
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim d As String, h As String, m As String
d = Format(DateDiff("d", Now, #8/8/2008 8:08:08 AM#)) - 1
h = 24 - Hour(Time) + 7
If Hour(Time) > 8 Then h = 24 - Hour(Time) + 7
If Hour(Time) <= 8 Then h = 8 - Hour(Time)

Label1.Caption = "距离奥运开幕还有" & d & "天" & h & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub

-----------------------------------------------------------
我想制作一浏览器,边上带奥运倒计时,怎么弄,
上面有一个定义重复了,怎么改?

'合到一起不就可以了
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://123zmw.cn"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim d As String, h As String, m As String
d = Format(DateDiff("d", Now, #8/8/2008 8:08:08 AM#)) - 1
h = 24 - Hour(Time) + 7
If Hour(Time) > 8 Then h = 24 - Hour(Time) + 7
If Hour(Time) <= 8 Then h = 8 - Hour(Time)

Label1.Caption = "距离奥运开幕还有" & d & "天" & h & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub