使用线程: Dim tDelay As TimeSpan = New TimeSpan(10) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim trd As Threading.Thread trd = New Threading.Thread(AddressOf DoSomething) End Sub Private Sub DoSomething() While (True) Thread.Sleep(tDelay) TextBox1.Text = DateTime.Now.TimeOfDay.ToString() End While End Sub
设置interval=1000;//1秒private void timer1_Tick(object sender, System.EventArgs e)
{
label1.Text=DateTime.Now.Hour.ToString()+":"+DateTime.Now.Minute.ToString()+":"+DateTime.Now.Second.ToString();
}
tt.Interval = 1000;
tt.Enabled = true;
tt.Tick += new System.EventHandler(tt_Tick);
private void tt_Tick(object sender, System.EventArgs e)
{
//
}
Dim tDelay As TimeSpan = New TimeSpan(10) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim trd As Threading.Thread
trd = New Threading.Thread(AddressOf DoSomething)
End Sub Private Sub DoSomething()
While (True)
Thread.Sleep(tDelay)
TextBox1.Text = DateTime.Now.TimeOfDay.ToString()
End While
End Sub