此文章已過期！！！

請移步：(15條消息) vb.net倒計時器（3.0，版本優(yōu)化，不熟練的配置文件）_大Mod制造者abfun的博客-CSDN博客

上次我寫了一次記事本，毛病百出，想想也不行，那這一次小虞又出花樣了，此靈感來源于班主任組織考試，卻在希沃白板上找不到計時器（其實鬧鐘和時鐘也可以使用）

下來開始安排代碼：

form1

Public Class Form1Dim k As StringDim h As IntegerDim m As IntegerDim s As IntegerPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickForm2.Show()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clickk = 1Timer1.Interval = 1000 '每秒執(zhí)行一次Timer1.Enabled = TrueEnd SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickEndEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickTextBox3.Text = TextBox3.Text - 1End SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChangedDim a, b, c As Stringa = Val(TextBox1.Text)b = Val(TextBox2.Text)c = Val(TextBox3.Text)TextBox1.Text = aTextBox2.Text = bTextBox3.Text = cIf c = -1 ThenTextBox3.Text = 59TextBox2.Text -= 1End IfIf k = 1 Then 'load checkIf a = 0 ThenIf b = 0 ThenIf c = 0 ThenMy.Computer.Audio.Play("C:\Windows\Media\Ring10.wav")Timer1.Enabled = FalseEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Button6_Click(sender As Object, e As EventArgs)End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickTimer1.Enabled = FalseEnd SubPrivate Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChangedDim a, b, c As Stringa = Val(TextBox1.Text)b = Val(TextBox2.Text)TextBox1.Text = aTextBox2.Text = bIf b = -1 ThenTextBox2.Text = 59TextBox1.Text -= 1End IfEnd SubPrivate Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Clickform3.show()End SubEnd Class

form2（設置計時器）

?

Public Class Form2Dim h As StringDim m As StringDim s As StringDim a As StringPrivate Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.ClickEnd SubPrivate Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Clicka = TextBox1.Texta = a + 1TextBox1.Text = (a)End SubPrivate Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Clicka = TextBox2.Texta = a + 1TextBox2.Text = (a)End SubPrivate Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChangedIf TextBox1.Text < 0 ThenTextBox1.Text = 2End IfIf TextBox1.Text > 2 ThenTextBox1.Text = 0End IfEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clicka = TextBox1.Texta = a - 1TextBox1.Text = (a)End SubPrivate Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Clicka = TextBox3.Texta = a + 1TextBox3.Text = (a)End SubPrivate Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Clicka = TextBox4.Texta = a + 1TextBox4.Text = (a)End SubPrivate Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Clicka = TextBox5.Texta = a + 1TextBox5.Text = (a)End SubPrivate Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Clicka = TextBox6.Texta = a + 1TextBox6.Text = (a)End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clicka = TextBox2.Texta = a - 1TextBox2.Text = (a)End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Clicka = TextBox3.Texta = a - 1TextBox3.Text = (a)End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clicka = TextBox4.Texta = a - 1TextBox4.Text = (a)End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Clicka = TextBox5.Texta = a - 1TextBox5.Text = (a)End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Clicka = TextBox6.Texta = a - 1TextBox6.Text = (a)End SubPrivate Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChangedIf TextBox2.Text < 0 ThenTextBox2.Text = 3End IfIf TextBox2.Text > 3 ThenTextBox2.Text = 0End IfEnd SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChangedIf TextBox3.Text < 0 ThenTextBox3.Text = 5End IfIf TextBox3.Text > 5 ThenTextBox3.Text = 0End IfEnd SubPrivate Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChangedIf TextBox4.Text < 0 ThenTextBox4.Text = 9End IfIf TextBox4.Text > 9 ThenTextBox4.Text = 0End IfEnd SubPrivate Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChangedIf TextBox5.Text < 0 ThenTextBox5.Text = 5End IfIf TextBox5.Text > 5 ThenTextBox5.Text = 0End IfEnd SubPrivate Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChangedIf TextBox6.Text < 0 ThenTextBox6.Text = 9End IfIf TextBox6.Text > 9 ThenTextBox6.Text = 0End IfEnd SubPrivate Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0TextBox4.Text = 5TextBox5.Text = 0TextBox6.Text = 0End SubPrivate Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0TextBox4.Text = 0TextBox5.Text = 0TextBox6.Text = 0End SubPrivate Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Clickh = Val(TextBox1.Text & TextBox2.Text)m = Val(TextBox3.Text & TextBox4.Text)s = Val(TextBox5.Text & TextBox6.Text)Form1.TextBox1.Text = hForm1.TextBox2.Text = mForm1.TextBox3.Text = sEnd SubPrivate Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.LoadEnd Sub End Class

?這一次源碼文件就不放了，自己探索八！！（還需要一個timer控件）

花了我2個小時，淦哪，

總結

以上是生活随笔為你收集整理的关于vb.net初学者，倒计时器的开发的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。