vb点虐 的消息泵 vbs弹出消息框的代码

NET中的三种Timer的区别和用法

最近正好做一个WEB中定期执行的程序，而.NET中有3个不同的定时器。所以正好研究研究。这3个定时器分别是：

创新互联专业为企业提供玉环网站建设、玉环做网站、玉环网站设计、玉环网站制作等企业网站建设、网页设计与制作、玉环企业网站模板建站服务，十余年玉环做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

//1.实现按用户定义的时间间隔引发事件的计时器。此计时器最宜用于 Windows 窗体应用程序中，并且必须在窗口中使用。

System.Windows.Forms.Timer

// 2.提供以指定的时间间隔执行方法的机制。无法继承此类。

System.Threading.Timer

//3.在应用程序中生成定期事件。

System.Timers.Timer

这

三个定时器位于不同的命名空间内，上面大概介绍了3个定时器的用途，其中第一个是只能在Windows窗体中使用的控件。在.NET1.1里面，第3个

System.Timers.Timer，也是可以拖拽使用，而.NET2.0开始取消了，只能手动编写代码。而后2个没有限制制。下面通过具体的列子来

看3个Timer的使用和区别，网上谈的很多，但基本都没有代码。

一 System.Windows.Forms.Timer

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

private void Form_Timer_Tick(object sender, EventArgs e)

{

label1.Text = (++num).ToString();

Thread.Sleep(3000);

}

private void button1_Click(object sender, EventArgs e)

{

Form_Timer.Start();

}

private void button2_Click(object sender, EventArgs e)

{

Form_Timer.Stop();

}

}

#endregion

上

面这个是一个很简单的功能，在Form窗体上拖了一个System.Windows.Forms.Timer控件名字为Form_Timer，在属性窗中

把Enable属性设置为Ture，Interval是定时器的间隔时间。双击这个控件就可以看到

Form_Timer_Tick方法。在这个方法中，我们让她不停的加一个数字并显示在窗体上，2个按钮提供了对计时器的控制功能。

执行的时候你去点击其他窗体在回来，你会发现我们的窗体失去响应了。因为我们这里使用Thread.Sleep(3000);让当前线程挂起，而UI失去相应，说明了这里执行时候采用的是单线程。也就是执行定时器的线程就是UI线程。

Timer 用于以用户定义的事件间隔触发事件。Windows 计时器是为单线程环境设计的，其中，UI 线程用于执行处理。它要求用户代码有一个可用的 UI 消息泵，而且总是在同一个线程中操作，或者将调用封送到另一个线程。

在Timer内部定义的了一个Tick事件，我们前面双击这个控件时实际是增加了一行代码

this.Form_Timer.Tick += new System.EventHandler(this.Form_Timer_Tick);

这

个应该明白，不明白的可以看我BLOG中有关委托和事件的文章。然后Windows将这个定时器与调用线程关联(UI线程)。当定时器触发

时，Windows把一个定时器消息插入到线程消息队列中。调用线程执行一个消息泵提取消息，然后发送到回调方法中（这里的

Form_Timer_Tick方法）。而这些都是单线程进行了，所以在执行回调方法时UI会假死。所以使用这个控件不宜执行计算受限或IO受限的代码，

因为这样容易导致界面假死，而应该使用多线程调用的Timer。另外要注意的是这个控件时间精度不高，精度限定为 55

毫秒。我们把Interval设置为20ms，然后在start和stop方法中记录当前时，并计算出运行时间：

从上面图可以看到程序执行了7.8S也就是 7800ms,而间隔时间是20ms，也就是最后显示数字应该是390左右，但只有250，显然是不准确的，不过按MSDN说的55ms的精度，7800ms应该只执行了140多次或更少。不知道这里是不是理解有问题。

二 System.Timers.Timer

接下来就看下另一个Timer，我们用他来改写上面的程序

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

DateTime time1 = new DateTime();

DateTime time2 = new DateTime();

//定义Timer

System.Timers.Timer Timers_Timer = new System.Timers.Timer();

private void button1_Click(object sender, EventArgs e)

{

//手动设置Timer，开始执行

Timers_Timer.Interval = 20;

Timers_Timer.Enabled = true;

Timers_Timer.Elapsed += new System.Timers.ElapsedEventHandler(Timers_Timer_Elapsed);

time1 = DateTime.Now;

}

void Timers_Timer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)

{

label1.Text = Convert.ToString((++num)); //显示到lable

Thread.Sleep(3000);

}

