呵呵,可能是我的表达不清楚吧,算了,换个问题吧,我给一个按钮写了一个click事件,还要在这个按钮上做一个按下2秒钟后显示一个小窗体的效果,我用了MOUSEDOWN和Timer,可是发现这个按钮上的click同时也激活了Timer,我把我的代码写下来,请教大家Private Sub Command1_Click() Form2.Show End SubPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() Form3.Show End Sub
Form2.Show
End SubPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Form3.Show
End Sub