مشكلة مع اليوزر كونترول

السلام عليكم ورحمه الله وبركاته

اخي هل قمت بتعريف بلوك الـ Set وقمت بحفظ قيمة المتغير value؟!! واذا امكن تكتب كود الخاصية؟

    Public sCondition As String
    Public Property Condition As String
        Set(ByVal value As String)
            sCondition = value
        End Set
        Get
            Return sCondition
        End Get
    End Property



    Public Property Code() As String
        Get
            Return TxtCode.Text.Trim
        End Get
        Set(ByVal value As String)
            TxtCode.Text = value
        End Set
    End Property

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Private _Condition,_Code As String

	Public Property Condition As String
    	Set(ByVal value As String)
        	sCondition = value
    	End Set
    	Get
        	Return sCondition
    	End Get
	End Property



	Public Property Code() As String
    	Get
        	Return _Code
    	End Get
    	Set(ByVal value As String)
        	_Code = value
    	End Set
	End Property

ومن ثم يمكنك استخدامها على النحو التالي

TxtCode.Text=_Code
_Code=TxtCode.Text