SOS

Question

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Exit
    Select Case KeyCode
        Case vbKeyReturn   '确认
            Call Btn_Confirm_Click
        Case vbKeyF12   '取消
            Call Btn_Cancel_Click
    End Select
Exit Sub
Err_Exit:
    FC_ErrMsg Error, "frmLogin.form_keydown"
End Sub
这段错误捕捉代码中的最后第二行 
Err_Exit:
    FC_ErrMsg Error, "frmLogin.form_keydown"  是什么意思，请大哥们帮我注释下把参数告诉我好吗

Answer 1

代码不完整，把FC_ErrMsg块也贴出来

Answer 2

楼主在看别人的源码吧，FC_ErrMsg是一个自定义函数。

Answer 3

FC_ErrMsg 是一个自定义函数,不是系统的

Answer 4

这么多模块 还不知道它全局定义在哪 慢慢找ing

Answer 5

FC_ErrMsg 是个自己写的出错信息处理过程，把错误发生位置和错误信息显示出来

Answer 6

一般程序者会把FC_ErrMsg放在哪定义  我该到哪个模块去找

Answer 7

选中FC_ErrMsg，然后点击右键，选择转到定义，就可以找到它的定义。

Answer 8

那就用查找功能。选择菜单“编辑|查找”或按Ctr+F，在查找框中输入FC_ErrMsg，然后点击查找。如果还找不到，有可能这个函数被封装起来了。

Answer 9

翻遍代码终于找到了
Sub FC_ErrMsg(Err As String, Optional strModuleName As String = "")
    Dim strMsg As String
    
    MsgBox Err
    
    If strModuleName <> "" Then
        MsgBox "在“" & strModuleName & "”模块!"
    Else
    
    End If
End Sub

Answer 10

Sub FC_ErrMsg(Err As String, Optional strModuleName As String = "")
    Dim strMsg As String
    
    MsgBox Err
    
    If strModuleName <> "" Then
        MsgBox "在“" & strModuleName & "”模块!"
    Else
    
    End If
End Sub
这段函数谁帮我注释下以及最上面2个代码  完了我就给分了  谢谢了

Answer 11

'*************************************************************************
'**函 数 名：FC_ErrMsg
'**输    入：Err(String)                         -错误信息
'**        ：Optional strModuleName(String = "") -可选参数，出现错误的模块名称
'**输    出：无
'**功能描述：输入错误信息和出现错误的模块名称，并提示用户。
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**修 改 人：
'**日    期：
'**版    本：
'*************************************************************************
Sub FC_ErrMsg(Err As String, Optional strModuleName As String = "")
    Dim strMsg As String
    
    '弹出消息框
    MsgBox Err
    
    '如果模块名称不为空，则提示错误出现的模块
    If strModuleName <> "" Then
        MsgBox "在“" & strModuleName & "”模块!"
    Else
    
    End If
End Sub

Answer 12

MsgBox Err    '报告错误编号 err默认属性是number,由Err As String中的err传入
’Optional strModuleName As String = ""中的strModuleName传入模块名，默认为空字符

Answer 13

忘了  上面Err_Exit:
    FC_ErrMsg Error, "frmLogin.form_keydown"  是什么意思，

Answer 14

benyfeifei(狒狒)   和  csdngoodnight(居然比我还快，你真行！)  2位大哥再来帮帮看上面2句什么意思啊

Answer 15

第一句表示“行标签”，主要用于Goto语句；
第二句的意思是调用函数“FC_ErrMsg”后面的“Error”和“frmLogin.form_keydown”为函数调用时的输入参数。

Answer 16

另：楼主还是先找几本入的门书看看。建议看看《Visual Basic 技术内幕》这本书。