荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: scanf (carefully), 信区: SoftDev
标 题: [合集]VB的两个小问题
发信站: 荔园晨风BBS站 (Fri May 7 21:39:28 2004), 站内信件
georgehill (佐治·希尔【来自大富翁的小美】) 于Fri Apr 14 08:59:49 2000提到:
怎样让程序在执行了一条语句后等待一段时间再执行下一条语句?本以为有
wait类似的语句,但没找到。
sendkeys语句中要输入"<-"应该怎样输入,按照MSDN和书上的都说是{LEFT},
但试了一下不行。
Jobs (温少) 于Fri Apr 14 10:18:46 2000提到:
VB一般是不检查大小写的,但是在sendkeys的语句中,你必须遵循大小写,
你试试看,如果不行再说!
Pazu (质变) 于Fri Apr 14 10:33:34 2000提到:
没有就自己编啦.
大概是
ASD=time(); //什么也好啦,总之是取当前时间.
while(1)
{
BSD=time();
if(bsd-asd>="你要的时间") break;
}
当然,这只是算法啦,有BUG的,你找出来看看.
再不是就
for(i=0;i<=65535;i++)
for(j=0;j<=65536;j++)
a=a;
总之延时很简单啦.定时有点意思.
Jobs (温少) 于Fri Apr 14 11:58:12 2000提到:
有没搞错,这样延迟还行,这样占系统资源很厉害的,......
如果在VB中,需要延时,的时候,应该使用doevents语句,具体用法看MSDN。
在VC中就不知道了,不懂........
georgehill (佐治·希尔【来自大富翁的小美】) 于Fri Apr 14 12:00:37 2000提到:
第二种方法太耗费CPU。
georgehill (佐治·希尔【来自大富翁的小美】) 于Fri Apr 14 12:22:13 2000提到:
我是遵循的了,{ENTER}这些都可以,就是不清楚为什么{LEFT}不可以。
Pazu (质变) 于Fri Apr 14 12:35:31 2000提到:
都说有BUG啦,想CPU响应高一点就在循环里嵌入消息检测啦.而且最大的BUG
是在bsd-asd这句上.想想到了23:59:59.99到0:0:0.0的情况啦.资源占用问题我不会
解决,TANG来说说.当然,要自己写的程序啦,不然用函数的话不知道原理.
Jobs (温少) 于Fri Apr 14 18:57:24 2000提到:
如果在VB中,需要延时的办法是有很多的,用Timer control是其中的一种方法,
但是Timer的Interval属性最大只能是65535,也就是说,只能延时1分钟,但是
通过一些附加的办法仍然可以延时很久,并且占用资源很少。
tang (独孤九剑〖玄铁重剑〗) 于Fri Apr 14 21:04:18 2000提到:
Windows的API:Sleep(interval)不就行了?
VB应该也有Sleep这样的语句吧?我在家没装MSDN,装了的人查查就知道了!
要不占用系统资源就要达到所谓让权(CPU使用权)等待的要求,这在Windows
只能靠操作系统支持,所以要用API!
Jobs (温少) 于Fri Apr 14 21:46:44 2000提到:
VB中没有Sleep语句,不过有Doevents语句,相应的功能。
Pazu (质变) 于Sun Apr 16 21:17:59 2000提到:
各位,我要原理~~~~~~~~知其然不知其所以然可不好.
Minatl ([3;38H[]到本站一游。) 于Sun Apr 16 21:53:52 2000提到:
把线程挂起,等等再叫醒他
Pazu (质变) 于Wed Apr 19 17:56:40 2000提到:
昨天看到一种最低级的方法,调用82XX系统时钟来响应.不过一点都不现实.
难得要命,我看模式字和控制字都看傻了.
Mill (i myself) 于Thu Apr 20 00:24:22 2000提到:
it's 8253 and 8254, use ASM to program,
who use VB to do such thing? hehe
:P
peng (杨过) 于Sun May 7 20:41:07 2000提到:
自己写函数:
Public Function Delay(Min%,Secs%,Optional ByRef StopFlag) as Long
dim EndOfDelay
EndOfDelay=DateAdd("n",Mins,Now)
EndOfDelay=DateAdd("s",Secs,EndOfDalay)
Delay=0
Do While (Now<EndOfDelay)
DoEvents
if not IsMissing(StopFlag) then
if StopFlag then
Delay=1
StopFlag=False
exit do
end if
end if
loop
end Function
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店