Disable a warning

<NoWarn>42015,42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>

If you do this, please be careful as this is indeed a valid warning. Consider the following code snippet:

Module Module1
Sub Main()
Dim b As New Base
Dim d As New Derived
Dim bd As Base = TryCast(d, Base)
Dim bc As Object = d.Clone
Dim bdc As Object = bd.Clone
End Sub

Public Class Base
Implements ICloneable

Public Function Clone() As Object Implements System.ICloneable.Clone
Return New Base
End Function
End Class

Public Class Derived
Inherits Base
Implements ICloneable

Public Shadows Function Clone() As Object Implements System.ICloneable.Clone
Return New Derived
End Function
End Class

End Module

What type of object would you expect bdc to be after running this application?

(Hint - it will *not* be of type Derived, even though the object bd is referencing is of type Derived)

A better pattern is for the base class's ICloneable.Clone method to call a protected overridable CloneInternal method that does the real work.

Best regards,
Johan Stenberg

JohanStenberg at 2007-9-8 >