用apicopymemory在用个for循环,写内存
解决方案 »
- 如何获取网上邻居中所有的共享目录路径!
- 怎么关闭IE浏览器进程
- combobox 控件的问题.装了sp5运行正常.不装,有的机子数据不会显示.为什么?谢
- datagrid表格最后一行数据显示不出来
- 问问
- datagrid 控件的标题行如何居中放呢?
- 我將中文附給一個string變量,通過OBDC存到Oracle,再select 回來顯示,但總是顯示亂碼。賜教
- minajo21(大眼睛),不能给源码你也要给个思路呀!总不能什么都不说吧!
- 如何设置让运行中的控件能够用鼠标来调整大小
- 查找一个.rtf的文件里的字符串(不是固定的)然后替换,文件大概有5M大小,用richtextbox控件后很慢,怎么办?
- 用什么软件可以得到应用程序执行的SQL语句现
- 那个有屏蔽服务器端口的源代码哈?给俺一个瞧瞧哈!
变速齿轮是一个神奇的改变游戏速度的程序,她是世界上第一个可以改变Windows9x游戏速度的程序(可以加快也可以减慢游戏速度)。所以如果你觉得你的反应速度够快,不需要降低速度的话,那么就在那些磨蹭的游戏中加快速度吧。程序的使用非常简单,你要做的唯一事情是移动滑杆设定你想要的速度。
http://sd.onlinedown.net/down/gear.zip
用循环当然也是个办法
但是在单线程程序中循环的话,有可能就是一点CPU时间也没有了,加上Doevents可以试一试,或许会有用
Dim i As Long, s As String
i = 1If Dir$("c:\tst", vbDirectory) = "" Then MkDir ("c:\tst")s = "c:\tst\tst" & Trim(Str(i)) & ".dat"
Do While i > 0
Dim f As Long
f = FreeFile If Dir$("f:\tst", vbDirectory) = "" Then MkDir ("f:\tst")
Open "f:\tst\tst_" & Trim(Trim(Str(i)) + Trim(Text2.Text)) & ".dat" For Output As #f
Print #f, "OK"
Close #f
Text1.Text = Str(i)
i = i + 1
'DoEvents
LoopEnd Sub