private void button2_Click(object sender, EventArgs e)

{

//停止执行

Timers_Timer.Enabled = false;

time2 = DateTime.Now;

MessageBox.Show(Convert.ToString(time2-time1));

}

}

#endregion

我

们可以看到这个代码和前面使用Form.Timer的基本相同，不同的是我们是手动定义的对象，而不是通过拉控件。他也有Interval

，Enabled 等属性，作用和第一是一样的。不同的是他的事件名为Elapsed

，但是和上面的Tick一样，绑定一个委托的方法。只是这里我们是手动完成的。另外不同之处是Form.Timer我们可以用Stop和Start方法控

制，而这里是通过Enable属性控制。但实际上也可以用Stop和Start方法，内部也是通过他自己的Enable来控制的。

最大的不同就

是上面的代码在调试时会报错，提示你"线程间操作无效:

从不是创建控件“label1”的线程访问它。"但如果你不调试直接运行是OK的，而且运行时你去拖动窗体会发现没有出现假死。从这里我们就可以知道这里

的Timer的创建线程和执行线程不是同一个线程。也就是使用了多线程。Timer的创建线程是UI线程，而执行线程是TheardPool中的线程，所

以不会假死，但调试的时候会报错，因为非控件的创建线程不能操作控件。但你可以直接运行，这里是VS05做了手脚。解决办法很多，用

delegate.BeginInvoke()等等。这里介绍特有的一种方法，设置Timer的SynchronizingObject属

性，Timers_Timer.SynchronizingObject =

label1;这样的话，我们的话，调试运行时就不会报错了，但是设置了这个属性Timer就编程单线程调用了，就基本和第一个完全一样了。

Timer

是为在多线程环境中用于辅助线程而设计的。服务器计时器可以在线程间移动来处理引发的 Elapsed 事件，这样就可以比 Windows

计时器更精确地按时引发事件。Elapsed 事件在 ThreadPool 线程上引发。如果 Elapsed 事件的处理时间比 Interval

长，在另一个 ThreadPool 线程上将会再次引发此事件。因此，事件处理程序应当是可重入的。

另外和前面不同的现象是每次加1后并没有停止3秒在显示。而是继续显示，只是速度稍慢。因为我们设置间隔为20ms，而执行时间为3s，所以会在20ms后在另一个线程中继续执行，而当前线程被挂起而已。关于计时器的精度，取消3s的挂起，发现结果和第一个基本一致。

三 System.Threading.Timer

继续用这个对象改造程序。

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

DateTime time1 = new DateTime();

DateTime time2 = new DateTime();

System.Threading.Timer Thread_Time;

private void button1_Click(object sender, EventArgs e)

{

//启动

Thread_Time = new System.Threading.Timer(Thread_Timer_Method,null,0,20);

time1 = DateTime.Now;

}

void Thread_Timer_Method(object o)

{

label1.Text = Convert.ToString((++num));

System.Threading.Thread.Sleep(3000);

}

private void button2_Click(object sender, EventArgs e)

{

//停止

Thread_Time.Dispose();

time2 = DateTime.Now;

MessageBox.Show(Convert.ToString(time2-time1));

}

}

#endregion

用Threading.Timer时的方法，和前面就不太相同了，所以的参数全部在构造函数中进行了设置，而且可以设置启动时间。而且没有提供start和stop方法来控制计时器。而且是以一种回调方法的方式实现，而不是通过事件来实现的。他们之间还是有区别的。

我

们只有销毁掉对象来停止他。当你运行时，你会发现他和前面的Timers.Timer一样，是多线程的，主要表现在不会假死，调试运行报错。但跟让你奇怪

的是，我们的代码竟然无法让她停止下来。调用了Dispose方法没有用。问题在那？然后有进行了测试，修改了间隔时间为

100，200，500，1000，3000，4000。这几种情况。发现当间隔为500ms以上是基本马上就停止了。而间隔时间相对执行时间越短，继续

执行的时间越长。这应该是在间隔时间小于执行时间时多个线程运行造成的。因为所有的线程不是同时停止的。间隔越短，线程越多，所以执行次数越多。

最后来看下这个对象另外一个特殊的地方。

static void Main()

{

Timer t = new Timer(Test,null,0,1000);

Console.ReadLine();

}

public static void Test(object o)

{

Console.WriteLine("nihao");

GC.Collect();

}

这

