高考问答员工股份制:vb 小问题
来源：百度文库 编辑：高考问答 时间：2024/05/05 17:51:05
Private Sub Command9_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
f = Text6.Text
g = Text7.Text
h = Text8.Text
Shell "" & a & ""
Shell "" & b & ""
Shell "" & c & ""
Shell "" & d & ""
Shell "" & e & ""
Shell "" & f & ""
Shell "" & g & ""
Shell "" & h & ""
End Sub
我要怎么才能让他们每阁一段时间才运行1一
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
f = Text6.Text
g = Text7.Text
h = Text8.Text
Shell "" & a & ""
Shell "" & b & ""
Shell "" & c & ""
Shell "" & d & ""
Shell "" & e & ""
Shell "" & f & ""
Shell "" & g & ""
Shell "" & h & ""
End Sub
我要怎么才能让他们每阁一段时间才运行1一
用API延时函数
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'声明API函数
private sub ......'需要延时的SUB
.....
Sleep 3000'调用延时，3000毫秒
end sub
sleep(1)
建立一个时钟控件吧！timer
属性：interval=1000