首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

初学者有关问题,待,立即给分

2012-02-16 
菜鸟问题,在线等待,立即给分。窗体中:OptionExplicitPrivateWithEventsTempTimerAsVB.TimerPrivateSubForm_

菜鸟问题,在线等待,立即给分。
窗体中:
Option   Explicit

Private   WithEvents   TempTimer   As   VB.Timer

Private   Sub   Form_Load()
        Set   TempTimer   =   Controls.Add( "VB.Timer ",   "MyTimer ")
        TempTimer.Enabled   =   False
        TempTimer.Interval   =   500
        Call   MySub
End   Sub

Private   Sub   TempTimer_Timer()
        Print   "OK "
End   Sub

模块中:
Option   Explicit

Public   Sub   MySub()
        Form1.TempTimer.Enabled   =   True
End   Sub

执行报错:未找到方法或数据成员
请高手指教,谢。

[解决办法]
窗体中
Public WithEvents TempTimer As VB.Timer
模块中
Public Sub MySub()
Load Form1 '触发 Form_Load 事件载入 TempTimer 控件
Form1.TempTimer.Enabled = True
End Sub

热点排行