问题不难,分却多多,快来抢! 加一个Timer在loop的同时,启动他并在loop里设置一个flag,时间到了,exit 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ... (连接)Call nPauseTime(1) ' 延时 1 秒....(判断)'------------------------------------------------------'' 延时程序Private Sub PauseTime(nPauseSecond As Integer) Dim Start Start = Timer Do While Timer < Start + nPauseSecond DoEvents LoopEnd Sub 谁能用例子演示下VB实现多态? 如何解决改变分辨率后FORM变形的问题?? 请问了: VB 正则表达式求助 计算器的问题 谁有用VFW开发的视频应用程序呀,最好有源代码! 如何在98下实现修改windows系统自定义纸张大小? 如何使用vb向网站的php程序提交信息 如何解开MHT文件中的图片,还有网页? 我想这样一个过程:知道过程出错 高分寻找Microsoft Windows CE Toolkit for Visual Basic 6.0 请问,如何判断一个表是否为空呢?啊0点了!!我还没有试出来急呢!!
'------------------------------------------------------
'
' 延时程序
Private Sub PauseTime(nPauseSecond As Integer)
Dim Start
Start = Timer
Do While Timer < Start + nPauseSecond
DoEvents
Loop
End Sub