VB 程序d出错误框（部件要求挂起），求解决。

你的循环语句中要插入一句DoEvents，使查询期间能让其他软件临时获得CPU的控制权，避免程序进入“假死”（或者说挂起）状态。另一方面，你的查询代码也要进行优化，以免占用太多的CPU控制时间。Windows系统是个多任务系统，你要时刻记住，在同一个时刻，并不是只有你的程序在运行，还有许多其他软件也在排队等着分CPU的一杯羹，所以软件也要有“公德心”，不能只顾自己，强行霸占系统资源。就像很多人排队买火车票，如果轮到你的时候你长时间霸着售票窗口不走，那么整个队伍就陷入停滞状态了。

用MsgBox 函数，参见以下代码

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

    Msg = "Do you want to continue "   ' 定义信息。

    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。

    Title = "MsgBox Demonstration"   ' 定义标题。

    Help = "DEMOHLP"   ' 定义帮助文件。

    Ctxt = 1000   ' 定义标题

          ' 上下文。

          ' 显示信息。

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    If Response = vbYes Then   ' 用户按下“是”。

        MyString = "Yes"   ' 完成某 *** 作。

    Else   ' 用户按下“否”。

        MyString = "No"   ' 完成某 *** 作。

    End If

代码摘引自MSDN

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

以上就是关于VB 程序d出错误框（部件要求挂起），求解决。全部的内容，包括:VB 程序d出错误框（部件要求挂起），求解决。、vbd出提示框的代码应该怎么写、vb中如何无限 d出窗口等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！