annotate Examples/VB/Reflection.Emit/HelloWorld.vb @ 0:f990fcb411a9

Копия текущей версии из github
author cin
date Thu, 27 Mar 2014 21:46:09 +0400
parents
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 NUnit.Framework
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
5
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
6 Imports BLToolkit.Reflection
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
7 Imports BLToolkit.Reflection.Emit
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
8
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
9 Namespace Examples.Reflection.Emit
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
10
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
11 <TestFixture()> _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
12 Public Class HelloWorld
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
13
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
14 Public Interface IHello
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
15 Sub SayHello(ByVal toWhom As String)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
16 End Interface
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
17
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
18 <Test()> _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
19 Sub Test()
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
20 Dim assemblyHelper As AssemblyBuilderHelper = New AssemblyBuilderHelper("HelloWorld.dll")
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
21 Dim typeHelper As TypeBuilderHelper = assemblyHelper.DefineType("Hello", GetType(Object), GetType(IHello))
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
22 Dim methodHelper As MethodBuilderHelper = typeHelper.DefineMethod(GetType(IHello).GetMethod("SayHello"))
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
23 Dim emit As EmitHelper = methodHelper.Emitter
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
24
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
25 ' string.Format("Hello, {0} World!", toWhom)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
26 '
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
27 emit _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
28 .ldstr("Hello, {0} World!") _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
29 .ldarg_1 _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
30 .call(GetType(String), "Format", GetType(String), GetType(Object))
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
31
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
32 ' Console.WriteLine("Hello, World!");
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
33 '
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
34 emit _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
35 .call(GetType(Console), "WriteLine", GetType(String)) _
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
36 .ret()
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
37
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
38 Dim type As Type = typeHelper.Create()
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
39
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
40 Dim hello As IHello = TypeAccessor.CreateInstance(type)
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
41
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
42 hello.SayHello("VB")
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
43 End Sub
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
44
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
45 End Class
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
46
f990fcb411a9 Копия текущей версии из github
cin
parents:
diff changeset
47 End Namespace