vb.net 中如何使用Doevents？
转让控制权，以便让操作系统处理其它事件。
例如：
在窗口中放一个textbox，然后写程序，循环从1到10万，然后循环体里面就是把这个数写到textbox里面，如果没有DoEvents，程序运行的时候就是死机一样，然后直到最后窗口显示10万，中间数字什么也看不见。如果在每次写了textbox以后，都来一下DoEvents，窗口就会重画，运行的时候就能看见textbox里面的数一个一个的长上去。
Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
扩展资料：
vb语言特色：
1、事件驱动的编程机制：
面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。而Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。
2、结构化的程序设计语言：
Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。
3、强大的数据库功能：
Visual Basic 6.0利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。
4、ActiveX技术：
ActiveX发展了原有的OLE技术，使开发人员摆脱了特定语言的束缚，方便地使用其他应用程序提供的功能，使Visual Basic 6.0能够开发集声音、图像、动画、字处理、电子表格、Web等对象于一体的应用程序。
5、网络功能：
Visual Basic 6.0提供的DHTML（动态HTML）设计工具可以使开发者动态地创建和编辑Web页面，使用户能开发出多功能的网络应用软件。
参考资料来源：百度百科-VB
Public Sub Delay(Second As Bouble) Dim tempTime As DateTime = DateTime.Now While (tempTime.AddSeconds(second).CompareTo(DateTime.Now) > 0) Application.DoEvents() End WhileEnd Sub放在模块里，使用时 Delay(1) 即可。
Or
My.Application.DoEvents()
处理目前在讯息伫列中的所有 Windows 讯息。
' Usage My.Application.DoEvents()
' Declaration Public Sub DoEvents()
备注
My.Application.DoEvents 方法可以让您的应用程式在执行程式码的同时，也能够处理可能所引发的其他事件。My.Application.DoEvents 方法与 DoEvents 方法具有相同的行为。
当您执行 Windows Form 应用程式时会建立新表单，表示会等待处理事件。每一次表单处理事件时 (例如，按钮点选)，便会处理与该事件相关联的所有程式码。所有其他事件都会在伫列中等待。当您的程式码在处理事件时，应用程式不会做出回应。例如，如果将其他视窗拖曳至顶端，不会重新绘制视窗。
如果您在程式码中呼叫 My.Application.DoEvents，应用程式就可以处理其他事件。例如，如果程式码将资料加入至回圈 (Loop) 中的 ListBox，且会在回圈的每个步骤之后呼叫 My.Application.DoEvents，则将其他视窗拖曳至该视窗上方时，便会重新绘制表单。如果从程式码中移除 My.Application.DoEvents，则必须等到按钮的点选事件处理常式完成执行之后，才会重新绘制表单。
您通常会在回圈中使用此方法处理讯息。
注意事项：
My.Application.DoEvents 方法处理事件的方式和表单的方式不太一样。使用多执行绪处理，让表单直接处理事件。如需详细资讯，请参阅 Visual Basic 中的多执行绪。
警告：
如果处理使用者介面 (UI) 事件的方法呼叫 My.Application.DoEvents 方法，则在它完成之前可能会重新输入方法。发生这个状况的原因是 My.Application.DoEvents 方法会处理 Windows 讯息，而 Windows 讯息会引发事件。
你用的是精简版吧。
提示未声明你可以这样写：VBA。doevents
他是自动转让的。比如在一个很长的循环中（时间很长）加入，就不会出现程序没响应的情况
但同时你也关不掉窗口，要关闭还要设置一个控制变量。
System.Windows.Forms.Application.DoEvents()
application.doevents()
赤骅乐知： 回答了,别重复提问了 dim i%,jx# i=1 jx=1 do while i<=10 jx=jx*i i=i+1 loop print jx
阳东县17846137058： VB.NET 怎样编写使用Do While 循环输出1 - 10的阶乘,我是新手请加上文字说明,呵呵,谢谢各位了! - ？
赤骅乐知： 首先在窗体上画两个控件:TextBox1和Button1 TextBox1用来输入需要计算那个数的阶乘 双击Button1进入输入代码,代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try...
阳东县17846137058： vb.net DOEVENT怎么用 - ？
赤骅乐知： Public Sub Delay(Second As Bouble) Dim tempTime As DateTime = DateTime.Now While (tempTime.AddSeconds(second).CompareTo(DateTime.Now) > 0) Application.DoEvents() End While End Sub放在模块里,使用时 Delay(1) 即可.
阳东县17846137058： vb.net 中如何使用Doevents? - ？
赤骅乐知： System.Windows.Forms.Application.DoEvents() Or My.Application.DoEvents() 处理目前在讯息伫列中的所有 Windows 讯息.' Usage My.Application.DoEvents()' Declaration Public Sub DoEvents()备注 My.Application.DoEvents 方法可...
阳东县17846137058： Vb.net中有多种do循环语句,貌似都是一样的,为什么弄那么多? - ？
赤骅乐知： do while ... loop 不是就退出 do until ... loop 是就退出 功能同上,只不过是先循环再判断!do ... loop while do ... loop until
阳东县17846137058： VB.net module中如何使用计时器? - ？
赤骅乐知： 控制台调用Timer和窗体是类似的.首先在项目引用里面加入System.Windows.Forms程序集,然后在代码顶部引入命名空间:Imports System.Windows.Forms在控制台的Module中声明一个计时器...
阳东县17846137058： VB.net使用WebBrowser控件显示网页 - ？
赤骅乐知： 当然不行,那个是整个网页的 要这样 web1=webbrowser1 For i = 0 To Web1.Document.All.Count - 1'要具体判断是哪个控件还要看这两个'Web1.Document.All(i).TagName'Web1.Document.All(i).Name Text1.Text=Web1.Document.All(i).InnerText Next i
阳东县17846137058： VB.NET是如何使用ADO让存储过程返回数据表中的值呢?求解! - ？
赤骅乐知： 定义了连接和记录集后: Dim res as new adodb.recordset res.open ＂select * from Char1 where id=12＂,conn,3,3 do while res.eof=falsetext1.text=res.fields(＂fName＂)res.movenext loop res.close
阳东县17846137058： vb.net中 preserve - ？
赤骅乐知： Redim 是重新定义数组 加上preserve 是保留原数组中的数据 不加则不保留
阳东县17846137058： VB.NET中怎么 调试输出 返回值啊?? - ？
赤骅乐知： 例如你用msgbox,你在输入这个函数的参数的时候会有个提示框弹出来,里面有每个参数的类型已经这个函数的返回值类型,你可以记下来返回值的类型msgbox的是Microsoft.VisualBasic.Msg...
