All pastes #984352 Raw Edit

Stuff

public text v1 · immutable
·published 2008-04-14 03:45 UTC
rendered paste body
Friend Overridable Property Label2 As Label
    Get
        Return Me._Label2
    End Get
    Set(ByVal WithEventsValue As Label)
        Me._Label2 = WithEventsValue
    End Set
End Property

 

 

<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_Label2(ByVal WithEventsValue As Label)
    Me._Label2 = WithEventsValue
End Sub

<DebuggerNonUserCode> _
Friend Overridable Function get_Label2() As Label
    Return Me._Label2
End Function

 



Friend Overridable Property Label3 As Label
    Get
        Return Me._Label3
    End Get
    Set(ByVal WithEventsValue As Label)
        Me._Label3 = WithEventsValue
    End Set
End Property

 

 <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_Label3(ByVal WithEventsValue As Label)
    Me._Label3 = WithEventsValue
End Sub

 
<DebuggerNonUserCode> _
Friend Overridable Function get_Label3() As Label
    Return Me._Label3
End Function

 

 
Friend Overridable Property lbltotal As Label
    Get
        Return Me._lbltotal
    End Get
    Set(ByVal WithEventsValue As Label)
        Me._lbltotal = WithEventsValue
    End Set
End Property

 

 <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_lbltotal(ByVal WithEventsValue As Label)
    Me._lbltotal = WithEventsValue
End Sub

 
<DebuggerNonUserCode> _
Friend Overridable Function get_lbltotal() As Label
    Return Me._lbltotal
End Function

 

 
Friend Overridable Property lbltotaldue As Label
    Get
        Return Me._lbltotaldue
    End Get
    Set(ByVal WithEventsValue As Label)
        Me._lbltotaldue = WithEventsValue
    End Set
End Property

 <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_lbltotaldue(ByVal WithEventsValue As Label)
    Me._lbltotaldue = WithEventsValue
End Sub

 
<DebuggerNonUserCode> _
Friend Overridable Function get_lbltotaldue() As Label
    Return Me._lbltotaldue
End Function

 

 
Friend Overridable Property txtConct As TextBox
    Get
        Return Me._txtConct
    End Get
    Set(ByVal WithEventsValue As TextBox)
        Me._txtConct = WithEventsValue
    End Set
End Property

 

 <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_txtConct(ByVal WithEventsValue As TextBox)
    Me._txtConct = WithEventsValue
End Sub

 

 <DebuggerNonUserCode> _
Friend Overridable Function get_txtConct() As TextBox
    Return Me._txtConct
End Function

 
Friend Overridable Property txtPrem As TextBox
    Get
        Return Me._txtPrem
    End Get
    Set(ByVal WithEventsValue As TextBox)
        Me._txtPrem = WithEventsValue
    End Set
End Property

 

 
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_txtPrem(ByVal WithEventsValue As TextBox)
    Me._txtPrem = WithEventsValue
End Sub

 

 
<DebuggerNonUserCode> _
Friend Overridable Function get_txtPrem() As TextBox
    Return Me._txtPrem
End Function

 

 
Friend Overridable Property txtType As TextBox
    Get
        Return Me._txtType
    End Get
    Set(ByVal WithEventsValue As TextBox)
        If (Not Me._txtType Is Nothing) Then
            RemoveHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged)
        End If
        Me._txtType = WithEventsValue
        If (Not Me._txtType Is Nothing) Then
            AddHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged)
        End If
    End Set
End Property

<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_txtType(ByVal WithEventsValue As TextBox)
    If (Not Me._txtType Is Nothing) Then
        RemoveHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged)
    End If
    Me._txtType = WithEventsValue
    If (Not Me._txtType Is Nothing) Then
        AddHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged)
    End If
End Sub

 

 
<DebuggerNonUserCode> _
Friend Overridable Function get_txtType() As TextBox
    Return Me._txtType
End Function