Private Sub Timer1_Timer()
L1.Caption = L1.Caption - 1
If L1.Caption = 0 Then
wmp1.URL = App.path & "\mp3\bg.mp3"
Image2.Visible = True
End If
End Sub
其中WM1是引用的控件Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"，L1是标签，也就是倒计时
在VB6中的工程引用中找到WMPLAYER
以上是我原来用VB6时的一个倒计时定时器代码部分。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024