一个模式窗体退出时，发生“运行时错误5,无效的过程调用或参数”，在VB6中不报错，编译为exe时才出错，为什么？

[kanzm]

一个模式窗体退出时，发生“运行时错误5,无效的过程调用或参数”，在VB6中不报错，编译为exe时才出错，为什么？
关键是在vb6环境中一切正常，只要编译为exe时就出错。

[Tiger_Zhao]

先用一个完全空白的窗体代替第二个窗体让登录窗体调用，看看是否还出错。
不再出错可能是第二个窗体上的控件问题，逐个删除进行测试。
如果还有错说明是登录窗体的问题，贴调用代码。

[kanzm]

[Quote=引用 5 楼 Tiger_Zhao 的回复:]
先用一个完全空白的窗体代替第二个窗体让登录窗体调用，看看是否还出错。
不再出错可能是第二个窗体上的控件问题，逐个删除进行测试。
如果还有错说明是登录窗体的问题，贴调用代码。
[/Quote]

是的，调用一个空白窗体就报错。
我不明白，就算登录窗体有问题，但是。。。
我先查查登录窗体吧。

[kanzm]

Private Sub cmdlogin_Click()
    On Error GoTo gherr
    Dim strmsg As String
    Dim strupdateflag As Boolean
    
   
    '首先判断程序版本，通过数据库中的edition表来判别
    If Len(Trim(Text1.Text)) = 0 Then               '首尾空格处理掉
        MsgBox "请输入用户名", 32, "提示"
        Exit Sub
    Else
        struser = Trim(Text1.Text)                  '取用户名
        strpass = ghcrypt(Trim(Text2.Text))         '对用户密码加密，以便与密文相比较
    End If
    
    If conn.State <> adStateOpen Then
        Call mainmoudle.getConn                     '调用自定义连接函数
    End If
    
    'objlogon是自定义类，登录类，进行身份验证等
    '下面判断是否显示短信息[如果notetext表中有记录，则显示出来]
    If objlogon.ShowNote(strmessage) Then
        '就是下面这个窗体关闭时报运行时错误‘5’，但是VB6环境下一点也不报错，真怪
	frmNoteText.Show vbModal
    End If

    msgbox "到这里已经报错了。所以问题不会在后面"
    
    '进行用户身份验证
    If objlogon.userIdentification(struser, strpass, strUserName, strmessage) Then
        '转成大写
        g_loginname = UCase(struser)               '将用户名保存到变量中
        g_xingming = UCase(strUserName)
    Else
        MsgBox "用户登录失败，可能是因为：" & strmessage, 32, "系统提示"
        Exit Sub
    End If
     
    Unload Me
    mainform.Show           '调主窗体
    
    Exit Sub
gherr:
    MsgBox Err.Description
    Exit Sub
End Sub

[神马都能聊]

    'objlogon是自定义类，登录类，进行身份验证等
    '下面判断是否显示短信息[如果notetext表中有记录，则显示出来]
    If objlogon.ShowNote(strmessage) Then
        '就是下面这个窗体关闭时报运行时错误‘5’，但是VB6环境下一点也不报错，真怪
    frmNoteText.Show vbModal
    End If

    '这里你将窗口关闭了,后面调用可能会出错,VB的模式窗体显示会暂停后面的代码,知道模式窗体关闭后向下执行
    '进行用户身份验证
    If objlogon.userIdentification(struser, strpass, strUserName, strmessage) Then
        '转成大写
        g_loginname = UCase(struser)               '将用户名保存到变量中
        g_xingming = UCase(strUserName)
    Else
        MsgBox "用户登录失败，可能是因为：" & strmessage, 32, "系统提示"
        Exit Sub
    End If

[sanwasou]

有可能是某一个变量没有申明，以前我我也遇到过一眼的问题

[Tiger_Zhao]

变量 strmsg 定义了没用到，而 strmessage 用到了没定义。
应该检查 objlogon 内部的代码了。

[kanzm]

找到问题在哪里，但是不明白道理：
MsgBox "用户登录失败，可能是因为：" & strmessage, 32, "系统提示"

将这一句去了就行了，只要加上这一句，执行exe时就报错，然后退出。
我就是不明白，一句msgbox为何有这影响，难道是vb的bug.

[kanzm]

找到原因了。但还是不知为什么？
因为我在form的activate事件中写了：
text1.setfocus

