1.我想用VBS创建一个全局的Function函数,用于在各个画面中调用这个函数,但是我在项目模块右键新建项目模块都是 Sub...end Sub, 如下图所示,
后来我把sub..end sub改成Function ....end Function 如下所示
Function Status_Check(strName,Status,Fbk_err)
If 0 = Status Then
If Fbk_err = 0 Then
Status_Check = 1
Else
Msgbox "所选流程设备:"& strName & "有故障,请排除后重新锁定流程!"
Status_Check = 0
End if
Else
Msgbox "所选流程:"& strName & "设备已被其他流程锁定,该流程不能选择"
Status_Check = 0
End if
End Function
Function Status1
End Function
后来在画面按钮的VBS动作中如下调用,
Function Status_Check(strName,Status,Fbk_err)
If 0 = Status Then
If Fbk_err = 0 Then
Status_Check = 1
Else
Msgbox "所选流程设备:"& strName & "有故障,请排除后重新锁定流程!"
Status_Check = 0
End if
Else
Msgbox "所选流程:"& strName & "设备已被其他流程锁定,该流程不能选择"
Status_Check = 0
End if
End Function
Function Status1
End Function
,但是一编译,就出错,如下图
有知道是什么原因的大神帮忙解答一下,谢谢。可能是没有理解VBS如何创建全局的过程和 全局的函数。