下面的就是我写的内容，但是我运行只能执行一次。我想任意数值减到0求解答

Private Sub Form_Load()
Timer1.Interval = 2000
Timer1.Enabled = False
End Sub
Private Sub text1_keydown(keycode As Integer, shift As Integer)
If keycode = 13 Then Timer1.Enabled = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0
'KeyAscii跟Del左右上下等无关，跟中文和特殊符号也有关。
End Sub
Private Sub Timer1_Timer()
If Val(Text1.Text) = 0 Then
Timer1.Enabled = False
Else
Text2.Text = Val(Text1.Text) - 1
End If
End Sub



[ 本帖最后由 pkby007 于 2011-7-5 22:01 编辑 ]

Text2.Text = Val(Text1.Text) - 1
不是只运行了一次，而是一直都是读的Text1.Text的数据，而Text1.Text的数据一直都没变，所以Text2.Text的数据也就一直没变

Option Explicit

Private Sub Form_Load()
    Timer1.Interval = 2000
    Timer1.Enabled = False
End Sub

Private Sub text1_keydown(keycode As Integer, shift As Integer)
    If keycode = 13 Then Timer1.Enabled = True: Text2.Text = Text1.Text
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0
    'KeyAscii跟Del左右上下等无关，跟中文和特殊符号也有关。
End Sub

Private Sub Timer1_Timer()
    If Val(Text2.Text) = 0 Then
        Timer1.Enabled = False
    Else
        Text2.Text = Val(Text2.Text) - 1
    End If
End Sub

wube你人太好了哦，让他自己去想该怎么改啊

帮助别人也是提高自己啊。只是许多新朋友提问的时候描述不清问题。有的纯粹就是要完整代码。还是有区别的。

其实我这样是害了他~没让他有机会自己想办法解决~不过表面上提问者会觉得这样比较好~
但是对于我个人来说~也因此有机会尝试解决我没碰过的问题~进而提高自己~

3楼那代码不错 可以实现的
C9外挂http://www.
C9外挂http://www.
QQ仙境外挂http://www.
QQ仙境外挂http://www.
倩女幽魂外挂http://www.
御龙在天外挂http://www.mhzx.name
诺亚传说外挂http://www.
凡人修仙传外挂http://www.