就会这样，我将这句去了，就没问题了。

[kanzm]

建一个项目，建两个窗体，其中form1中加一个文件框，一个按钮，拷入下面代码，就会重现我的错误。

Option Explicit

'这个程序编译成exe执行就会报错，真是怪了，原因是什么呢？
Private Sub Command1_Click()
    '注form2是一个空窗体，什么也没有
    Form2.Show vbModal
    MsgBox "现在如果是exe文件就已经出错了，然后会异常关闭！运行时错误5，无效的过程调用或参数"
    
End Sub

Private Sub Form_Activate()
    Text1.SetFocus
End Sub

Private Sub Form_Load()
    Command1.Caption = "点我一下试试"
End Sub

[神马都能聊]

    Form2.Show vbModal
    MsgBox "现在如果是exe文件就已经出错了，然后会异常关闭！运行时错误5，无效的过程调用或参数"

vb不支持连续的模态显示.

[Tiger_Zhao]

调试模式下 VB-IDE 影响焦点事件很正常，MSDN 也说了“可能是不期望的”。
其实你只要合理设置控件的 TabIndex 属性，就可以决定默认焦点在那个控件上。

[kanzm]

[Quote=引用 15 楼 Tiger_Zhao 的回复:]
调试模式下 VB-IDE 影响焦点事件很正常，MSDN 也说了“可能是不期望的”。
其实你只要合理设置控件的 TabIndex 属性，就可以决定默认焦点在那个控件上。
[/Quote]

谢谢您的指教，可是我不明白，您说调试模式下 VB-IDE 影响焦点事件很正常,我不明白，
我的代码在调试模式下不出问题，但是编译为exe才出问题。

另外，影响焦点事件是什么意思？

[神马都能聊]

[Quote=引用 14 楼 AisaC 的回复:]
VB code Form2.Show vbModal
MsgBox "现在如果是exe文件就已经出错了，然后会异常关闭！运行时错误5，无效的过程调用或参数"


vb不支持连续的模态显示.
[/Quote]
搞错了,可以连续显示,抱歉

[zdingyun]

用VB的运行菜单下的"全编译执行(F)"来调试你的VB代码,看看哪儿报错.

[tiandi79]

有没有用form_unload?有的话帖下看看.

[kanzm]

[Quote=引用 1 楼 zdingyun 的回复:]
用VB的运行菜单下的"全编译执行(F)"来调试你的VB代码,看看哪儿报错.
[/Quote]

这样不报任何错误，只有运行exe时报错，我不知如何办了。

[kanzm]

[Quote=引用 2 楼 tiandi79 的回复:]
有没有用form_unload?有的话帖下看看.
[/Quote]

没有代码，只要关闭窗体就报错。
是这样的，
先显示一个登录窗体，是模式窗体
在登录窗体上有一个按钮，单击这个按钮再弹出一个模式窗体。（就是这第二个模式窗体一关闭就报错。）
我将第二个模式窗体中的代码全删了，只要关闭就报错。（在unload中写 on error 也无用，好象应该是 set nothing时出错吧）
去了第二个模式窗体就不报错了。

[Tiger_Zhao]

[Quote=引用 16 楼 kanzm 的回复:]谢谢您的指教，可是我不明白，您说调试模式下 VB-IDE 影响焦点事件很正常,我不明白，
我的代码在调试模式下不出问题，但是编译为exe才出问题。

另外，影响焦点事件是什么意思？[/Quote]
[Quote=MSDN:]Activate 和 Deactivate 事件仅当焦点在一个应用程序内移动时才发生。在另一个应用程序中将焦点移向或移离一个对象时，不会触发任何一个事件。[/Quote]
在调试模式下，VB-IDE 和运行的窗体属于同一个“应用程序”，所以在窗体和 VB-IDE 之间切换会触发 Activate 和 Deactivate 事件。当然还有其它的焦点事件会与 exe 模式运行不同。
出于某些我们不知道的原因，VB-IDE 处理了一些消息，但还是与 exe 模式运行不完全一致，MSDN 也说了“可能是不期望的”。
在你的例子中的表现就是 Form2 关闭后 Form_Activate 事件没用触发。

[nmgzhf]

找到原因了。但还是不知为什么？
因为我在form的activate事件中写了：
text1.setfocus

就会这样，我将这句去了，就没问题了。

*********这是个正确的答案，已经验证过的************