vb timer问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:19:07
我在窗体上使用Microsoft HTML Object Library控件
创建一框 在控件URL属性里填写了我网站地址
怎么用Timer 让程序运行后20分钟 才让控件生效打开我设置号的网址呢？？

'设置Timer的InterVal属性为1000，即一秒种执行一次，然后设置Enable属性为False

'在单元的公共部分声明
Public tStart as Date

'在程序开始的时候（FormCreate或按钮事件的时候）用
tStart = Now'记录开始时间
Timer1.Enable = True'开始执行时间检查

'设置Timer的事件如下
Private Sub Timer1_Timer()
If DateDiff("m", tStart, Now) >= 20 Then
Timer1.Enabled = False
'执行你的操作
...
End If
End Sub

load时Microsoft HTML Object Library不可用enable/visible=false，20分钟后可用enable/visible=true