如何让弹窗发挥真正的作用
答案:1 悬赏:0 手机版
解决时间 2021-03-07 07:34
- 提问者网友：了了无期
- 2021-03-06 19:34
如何让弹窗发挥真正的作用
最佳答案
- 五星知识达人网友：街头电车
- 2021-03-06 20:35
加一个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键等的方法，让程序无法结束，这个最邪恶←_←。
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键等的方法，让程序无法结束，这个最邪恶←_←。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