vb循环命令

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:16:14
Private Sub Form_Load()
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\chan", "C:\WINDOWS\SYSTEM\win.exe"
MsgBox "该电脑内存不足,请增加内存,否则会拒绝某些事项.", vbCritical, "警告"
Dim t As Single
t = Timer
While Timer - t < 600 '(单位秒)
DoEvents
Wend
MsgBox "该电脑内存不足,请增加内存,否则会拒绝某些事项.", vbCritical, "警告"

我的代码是这样的,我想知道怎么循环。就是循环每十分钟就循环次

MsgBox "该电脑内存不足,请增加内存,否则会拒绝某些事项.", vbCritical, "警告"

请在我的源代码上修改。（全部）
可以删除增加。

Private Sub Form_Load()
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\chan", "C:\WINDOWS\SYSTEM\win.exe"
MsgBox "该电脑内存不足,请增加内存,否则会拒绝某些事项.", vbCritical, "警告"
Dim t As Single
do
t = Timer
While Timer - t < 600 '(单位秒)
DoEvents
Wend
MsgBox "该电脑内存不足,请增加内存,否则会拒绝某些事项.", vbCritical, "警告"
loop

这样也行

插入一个计时器控件，在这里设它的名称为Timer1
双击Timer1，输入以下代码：

Private Sub Timer1_Timer()
……‘（省略号处输入你要循环的事件代码）
Timer1.Interval=600000’设定循环时间，单位为毫秒
End Sub