7,789
社区成员
发帖
与我相关
我的任务
分享
Private WithEvents objTimer As Timer
public function add(byval objForm as Form)
...
set objTimer = objForm.Controls.Add("VB.Timer", "objTimer")
objTimer.Interval = 1000
objTimer.Enabled = True
...
end function
Private Sub objTimer_Timer()
程序一直不执行这里
end sub
Dim objUser as new clsUser
call objUser.add(frmUser)
Dim aaa As New Class1
Private Sub Form_Load()
Call aaa.add(Form1)
End Sub
Private WithEvents objTimer As Timer
Public Function add(ByVal objForm As Form)
Set objTimer = objForm.Controls.add("VB.Timer", "objTimer")
objTimer.Interval = 1000
objTimer.Enabled = True
End Function
Private Sub objTimer_Timer()
Stop
End Sub