annotate Examples/VB/OverloadWithDefValue.vb @ 9:1e85f66cf767 default tip

update bltoolkit
author nickolay
date Thu, 05 Apr 2018 20:53:26 +0300
parents f990fcb411a9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
1 ''@ example:
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
2 ''@ emit Emit
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
3 Imports System
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
4 Imports BLToolkit.Aspects
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
5 Imports NUnit.Framework
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
6
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
7 Imports BLToolkit.Reflection
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
8
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
9 Namespace Examples
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
10
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
11 <TestFixture()> _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
12 Public Class OverloadWithDefValue
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
13
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
14 Public MustInherit Class TestObject
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
15
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
16 Public Sub TestMethod( _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
17 ByVal passthrough As Integer, _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
18 Optional ByVal strVal As String = "str", _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
19 Optional ByVal intVal As Integer = 123)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
20 Assert.AreEqual(321, passthrough)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
21 Assert.AreEqual("str", strVal)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
22 Assert.AreEqual(123, intVal)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
23 End Sub
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
24
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
25 <Overload()> _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
26 Public MustOverride Sub TestMethod( _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
27 ByVal passthrough As Integer, _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
28 ByVal dateVal As Date)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
29
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
30 End Class
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
31
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
32 <Test()> _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
33 Sub Test()
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
34 Dim o As TestObject = TypeAccessor(Of TestObject).CreateInstance
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
35 o.TestMethod(321, Today)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
36 End Sub
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
37
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
38 End Class
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
39
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
40 End Namespace