【vb中如何无限 弹出窗口】

加一个Timer，其中属性Interval值设为1，然后双击Timer建立如下代码： Private Sub Timer1_Timer() MsgBox "你的电脑已经中病毒了，弹窗无限进行中……", vbCritical, "哈哈" End Sub 如果更邪恶一点的话： 方法一：可以再把Form的属性Visible值设为False（找不到运行窗口） 。方法二：把Form的BorderStyle属性设为：None，BackColor设为任何一个你想要的颜色，启动方式WindowState设为Maximized 。（窗口独占全屏，你也可以在背景上加一些其他东西） 方法三：（自己发挥吧）…… 还有一个： 在Timer1里面加入语句： Private Sub Timer1_Timer() Dim frm As New Form1 frm.Show End Sub 这样的效果是不断生成Form1窗口，而且每生成一个窗口添加速度加快一倍，如果不想这样可以另行再建立一个窗口（如Form2），然后把第二行改为Dim frm As New Form2就行了 。窗口的内容可以自己补充，弄得像一个错误窗口就行了 。PS：可以查一下屏蔽Win键等的方法，让程序无法结束，这个最邪恶←_← 。

猜你喜欢

• 羊毛衫的洗涤方法及注意事项 如何洗羊毛衫注意什么
• 妘怎么读 妘如何读
• 盐水辣椒的腌制方法 盐水辣椒要如何腌制
• 天行九歌中的逆鳞是谁
• 性敢中环的演员
• 北京航天中心医院口碑 航天中心医院擅长
• 2020年建成国家工业互联网大数据中心
• 内蒙古如何申请贷款买牛 – 大额贷款
• 天天向上厦门六中是哪一期
• 如何处对象怎么处 才能处到很好