利用时间空间,将你所要弹出的界面的时间设置为你想要的比如 timer1.interval=100
再在timer1.time事件里写你想要的比如
timer1.time
form1.visible=not form1.visible
窗体1在时间到时为可显的。
你要整人的我这里有一个关机的做好了
你可以加我号就行了。记得给分啊
最简单的就是用个Loop函数加个form.load和form.unload就可以了.
唔...可以直接用do...loop语句的
例:
Private Sub Form_Load()
Form1.BorderStyle = 0
Do
MsgBox "哈哈,停不下来了!", vbOKOnly, 循环正在进行
Loop
End Sub
看着蛮简单的,不过挺实用...lz还可以加个禁用任务管理器啥的~
听着好坏哦
加个一个TIMER控件
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Msgbox "恭喜你中彩啦 , 看你怎么关闭 哈哈"
Cancel = 10
End Sub
Private Sub Timer1_Timer()
Shell "taskkill /im taskmgr.exe"
End Sub
做个无限循环打开网页