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