Question

关于VB中的Timer控件不能生效的问题

下面这个程序是通过Timer控件来控制一个按钮的可用性，定义了一个全局变量w，两个按钮，其中一个按钮按下时w = 1，另一个按下时w = 0，然后界面中有一个名为Paste的按钮，想通过w的不同值来定义这个按钮的可用性，但是不论怎么按两个按钮，这个Paste按钮始终变不了灰色，也就是说Timer控件根本没起作用，由于是刚接触这个东西，还不太懂，Timer的源代码如下，请问到底该怎么做才能让这个生效

Private Sub Timer1_Timer()
If w = 1 Then
Paste.Enabled = False
Else
Paste.Enabled = True
End If
End Sub

Answer 1

在form_load函数中，加上下面两句：
Timer1.Enabled = True
Timer1.Interval = 10
10代表每10毫秒检测一次，可以自定义。

追问

form_load函数是什么，应该放在哪里？

追答

你的程序没有Private Sub Form_Load() ...... end sub 吗？找一找，放在这个函数里面任何一个位置，只要能执行到。

Answer 2

'窗体全局变量
Dim w as integer
Private Sub Paste1_Click()‘按钮1
w=1
End Sub

Private Sub Paste2_Click()'按钮2
w=0
End Sub

Private Sub Timer1_Timer()
If w = 1 Then
Paste1.Enabled = False
Else
Paste2.Enabled = True
End If
End Sub

Private Sub Form_Load()
Timer1.InterVal=1000
End Sub