请教各位VB生成EXE文件后的运行错误问题

w282529350 · 发表于 2013-4-21 09:31:35

本帖最后由 w282529350 于 2013-4-21 09:36 编辑

这是我在写一个vb程序时遇到的问题，我用下面的例子简化一下，希望大家能帮一下忙解决一下

程序的意思是当text1失去焦点动作发生时，若text1的输入内容或者格式不符合要求，msgbox提示，这里简化一下，只要焦点一离开text1，就出现消息提示框，这种情况下生成exe文件，运行无误
但是，当text2的lostfocus加入一下相同功能的代码时

生成的exe文件运行如下

将鼠标点在text2文本框里，如下图

单击“确定”，如下

然后程序就关闭了。。。。

我查了很多相关的资料，依然无法解决，希望论坛的大神能给予援手，在这里先谢谢诸位了！

PS:如果不生成exe文件，上述两种情况运行均没有错误

zxq6 · 发表于 2013-4-21 09:56:21

你的两个语语句应该交换位置

CelestialBeing · 发表于 2013-4-21 10:17:20

如二楼说的那样做。楼主那样子写不就搞了死循环出来了吗？点击text2，text2获得焦点，text1失去焦点，触发text1_lostfocus事件，然后代码把焦点抢回到text1，此时text2又失去焦点，触发text2_lostfocus事件，text2又把焦点抢了回去，text1火了，又抢了回来，最后俩人掐架ing……

w282529350 · 发表于 2013-4-21 21:58:43

zxq6 发表于 2013-4-21 09:56
你的两个语语句应该交换位置

感谢您的答复，但我的想法是当焦点离开时哪个textbox的输入格式不对，焦点再自动回到对应的textbox内，让用户重新输入，直到输入的内容符合要求为止，请问代码应如何修改呢，望您不吝赐教，呵呵

w282529350 · 发表于 2013-4-21 21:59:46

CelestialBeing 发表于 2013-4-21 10:17
如二楼说的那样做。楼主那样子写不就搞了死循环出来了吗？点击text2，text2获得焦点，text1失去焦点，触发t ...

呵呵，经您一解释，好像确实是这方面的原因，我的想法是当焦点离开时哪个textbox的输入格式不对，焦点再自动回到对应的textbox内，让用户重新输入，直到输入的内容符合要求为止，请问代码应如何修改呢，望您不吝赐教，呵呵

CelestialBeing · 发表于 2013-4-22 00:15:54

w282529350 发表于 2013-4-21 21:59
呵呵，经您一解释，好像确实是这方面的原因，我的想法是当焦点离开时哪个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:00:21

本帖最后由 w282529350 于 2013-4-22 09:26 编辑

CelestialBeing 发表于 2013-4-22 00:15
我想了几种不同的情况，最后觉得你还是弄一个boolean变量当标志位来得方便点（基于把判断全写在每个text ...

再次感谢您的答复，我试着写了下，但是对那个标志位值的设置过程不是很明白，您可否就只有两个textbox控件的条件下给我写一个示范代码，比如说输入的内容不为1的话，焦点就返回，然后我就试着举一反三，希望不会耽误您太多的时间另外我感觉您已经写得很详细了，但本人有点愚笨，看了几遍还是写不出相应的代码.......
还有，上述您所说的焦点争夺问题，为什么只有在生成exe文件下出现错误呢，也很费解~~

zxq6 · 发表于 2013-4-22 09:34:45

你这个，按照我的理解，应该是写的一个参数设置的窗口，那么，肯定是在关闭窗体或者是点击确定后才保存参数，而不是在失去焦点的时候保存。所以，你的参数检查可以放在点击确定或是关闭窗体的时候进行。因此，你应该知道怎么做了。那样的话，肯定不会引起你的问题的。

w282529350 · 发表于 2013-4-22 09:43:21

zxq6 发表于 2013-4-22 09:34
你这个，按照我的理解，应该是写的一个参数设置的窗口，那么，肯定是在关闭窗体或者是点击确定后才保存参数 ...

呵呵，如您所说，确实可以照您说的设置，但不解决这个问题，心理总有那么一点点的不舒服，那么一点点的强迫症~~

zxq6 · 发表于 2013-4-22 09:57:14

w282529350 发表于 2013-4-22 09:43
呵呵，如您所说，确实可以照您说的设置，但不解决这个问题，心理总有那么一点点的不舒服，那么一点点的强 ...

有些事情是无解的，你尝试解决一下永动机，证明1+1=2看看吧。
不要把精力放到这些无谓的事情上去，没意义的。

CelestialBeing · 发表于 2013-4-22 10:10:01

w282529350 发表于 2013-4-22 09:00
再次感谢您的答复，我试着写了下，但是对那个标志位值的设置过程不是很明白，您可否就只有两个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()

w282529350 · 发表于 2013-4-22 10:35:48

zxq6 发表于 2013-4-22 09:57
有些事情是无解的，你尝试解决一下永动机，证明1+1=2看看吧。
不要把精力放到这些无谓的事情上去，没意义 ...

呵呵，弄完了就比较闲，如果忙的话我就直接跳过这问题了，你就当我闲的蛋疼吧

w282529350 · 发表于 2013-4-22 10:36:58

CelestialBeing 发表于 2013-4-22 10:10
进过一轮番测试，我现在不建议你用lostfocus事件来写相关的功能！我在IDE和直接运行中测试lostfocus和got ...

好的，谢谢您了，那我就当吃一堑长一智吧，很感激您的帮助，谢谢！！

请教各位VB生成EXE文件后的运行错误问题

本帖子中包含更多资源

阿莫论坛20周年了！感谢大家的支持与爱护！！

浏览过的版块