Question

VB 怎么停止程序的运行

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Me.Visible = Not Me.Visible
'在这里添加代码,让程序停止,要求不再Timer1_Tick 中添加判定条件,因为中间的代码很长,而且无法判定运行到哪一步了.
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = TextBox1.Text + 1
End Sub
End Class

Answer 1

你这是VB.NET啊，如果想让Timer1停止，Timer1.Enabled = False 不行吗？

Answer 2

Application.exit()