请教各位VB生成EXE文件后的运行错误问题
本帖最后由 w282529350 于 2013-4-21 09:36 编辑这是我在写一个vb程序时遇到的问题,我用下面的例子简化一下,希望大家能帮一下忙解决一下
程序的意思是当text1失去焦点动作发生时,若text1的输入内容或者格式不符合要求,msgbox提示,这里简化一下,只要焦点一离开text1,就出现消息提示框,这种情况下生成exe文件,运行无误
但是,当text2的lostfocus加入一下相同功能的代码时
生成的exe文件运行如下
将鼠标点在text2文本框里,如下图
单击“确定”,如下
然后程序就关闭了。。。。
我查了很多相关的资料,依然无法解决,希望论坛的大神能给予援手,在这里先谢谢诸位了!
PS:如果不生成exe文件,上述两种情况运行均没有错误 你的两个语语句应该交换位置 如二楼说的那样做。楼主那样子写不就搞了死循环出来了吗?点击text2,text2获得焦点,text1失去焦点,触发text1_lostfocus事件,然后代码把焦点抢回到text1,此时text2又失去焦点,触发text2_lostfocus事件,text2又把焦点抢了回去,text1火了,又抢了回来,最后俩人掐架ing…… zxq6 发表于 2013-4-21 09:56 static/image/common/back.gif
你的两个语语句应该交换位置
感谢您的答复,但我的想法是当焦点离开时哪个textbox的输入格式不对,焦点再自动回到对应的textbox内,让用户重新输入,直到输入的内容符合要求为止,请问代码应如何修改呢,望您不吝赐教,呵呵 CelestialBeing 发表于 2013-4-21 10:17 static/image/common/back.gif
如二楼说的那样做。楼主那样子写不就搞了死循环出来了吗?点击text2,text2获得焦点,text1失去焦点,触发t ...
呵呵,经您一解释,好像确实是这方面的原因,我的想法是当焦点离开时哪个textbox的输入格式不对,焦点再自动回到对应的textbox内,让用户重新输入,直到输入的内容符合要求为止,请问代码应如何修改呢,望您不吝赐教,呵呵 w282529350 发表于 2013-4-21 21:59 static/image/common/back.gif
呵呵,经您一解释,好像确实是这方面的原因,我的想法是当焦点离开时哪个textbox的输入格式不对,焦点再 ...
我想了几种不同的情况,最后觉得你还是弄一个boolean变量当标志位来得方便点(基于把判断全写在每个text的lostfocus上),以避免因lostfocus互相触发掐架。那个标志位代表的意思是“上一次输入有错误,需要请焦点回去”,假设默认为False,首先text1输入完成,text2被点击,接着text1失去焦点,text2获得焦点,执行text1_lostfocus,先判断标志位,为False继续执行后面的,否则就退出吧。当继续执行后判断确认是有错,将标志位改为“True”,然后设置焦点到text1。如法炮制各个text的lostfocus事件,那么一旦该text的lostfocus发现标志位为“True”,则知道了这里没自己的事了,但是仍需要它把标志位从“True”改为“False”。
个人临时想法,仅供参考! 本帖最后由 w282529350 于 2013-4-22 09:26 编辑
CelestialBeing 发表于 2013-4-22 00:15 static/image/common/back.gif
我想了几种不同的情况,最后觉得你还是弄一个boolean变量当标志位来得方便点(基于把判断全写在每个text ...
再次感谢您的答复,我试着写了下,但是对那个标志位值的设置过程不是很明白,您可否就只有两个textbox控件的条件下给我写一个示范代码,比如说输入的内容不为1的话,焦点就返回,然后我就试着举一反三,希望不会耽误您太多的时间 另外我感觉您已经写得很详细了,但本人有点愚笨,看了几遍还是写不出相应的代码.......
还有,上述您所说的焦点争夺问题,为什么只有在生成exe文件下出现错误呢,也很费解~~ 你这个,按照我的理解,应该是写的一个参数设置的窗口,那么,肯定是在关闭窗体或者是点击确定后才保存参数,而不是在失去焦点的时候保存。所以,你的参数检查可以放在点击确定或是关闭窗体的时候进行。因此,你应该知道怎么做了。那样的话,肯定不会引起你的问题的。 zxq6 发表于 2013-4-22 09:34 static/image/common/back.gif
你这个,按照我的理解,应该是写的一个参数设置的窗口,那么,肯定是在关闭窗体或者是点击确定后才保存参数 ...
呵呵,如您所说,确实可以照您说的设置,但不解决这个问题,心理总有那么一点点的不舒服,那么一点点的强迫症~~{:sad:} w282529350 发表于 2013-4-22 09:43 static/image/common/back.gif
呵呵,如您所说,确实可以照您说的设置,但不解决这个问题,心理总有那么一点点的不舒服,那么一点点的强 ...
有些事情是无解的,你尝试解决一下永动机,证明1+1=2看看吧。
不要把精力放到这些无谓的事情上去,没意义的。 w282529350 发表于 2013-4-22 09:00 static/image/common/back.gif
再次感谢您的答复,我试着写了下,但是对那个标志位值的设置过程不是很明白,您可否就只有两个textbox控 ...
进过一轮番测试,我现在不建议你用lostfocus事件来写相关的功能!我在IDE和直接运行中测试lostfocus和gotfocus的执行顺序,大致都是先lostfocus,然后另外一个再gotfocus,问题就在IDE里很乖,但在直接运行中就出现事件“插队”了,搞得顺序乱了。更具体的我也不想深究了。楼上那位也建议你在最后保存的时候再检查正确性。
测试代码(可能会出现跟我看到的现象不同的情况)
Private Sub Text1_LostFocus()
Me.Print "Text1_LostFocus"
MsgBox "Text1_LostFocus"
Text1.SetFocus
End Sub
Private Sub Text2_GotFocus()
Me.Print "Text2_GotFocus"
MsgBox "Text2_GotFocus"
End Sub
Private Sub Text2_LostFocus()
Me.Print "Text2_LostFocus"
MsgBox "Text2_LostFocus"
End Sub
IDE里执行顺序:
Private Sub Text1_LostFocus()
Private Sub Text2_LostFocus()
直接运行执行顺序:
Private Sub Text1_LostFocus()……执行Me.Print "Text1_LostFocus"
Private Sub Text2_GotFocus()
Private Sub Text1_LostFocus()……执行MsgBox "Text1_LostFocus"
Private Sub Text2_LostFocus() zxq6 发表于 2013-4-22 09:57 static/image/common/back.gif
有些事情是无解的,你尝试解决一下永动机,证明1+1=2看看吧。
不要把精力放到这些无谓的事情上去,没意义 ...
呵呵,弄完了就比较闲,如果忙的话我就直接跳过这问题了,你就当我闲的蛋疼吧{:lol:} CelestialBeing 发表于 2013-4-22 10:10 static/image/common/back.gif
进过一轮番测试,我现在不建议你用lostfocus事件来写相关的功能!我在IDE和直接运行中测试lostfocus和got ...
好的,谢谢您了,那我就当吃一堑长一智吧,很感激您的帮助,谢谢!!
页:
[1]