一个程序假死现象

2011-04-17 01:08:22 215 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

UE5 Mass交通规则设计指南：从Stop Sign到智能红绿灯的进阶配置本文详细解析了UE5 Mass框架下的交通规则设计，从基础Stop Sign到智能红绿灯的进阶配置。通过UMassTrafficIntersectionSpawnDataGenerator等核心组件，实现动态响应、自然流畅的交通行为系统，提升虚拟城市的真实感与游戏性。阅读详情

http://access911.net/csdn/FileDescription.asp?mdb=2011-4-17&id=10
ttt类是由表单ttt另存过来的，在ttt表单中使用了工具条控件。
然后在表单2中使用这个类，结果可以显示，但关闭表单的时候就假死，CPU 使用率100%。
但如果通过ttt表单中没有工具条控件，另存为类的时候则不存在问题。

...全文

AnyLogic 建立谢林模型 AnyLogic 建立谢林模型说明创建一个新模型创建代理人群体和离散空间双击 people 前的图标，编辑 Person设置 Agent 的形状（Person）在模型中启用离散时间，实现代理行为点击 Person，进行编辑点击运行按钮效果图说明我们将把 Schelling 的模型实现为一个基于离散空间/离散时间的代理模型。空间代表一个城市，每个单元格代表一个房子。 agent 是人，是两种颜色：黄色和红色。最初，人是随机分布在城市中的。人比房子少，所以总是有一个人可能会移动。这个模型中的 agent 阅读详情

taohua300

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

都市夜猫 2011-04-20

打赏
举报

[Quote=引用 15 楼 taohua300 的回复:]
奇怪，我把QueryUnload的代码写到thisform.release之前就不行，调用thisform.QueryUnload就可以
[/Quote]
不可能吧，注意下是否犯了低级错误
复制代码的话，应该将 This 改成了 Thisform

taohua300 2011-04-20

打赏
举报

奇怪，我把QueryUnload的代码写到thisform.release之前就不行，调用thisform.QueryUnload就可以

都市夜猫 2011-04-19

打赏
举报

加上手工释放对象的代码应该可以吧
cmd.Click 中这样：

Thisform.QueryUnload()
Thisform.Release()

taohua300 2011-04-19

打赏
举报

又发现一个问题，在表单2中加一个按钮，写上 rele thisform
点击这个按钮的时候不管通过什么方式运行这个表单，都有假死现象。及时在rele thisform之前加上释放对象的代码也不行。

taohua300 2011-04-18

打赏
举报

我的是sp1 3504 汉化版

不能退出的情况出现在运行表单2之后，然后关闭vfp出现提示

都市夜猫 2011-04-18

打赏
举报

试了下，没有出现不能退出 vfp 的情况
我的 vfp9 版本是 sp2 5815

taohua300 2011-04-18

打赏
举报

[Quote=引用 7 楼 apple_8180 的回复:]
类中用到了 Read Events ？
[/Quote]

没有，我只加了个工具条控件，设置了表单和工具条的几个属性

十豆三 2011-04-18

打赏
举报

类中用到了 Read Events ？

taohua300 2011-04-18

打赏
举报

加上2楼代码的时候关闭表单的时候可以了，但关闭表单后再关闭vfp的时候提示不能退出vfp

upload事件加上clear events也不行
必要要加上
clear events
quit
才行

taohua300 2011-04-18

打赏
举报

本来是想做一个类似QQ聊天窗口的东西，上面是记录，下面用来输入内容，这两个东西都用RichTextBox控件，中间做一个工具条用来设置字体大小，颜色等，不过这个工具条不太好弄，如果用button，不太好看，突然想到以前看到过版主的博客里有这么一个例子，模仿了一下

WWWWA 2011-04-18

打赏
举报

不错，学习了，按1楼代码，问题解决没有

都市夜猫 2011-04-18

打赏
举报

呵呵，难怪看上去有些眼熟呢
不过这个示例表现出的问题是嵌入 ole 控件后发生的，与可滚动容器无关
试着注释掉嵌入表单的语句，排除嵌入因素后，问题依然存在：
Thisform.AddProperty('oScrollCnt', NEWOBJECT('ttt', LocFile('ttt.vcx')))
Thisform.oScrollCnt.oForm = Thisform
* Show Window (Thisform.oScrollCnt.name) in window (thisform.name)

taohua300 2011-04-18

打赏
举报

嘿嘿，版主，这就是从你博客里找到的例子，本来想请您指点，可您是神龙见首不见尾啊。

taohua300 2011-04-18

打赏
举报

[Quote=引用 11 楼 dkfdtf 的回复:]
引用 10 楼 taohua300 的回复:
不能退出的情况出现在运行表单2之后，然后关闭vfp出现提示

找到一点蛛丝马迹
不打开表单2.scx，直接在命令窗口或项目中运行表单2，不出现不能退出的情况
情况出现在 - IDE 环境的表单设计器中打开了表单2.scx 时运行它
可能是类库无法自动清除，造成不能退出 vfp，这样验证：
关闭表单2后，在命令窗口中 modify ……
[/Quote]
关闭表单2后，在命令窗口中modify class ttt，打开ttt类后再关闭vfp没有提示，如果打开ttt的时候点了取消，还是不能退出

在prg 使用
do form (locfile('表单2.scx'))
clear class ttt
加不加clear class ttt 都能顺利退出vfp

窗口命令中
modify form 表单2
do form 表单2
也能顺利退出

按原来的情况，在表单的queryunload事件或unload事件中使用clear class 也不能退出

好像只有在打开表单再点运行按钮的时候才出现这种情况

都市夜猫 2011-04-18

打赏
举报

[Quote=引用 10 楼 taohua300 的回复:]
不能退出的情况出现在运行表单2之后，然后关闭vfp出现提示
[/Quote]

找到一点蛛丝马迹
不打开表单2.scx，直接在命令窗口或项目中运行表单2，不出现不能退出的情况
情况出现在 - IDE 环境的表单设计器中打开了表单2.scx 时运行它
可能是类库无法自动清除，造成不能退出 vfp，这样验证：
关闭表单2后，在命令窗口中 modify class ttt，然后看看是否可退出 vfp

加一个 prg，写上:
do form (locfile('表单2.scx'))
clear class ttt
运行这个 prg 试试

都市夜猫 2011-04-17

打赏
举报

嗯，恭喜楼主找到一个 bug
看上去 vfp 在释放这类非常规对象的次序上有些问题
写代码调整一下释放对象的次序吧
例如，在表单2 的 QueryUnload 事件中自己主动释放对象，加入下列代码:

If Pemstatus(This, 'oScrollCnt', 5)

    This.oScrollCnt.oForm = Null

    This.oScrollCnt = Null

Endif

一个程序假死现象

相关推荐