易截截图软件、单文件、免安装、纯绿色、仅160KB

关于VB运行时的CPU控制权问题 - VB / 基础类

小弟写一程序,用于仿真模拟机器运行的.

在运行时,把主窗体最小化,然后,在任务栏点击主窗体,想让其显示界面出来,

但不管怎么点也点不出来,没反应的,点源代码的窗体也是一样,点不代码窗体.

但其代码仍在运行的,直到所有的加工计算完毕后,上述功能才能恢复.

查看了一下任务管理器,CPU占用率是很高的.还有,那个主窗体的架构好像也不

太理想[是老总写的框架],主窗体是一个单窗体,其它窗体是通过调用SetParent函数

成为主窗体的子窗体.

请问各位兄台,有何高招可以解决此问题?

请你看如下的循环语句:
for i=1 to 100000
i=i+1
next 
这段代码在执行过程中, 就会像死掉一样, 直到忙完, 才会有时间处理其它的消息
但如果你加进一句,如下,在循环这过程, 就会有时间处理其它消息了
for i=1 to 100000
  i=i+1
  doevents
next 


也就是说, 修改你的程序代码, 在所有的循环, 特别是费时较长的循环语句中间都加上命令doevents


早就有DOEVENTS,不管用.已用另外的方法解决了.


相关问答:

vb超简单form.show的问题 - VB / 非技术类

为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧

我也快疯了。
楼主知道怎么发贴么?

引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / 非技术类

怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......

VB调用EXCEL绘图,如何修改X轴坐标 - VB / 基础类

小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号