VB的Timer控件interval属性只能是1 to 65,535 ,请问想把间隔时间设的很大 比如1个小时的话,要怎么实现?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Form_Load()Timer1.Interval = 60000Timer1.Tag ="0"End SubPrivate Sub Timer1_Timer()If Timer1.Tag > "60" Then Timer1.Tag = "0" '这里就写你代码Else Timer1.Tag = Trim(Str(Val(Timer1.Tag) + 1))End IfEnd Sub 怎么制作一个自动升级更新程序 如果做一个没有焦点操作过程提示窗口 请问如和得到鼠标所在处的listview的行数和列数啊! 我是菜鸟,请大哥帮帮忙.谢谢 关于数据库的简单问题,才鸟需要帮忙呀!!!!!!!!! 求教关于端口映射和监控问题 哪位帮我改一小段程序。 联合查询"."附近语法错误是什么原因?谁能告诉我!! 谁能提供vb的数据类型与vc数据类型的对照表,用于api的声明! 高手帮忙! 求助--如何在VB中调用Windows自带的计算器 怎样实现鼠标点击哪行,MSFlexGrid哪行便整行变色?
Timer1.Interval = 60000
Timer1.Tag ="0"
End SubPrivate Sub Timer1_Timer()
If Timer1.Tag > "60" Then
Timer1.Tag = "0"
'这里就写你代码
Else
Timer1.Tag = Trim(Str(Val(Timer1.Tag) + 1))
End If
End Sub