69 lines
1.4 KiB
Plaintext
69 lines
1.4 KiB
Plaintext
include::../description.adoc[]
|
|
|
|
== Noncompliant Code Example
|
|
|
|
[source,vbnet]
|
|
----
|
|
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
|
|
|
|
[source,vbnet]
|
|
----
|
|
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
|
|
----
|
|
|
|
ifdef::env-github,rspecator-view[]
|
|
|
|
'''
|
|
== Implementation Specification
|
|
(visible only on this page)
|
|
|
|
include::../message.adoc[]
|
|
|
|
include::../highlighting.adoc[]
|
|
|
|
'''
|
|
== Comments And Links
|
|
(visible only on this page)
|
|
|
|
include::../comments-and-links.adoc[]
|
|
endif::env-github,rspecator-view[]
|