段代码会输出什么结果呢？默认情况他只输出一次，就停止了。为什么呢？根据上面说的，当定义对象t,执行代码后，进行了强制垃圾回收，因为t在Main中

没有其他引用，所以被回收掉了。但是如果我们吧编译器的”优化“项取消掉，在看看情况。程序进然一直在输出。为什么执行垃圾回收却没有被回收呢？因为这个

禁用优化选项，t的声明周期被扩展到了方法结束。所以一直执行。

因为编译器默认是优化的，所以我们必须保证Timer对象一直被引用，而避免被

垃圾回收。所以我们可以在编译器打开优化的情况下，在Main函数最后加上t=null保证回收前被引用，但你发现，这样是没用的。因为JIT编译器优化

后会吧t=null直接删除，所以我们用t.Dispose(),就可以达到目的。在我们进行垃圾回收时，CLR发现t还有被引用，还没执行

Dispose所以不会被回收。是以Threading.Timer有时候会出现运行一次就停止或者是销毁了还在运行的情况，而且和编译器优化也有关，所

以使用时要注意。

最后看下MSDN的描述： 只要在使用 Timer，就必须保留对它的引用。对于任何托管对象，如果没有对 Timer

的引用，计时器会被垃圾回收。即使 Timer 仍处在活动状态，也会被回收。当不再需要计时器时，请使用 Dispose

方法释放计时器持有的资源。如果希望在计时器被释放时接收到信号，请使用接受 WaitHandle 的 Dispose(WaitHandle)

方法重载。计时器已被释放后，WaitHandle 便终止。

总结：

System.Threading.Timer

是一个简单的轻量计时器，它使用回调方法并由线程池线程提供服务。不建议将其用于 Windows

窗体，因为其回调不在用户界面线程上进行。System.Windows.Forms.Timer 是用于 Windows

窗体的更佳选择。要获取基于服务器的计时器功能，可以考虑使用 System.Timers.Timer，它可以引发事件并具有其他功能。

在

《CLR Via

C#》中讲多线程时有提到这3个计时器，但作者说System.Timers.Timer是对System.Threading.Timer的报装，不推

荐使用，但是在我的WEB项目中的Application_Start中我还是使用的这个而不是Threading.Timer，因为使用

Threading.Timer时只执行了一次就不在执行了。

对于计时器在B/S结构中的使用就复杂一些，一般我们把计时器放在

Application_OnStart中，这样全局维护一个计时器，可以进行定期备份数据库，定期维护用户等操作，而且方法写作静态的，以免被垃圾回

收。而不建议在一般的aspx页面中使用，因为服务器端的定时器对用户这样意义不大，完全可以使用JS代替。而且这个页面的每个请求都可能引入一个新的定

时器，导致系统崩溃。另外，定时器是ASP.NET进程，IIS有关，所以对用重要的执行任务，还是建议写成服务或独立程序放在服务器上执行好了。

vb点虐 登陆界面中当login验证后进入main窗体时怎样关闭login窗体

您可以调用Me.Hide()方法隐藏Login窗体。

另外，如果您使用新建工程后的那个默认窗体作为Login窗体，那么您只能隐藏这个窗体或修改程序的启动对象。因为VB点虐 默认将创建工程时的那个默认窗体作为程序的主窗体，应用程序的主消息循环就建立在这个窗体上，如果您关闭这个窗体，那么所有的消息泵都会停止，应用程序就会退出。

我比较推荐您将Main窗体设为应用程序的主窗体，这样可以减小资源的占用，当Login完成后就可以释放Login窗体了。

另外，vb点虐 中的me变量相当于C语言中的this指针，它指向当前类。

推荐一个网站，这个网站有很多的教程，而且基本都是附部分代码，可能有一些对您有用的信息。

VB.NET中msgbox()和messagebox.show()功能上是一样的吗？

2个函数的参数不一样 msgbox是vb6的 messagebox.show是vb点虐 的 基本功能都是一样的

vb点虐 可能就多一个文本的排列方式 左右对齐 msgbox 没有

在VB.NET中实现文件的拖放

本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言

对于文本格式的文件 我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢？

思路

我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去（给一个form 或者一个控件） 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢？可以！

在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中

于是我们在程序加载的时候 调用Application AddMessageFilter（Me） 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名

代码

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H   拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

设置拖放的动作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 记录第一个文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

Next

DragFinish（m WParam ToInt ） 拖放完成

显示文件内容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043