Question

我具有以下私有属性。

    Private m_blnEnExecution As Boolean

我具有以下属性。

    Public Property EnExecution As Boolean
        Get
            Return m_blnEnExecution
        End Get
        Set
            m_blnEnExecution = EnExecution
        End Set
    End Property

然后我尝试通过以下方法更改其值

    Public Sub Executer()
        EnExecution = True
    End Sub

但是当我使用调试器时，我意识到EnExecution的值不会改变。我究竟做错了什么。我是Visual Basic的新手。任何帮助，将不胜感激。谢谢。

Answer 1

您的设置员不正确：

Set
    m_blnEnExecution = EnExecution
End Set

这会将m_blnEnExecution的值设置为属性EnExecution的当前值，该属性本身就是m_blnEnExecution的值。因此，此设置程序将永远不会更改支持值。

相反，将后备值设置为传递的值：

Set(ByVal Value As Boolean)
    m_blnEnExecution = Value
End Set

我无法更改我的财产的价值

1 个答案: