以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  反腐  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74293)

--  作者:hbhb
--  发布时间:2015/9/8 0:08:00
--  反腐
大师:一个窗口不能出现对话框,一有对话框就显示后死机。鼠标始终停留在确定上,按也无用,一直显示对话框。进程一直在运行??????????????????????
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2015/9/8 0:11:00
--  

此窗口有什么特殊的地方?有计时器的代码?置顶了?模式窗口?

 

模拟一个例子上来。


--  作者:hbhb
--  发布时间:2015/9/8 0:23:00
--  
计时器有代码,置顶什么意思,并列窗口但控件较多,各类控件120多个。
计时器代码如下
e.Form.TimerEnabled = False  \'关闭记时器


\'------任务控件控制------
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar2")
For Each page As WinForm.TopicPage In tpb.Pages
    If Vars("topicKz") Is Nothing OrElse page.Name <> Vars("topicKz") Then
        page.Collapsed = True
    End If
Next
\'------------鼠标形状变化----------
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.AppStarting




--  作者:大红袍
--  发布时间:2015/9/8 9:19:00
--  
代码没问题,模拟做个例子发上来看看。
--  作者:hbhb
--  发布时间:2015/9/8 10:06:00
--  
一直找到凌晨3点,才找到大老虎,恨不得粉碎它!。原来是计划里条件加载表的一句代码有问题。怪事前面那么长一段时间运行都没有问题,难道有鬼动手脚?计算机本身是否会自动修改代码?
--  作者:大红袍
--  发布时间:2015/9/8 10:34:00
--  

foxtable不会无缘无故修改你的代码。

 

运行正常,是因为你代码写得不够严谨,导致数据出现特殊情况后,你代码出错


--  作者:hbhb
--  发布时间:2015/9/8 11:10:00
--  
那如何才能代码严谨,有无警句语录?
--  作者:大红袍
--  发布时间:2015/9/8 11:24:00
--  
以下是引用hbhb在2015/9/8 11:10:00的发言:
那如何才能代码严谨,有无警句语录?

 

出问题,根据现象估计出错地方。你说不断的闪,不能关闭,就肯定是计时器或者计划任务的问题,先注释代码,然后查出是哪个,再逐步缩小范围。


--  作者:hbhb
--  发布时间:2015/9/8 11:34:00
--  
谢谢!
请问单个事件能否暂停执行与开启?如某个控件的值变化后执行,我希望按其他按钮时不执行该事件。到时在开启执行?

--  作者:大红袍
--  发布时间:2015/9/8 11:37:00
--  
在事件里加入对值的判读