请问如何让这段VB代码5秒循环一次
请问如何让这段代码不成立时5秒后重复检测是否成立，一直到成立为止。
Private Sub Form_Load()
If cConnect.IsConnected Then
Shell "C:\Program Files\wxyrun.exe", vbNormalFocus
End If
End Sub
答对两个分都给
http://zhidao.baidu.com/question/73067162.html
====================
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 5000
Left = 1080
Top = 720
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Visible = False
End Sub
Private Sub Timer1_Timer()
If cConnect.IsConnected Then
Shell "C:\Program Files\wxyrun.exe", vbNormalFocus
Timer1.Enabled=False
End If
End Sub
====================
很简单呀，加一个Timer1.Enabled=False就行了
If cConnect.IsConnected Then
Shell "C:\Program Files\wxyrun.exe", vbNormalFocus
Timer1.Enabled=False
End If
顺便问一句，你是网管吗？
请问如何让这段VB代码5秒循环一次
StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1 Interval = 5000 Left = 1080 Top = 720 End End Attribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load...
如何让VB 每5秒等待一次
'添加窗体Form1,按钮Command1,然后添加如下代码:PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)PrivateSubCommand1_Click()Do DoEvents Sleep5000'等待5秒 Loop EndSub
我想在一个vb程序里设置一个5秒的间隔时间,应该怎么设置?
End Sub 'Timer1.Enabled = True'此语句放在你的步进电机指令中开启timer1 Private Sub Timer1_Timer()a = a + 1 If a = 5 Then Timer1.Enabled = False Command2.Enabled = True '5s后按钮2开启（把你的测量仪器事件放在按钮2中）Command2.Value = True ‘5S后按钮2自动点击一次 Else En...
VB如何隔一段时间后再运行接下来的代码
timer1.interval=5000'单位毫秒，意思是每五秒执行一次 timer1.enabled=ture'让计时器timer开始计时 Close #1'五秒钟后就会执行这个命令了 timer1.enabled=false'让计时器停止工作，要不程序还会在五秒钟后执行下去。
请在VB中如何做到让 一个窗口显示5秒钟自动跳到另一个窗口
用Timer控件，将Interval的 值设定成5000 （1000为1秒），添加一个窗体，代码如下：Form2.Show Unload Me
我想用VB做个游戏辅助,分别5秒按一次F1 F2 ,谁可以教教我,谢谢了_百度...
呵呵 你这可以做挂了 在window平台下 F1是帮助 F2是重命名 你这样就是在反复的操作中 是在告诉windows 要帮助和重名啊 会出现错的 你必须得捆绑到游戏里 让F1 F12使用你的技能啊
【vb.net】怎么点击一个按钮执行一个代码,5秒后执行另一个代码
button里执行 sleep 5000 '等5秒 call xxxx '另外的过程代码 即可。
求让“空格键”每隔5秒钟自动按下的vb代码
添加一时钟控件，将interval设置为5000 Private Sub Timer1_Timer()Sendkeys" ",True EndSub 好了！注意""里面是空格符！
VB让程序每隔一段时间改触发一次事件
Private Sub Form_Load()Randomize '随机种子有了它才能随机 Form1.AutoRedraw = True '能print出来 Timer1.Enabled = True '控件响应 Timer1.Interval = 5000 '每隔5秒更新 End Sub Private Sub Timer1_Timer()Dim a As Integer a = Rnd() * 10 '随机0-9 Print a End Sub ...
用vb做一段程序,点一个“执行按键”开始运行,每隔5秒执行一次,点另一个...
TimerEnd SubPrivate Sub Command2_Click() '结束按键Timer1.Enabled = FalseMe.ClsPrint "程序运行结束"End SubPrivate Sub Timer1_Timer()Static x As Longx = x + 1Me.ClsPrint "程序正在运行……" & x'要执行的程序放在这里End Sub上述代码涉及三个控件：Command1、Command2、Timer1 ...
