50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
|
include::../description.adoc[]
|
||
|
|
|
||
|
|
== Noncompliant Code Example
|
||
|
|
|
||
|
|
----
|
||
|
|
Public Class BaseClass
|
||
|
|
Public Overridable Sub MyMethod(ByVal Optional i As Integer = 1)
|
||
|
|
Console.WriteLine(i)
|
||
|
|
End Sub
|
||
|
|
End Class
|
||
|
|
|
||
|
|
Public Class DerivedClass
|
||
|
|
Inherits BaseClass
|
||
|
|
|
||
|
|
Public Overrides Sub MyMethod(ByVal Optional i As Integer = 1)
|
||
|
|
' ...
|
||
|
|
MyBase.MyMethod() ' Noncompliant; caller's value is ignored
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Shared Function Main(ByVal args As String()) As Integer
|
||
|
|
Dim dc As DerivedClass = New DerivedClass()
|
||
|
|
dc.MyMethod(12) ' prints 1
|
||
|
|
End Function
|
||
|
|
End Class
|
||
|
|
----
|
||
|
|
|
||
|
|
== Compliant Solution
|
||
|
|
|
||
|
|
----
|
||
|
|
Public Class BaseClass
|
||
|
|
Public Overridable Sub MyMethod(ByVal Optional i As Integer = 1)
|
||
|
|
Console.WriteLine(i)
|
||
|
|
End Sub
|
||
|
|
End Class
|
||
|
|
|
||
|
|
Public Class DerivedClass
|
||
|
|
Inherits BaseClass
|
||
|
|
|
||
|
|
Public Overrides Sub MyMethod(ByVal Optional i As Integer = 1)
|
||
|
|
' ...
|
||
|
|
MyBase.MyMethod(i)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Shared Function Main(ByVal args As String()) As Integer
|
||
|
|
Dim dc As DerivedClass = New DerivedClass()
|
||
|
|
dc.MyMethod(12) ' prints 12
|
||
|
|
End Function
|
||
|
|
End Class
|
||
|
|
----
|