这段代码怎样立即让它停止执行？

[iipy]

   '代码如下：

    Dim objtimer As System.Threading.Timer

    Public Sub StartTimer()
        Dim callback As New Threading.TimerCallback(AddressOf Me.TimerMethod)

        objtimer = New System.Threading.Timer(callback, Nothing, TimeSpan.FromSeconds(0), TimeSpan.FromSecond(5))
        objtimer.Dispose()

    End Sub

    Dim i As Integer = 1
    Public Sub TimerMethod(ByVal state As Object)

        Threading.Thread.Sleep(10 * 1000)

        MsgBox(i)

        i = i + 1

    End Sub

试着用dispose和change，但不行，程序必须要执行完本周期的运行，才能停止。

要求通过button的click事件，立即中断StartTimer运行周期，TimerMethod内的所有代码立即停止执行。

[tjficcbw]

    '代码如下：
    Dim pcid As Integer = 0
    Dim objtimer As System.Threading.Timer

    Public Sub StartTimer()
        Dim callback As New Threading.TimerCallback(AddressOf Me.TimerMethod)

        objtimer = New System.Threading.Timer(callback, Nothing, TimeSpan.FromSeconds(0), TimeSpan.FromSecond(5))
        objtimer.Dispose()

    End Sub

    Dim i As Integer = 1
    Public Sub TimerMethod(ByVal state As Object)
        If pcid = 1 Then Exit Sub

        Threading.Thread.Sleep(10 * 1000)

        MsgBox(i)

        i = i + 1

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        pcid = 1
    End Sub

[xray2005]

'代码如下：
Dim pcid As Integer = 0
Dim objtimer As System.Threading.Timer

Public Sub StartTimer()
Dim callback As New Threading.TimerCallback(AddressOf Me.TimerMethod)

objtimer = New System.Threading.Timer(callback, Nothing, TimeSpan.FromSeconds(0), TimeSpan.FromSecond(5))
objtimer.Dispose()

End Sub

Dim i As Integer = 1
Public Sub TimerMethod(ByVal state As Object)
If pcid = 1 Then Exit Sub

Threading.Thread.Sleep(10 * 1000)

MsgBox(i)

i = i + 1

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

pcid = 1
End Sub

[tjficcbw]

楼上的，你是二星级的人物是我们的榜样为什么抄一遍我的代码？

[iipy]

那位二星的朋友抄人家的不好，顶帖可以。。。。

楼上这位朋友，谢谢，只不过你的代码还是不符合要求，可能是我没说清楚啊

细说一下，要求在程序运行期间，随时可以打断这个时间周期，也就是说

在If pcid = 1 Then Exit Sub 和 Threading.Thread.Sleep(5 * 1000)

之间或等待的5秒内，若发生click事件，那么那个周期内的msgbox就不应该弹出。整个程序中断退出。

另：那个objtimer.Dispose()加在那个地方，本身就使得StartTimer只能运行一次啊

[iipy]

也就是在我需要kill这个进程的情况下，随时kill掉。。。

[tjficcbw]

这是关掉word的

       Dim TmpProc As Process
        Dim procs As Process() = Process.GetProcesses()
        For Each TmpProc In procs
            If TmpProc.ProcessName.ToUpper = "WINWORD" Then
                TmpProc.Kill()
            End If
        Next

你的程序关掉自己不知行否，要是不行，就用一个程序关掉另一个程序

[iipy]

有好的解决方法吗？？

[cmy3918]

不太明白你要做什么..说要循环吧..还只执行一次就销毁了...
不过你为什么不用线程呢??
线程有一个Abort方法可以终止线程的..

[lsh2216024]

objtimer.ENABLED=FALSE
不知道这样符合你的要求不

[pingker]

刚才Test 一下，延时效果并不理想。窗体会出现假死等现象。
再者，延时函数一般是不可以立即停止的

[oo渣渣oo]

你必须用1楼的设置停止标记的方法才能停止下来,线程里的定时器好象是无法强行中止的.

[oo渣渣oo]

除非你KILL掉程序进程

[iwome]

顶楼上的

使用线程处理就好了啊。