【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年建成國家工業互聯網大數據中心
• 內蒙古如何申請貸款買牛 – 大額貸款
• 天天向上廈門六中是哪一期
• 如何處對象怎么處 才能處到很好