Question

我在VB6中创建了一个属性来获取和设置ErrorMessages 但每次我试着运行它都会给我一个错误

同一属性的属性过程的定义不一致，或者属性过程具有可选参数，ParamArray或无效集最终参数。

Dim sErrorMessage As String
Public Property Get ErrorMessage() As String
    '<EhHeader>
    On Error GoTo PROC_ERR
    '</EhHeader>

100     ErrorMessage = sErrorMessage
102     sErrorMessage = ""
104     bMethodFailed = False

'<EhFooter>
PROC_EXIT:
    Exit Property
PROC_ERR:
    If modErr.iHandleError(Err, Erl(), "cTag.ErrorMessage") = vbRetry    Then Resume
    Resume Next
'</EhFooter>
End Property

Public Property Set ErrorMessage(ByVal value As String)
   Set sErrorMessage = value
End Property

Answer 1

尝试从Set更改为Let：

Public Property Let ErrorMessage(ByVal value As String)
    sErrorMessage = value
End Property

属性proceed编译错误：属性不一致

1 个答案: