vb倒计时怎么做

答案:2 悬赏:70 手机版

解决时间 2021-01-30 05:15

提问者网友：原来太熟悉了会陌生
2021-01-29 14:56

倒计时10秒钟就自动停止的vb程序

最佳答案

五星知识达人网友：woshuo
2021-01-29 15:12

添加Text、按钮、Timer控件各一个
Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
If Text1.Text < 1 Then
Unload Me
End If
End Sub

全部回答

1楼网友：孤独的牧羊人
2021-01-29 16:31

是倒计时后就关机不？ on error resume next dim wshshella set wshshella = wscript.createobject("wscript.shell") wshshella.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪，不说我是猪就两分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是小狗") a = inputbox ("说我是小狗,就不关机，快撒，说 ""我是小狗""　","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"msgbox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，何必这么吓人" dim wshshell set wshshell = wscript.createobject("wscript.shell") wshshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，今天真过瘾。" 不知道这个是不是只要这些复制放在文档里面后缀名为vbe 就可以了这个是一个恶作剧的程序你自己也可以该下

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息