All pastes #984350 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-04-14 03:40 UTC
rendered paste body
btnCalc

Friend Overridable Property btnCalc As Button
    Get
        Return Me._btnCalc
    End Get
    Set(ByVal WithEventsValue As Button)
        If (Not Me._btnCalc Is Nothing) Then
            RemoveHandler Me._btnCalc.Click, New EventHandler(AddressOf Me.btnCalc_Click)
        End If
        Me._btnCalc = WithEventsValue
        If (Not Me._btnCalc Is Nothing) Then
            AddHandler Me._btnCalc.Click, New EventHandler(AddressOf Me.btnCalc_Click)
        End If
    End Set
End Property

 set_btnCalc
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_btnCalc(ByVal WithEventsValue As Button)
    If (Not Me._btnCalc Is Nothing) Then
        RemoveHandler Me._btnCalc.Click, New EventHandler(AddressOf Me.btnCalc_Click)
    End If
    Me._btnCalc = WithEventsValue
    If (Not Me._btnCalc Is Nothing) Then
        AddHandler Me._btnCalc.Click, New EventHandler(AddressOf Me.btnCalc_Click)
    End If
End Sub

get_btnCalc
 <DebuggerNonUserCode> _
Friend Overridable Function get_btnCalc() As Button
    Return Me._btnCalc
End Function


btnClose
Friend Overridable Property btnClose As Button
    Get
        Return Me._btnClose
    End Get
    Set(ByVal WithEventsValue As Button)
        If (Not Me._btnClose Is Nothing) Then
            RemoveHandler Me._btnClose.Click, New EventHandler(AddressOf Me.Button3_Click)
        End If
        Me._btnClose = WithEventsValue
        If (Not Me._btnClose Is Nothing) Then
            AddHandler Me._btnClose.Click, New EventHandler(AddressOf Me.Button3_Click)
        End If
    End Set
End Property



set_btnClose


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_btnClose(ByVal WithEventsValue As Button)
    If (Not Me._btnClose Is Nothing) Then
        RemoveHandler Me._btnClose.Click, New EventHandler(AddressOf Me.Button3_Click)
    End If
    Me._btnClose = WithEventsValue
    If (Not Me._btnClose Is Nothing) Then
        AddHandler Me._btnClose.Click, New EventHandler(AddressOf Me.Button3_Click)
    End If
End Sub

 
get_btnClose

 <DebuggerNonUserCode> _
Friend Overridable Function get_btnClose() As Button
    Return Me._btnClose
End Function

 

 btnClr

Friend Overridable Property btnClr As Button
    Get
        Return Me._btnClr
    End Get
    Set(ByVal WithEventsValue As Button)
        If (Not Me._btnClr Is Nothing) Then
            RemoveHandler Me._btnClr.Click, New EventHandler(AddressOf Me.btnClr_Click)
        End If
        Me._btnClr = WithEventsValue
        If (Not Me._btnClr Is Nothing) Then
            AddHandler Me._btnClr.Click, New EventHandler(AddressOf Me.btnClr_Click)
        End If
    End Set
End Property

 

 set_btnClr
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_btnClr(ByVal WithEventsValue As Button)
    If (Not Me._btnClr Is Nothing) Then
        RemoveHandler Me._btnClr.Click, New EventHandler(AddressOf Me.btnClr_Click)
    End If
    Me._btnClr = WithEventsValue
    If (Not Me._btnClr Is Nothing) Then
        AddHandler Me._btnClr.Click, New EventHandler(AddressOf Me.btnClr_Click)
    End If
End Sub

 
get_btnClr
<DebuggerNonUserCode> _
Friend Overridable Function get_btnClr() As Button
    Return Me._btnClr
End Function

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

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

 

 <DebuggerNonUserCode> _
Friend Overridable Function get_Label1() As Label
    Return Me._Label1
End Function