www.ctrt.net > vB 重复执行一条语句怎么编写

vB 重复执行一条语句怎么编写

一般有三种办法: 1、使用循环 2、使用定时器 3、使用多线程

Dim Y As Boolean Private Sub Form_Load() Command1.Caption = "开始过程" End Sub Private Sub Text1_Change() If Text1 = "ok" And Y = True Then '这里修改为你的过程 Text1 = "你输入了Ok哦!" End If End Sub Private Sub Command1_Click(...

问题描述不清楚

间隔五分钟运行:Timer1.Interval = 60000即1分钟,每分钟判断一次 Private Sub Timer1_Timer() Static i As Integer i = i + 1 If i Mod 5 > 0 Then Exit Sub Command1.Value = True i = 0 End Sub

Sub DateStamp() r = [b65536].End(3).Row [d3].Resize(r - 2) = Now End Sub

Private Sub Form_Load() Timer1.Interval = 3000 Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() Static n As Integer Load Form2 Form2.Show n = n + 1 If n > 10 Then Timer1.Enabled = False End If End Sub

你想干啥啊,循环干什么事

间隔五分钟运行:Timer1.Interval = 60000即1分钟,每分钟判断一次 Private Sub Timer1_Timer() Static i As Integer i = i + 1 If i Mod 5 > 0 Then Exit Sub Command1.Value = True i = 0 End Sub

首先这个要看的子函数执行的情况了,比如你子函数要8秒才能执行完成,你1秒钟执行一次,到时会有好几个子函数在运行,肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序; 再一个,如果不想影响主程序,你可以再建一个程序,专门用来...

网站地图

All rights reserved Powered by www.ctrt.net

copyright ©right 2010-2021。
www.ctrt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com