vb每秒向一个文本写一个字

来源：百度知道 编辑：UC知道 时间：2024/06/03 13:16:20
主要是找到相当于delphi中的sleep那个语句,VBS里就可以实现,VB里用API里的SLEEP语句好像不行,因为我要做个开玩笑的小程序,就是先调用记事本,然后每一秒在记事本写一行字.比如说
sendkeys "hi"
'停留一秒
sendkeys"you will "
'停留一秒
sendkeys" "
.....
就是要写出停留一秒的那个语句.用过程应该可以实现的,那个高人指点一个.
下楼的怎么不行的,提示"无效外部过程"我是VB6.0的
Sub Delay(Seconds&)
t& = Timer
Delay: DoEvents
If Timer < t + Seconds Then GoTo Delay
End Sub
是这什么意思?
还有Delay 1为什么要加个1,麻烦解释一下.会加分的

Private Sub Command1_Click()
Shell "notepad", 1
Delay 1
SendKeys "hi{enter}"
Delay 1
SendKeys "you will{enter}"
Delay 1
SendKeys ".....{enter}"
End Sub

Sub Delay(Seconds&)
t& = Timer
Delay: DoEvents
If Timer < t + Seconds Then GoTo Delay
End Sub

=======

晕，没试过这个？
我测试通过的，VB6

=======

//Delay 1为什么要加个1

晕哦，delay是自定义过程啊，
Sub Delay(Seconds&)
1是传入的参数senconds啊
延迟一秒嘛
把1换成2就延迟2秒了嘛

Code 1:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sleep 1000

Code 2:

Public Sub Waittimes(delay As Single)
starttime! = Timer
Do Until Timer >= starttime! + delay
Loop
End Sub

用timer控件嘛！
不要找那么多麻烦。

VB里直接用timer控件,你把时间设置成20秒就可