vb10秒倒计时然后字体越来越大

2020-06-05 社会 89阅读
Dim mycnt As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Me.FontSize = 50
mycnt = 11
End Sub
Private Sub Timer1_Timer()
mycnt = mycnt - 1
Me.FontSize = Me.FontSize + 20
Cls
Print mycnt
If mycnt = 0 Then
mycnt = 11
Me.FontSize = 50
End If
End Sub
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com