Freigeben über

Wenn einem so viel Gutes wiederfährt...

  • Artikel

Eigentlich handelte es sich um eine recht triviale Aufgabe...

Für meine Serie über ASP.NET Server Controls wollte ich einige Beispiele in C# und einige in VB.NET erstellen. Eines der Beispiele sollte zeigen, wie Server Controls eigene Events implementieren können und so fing der ganze Spaß an...

[ Category("Action"),

Description("Raised when the button is clicked") ]

public event EventHandler Click;

// Method of IPostBackEventHandler that raises postback events.

void IPostBackEventHandler.RaisePostBackEvent(string eventArgument){

    OnClick(EventArgs.Empty);

}

// Invokes delegate registered with the Click event.

protected virtual void OnClick(EventArgs e) {

    if (Click != null)

    {

        Click(this, e);

    }

}

Wie in dem oben stehenden Codebeispiel zu sehen ist überprüft die Methode OnClick in der ersten Zeile ob es EventHandler gibt welche dem Event („Click“) zugeordnet sind. Falls ja wird im Anschluß das Click-Event ausgeführt. Soweit so gut.

Als ich die Methode OnClick allerdings in VB.NET umsetzen wollte stellte sich mir die Frage, wie eine ähnlich Implementierung in VB.NET aussehen sollte. Nach diversen Versuchen und Diskussionen mit Kollegen zeigte ein Ausflug in die IL (Intermediate Language) dass selbige Überprüfung in VB.NET nicht nötig ist. Wie in dem nachstehenden Beispiel offensichtlich erkennbar ist erfolgt keine (explizite) Überprüfung ob EventHandler auf das Click-Event registriert wurden.

' Invokes delegate registered with the Click event.

Protected Overridable Sub OnClick(ByVal e As System.EventArgs)

    RaiseEvent Click(Me, e)

End Sub

Aufschluß gibt ein Blick in den IL-Code.

Die C# Version

.method family hidebysig newslot virtual

        instance void OnClick(class [mscorlib]System.EventArgs e) cil managed

{

  // Code size 31 (0x1f)

  .maxstack 3

  .locals init ([0] bool CS$4$0000)

  IL_0000: nop

  IL_0001: ldarg.0

  IL_0002: ldfld class [mscorlib]System.EventHandler MSPress.ServerControls.SimpleButton::Click

                       ' ldfld finds the value of a field in the object whose

                       ' reference is currently on the evaluation stack.

  IL_0007: ldnull ' Pushes a null reference (type O) onto the evaluation stack

  IL_0008: ceq ' Compares two values. If they are equal,

                       ' the integer value 1 (int32) is pushed onto

the evaluation stack;

                       ' otherwise 0 (int32) is pushed onto the evaluation stack.

  IL_000a: stloc.0 ' Pops the current value from the top of the evaluation stack and stores

                       ' it in a the  local variable list at index 0.

  IL_000b: ldloc.0 ' Loads the local variable at index 0 onto the evaluation stack.

  IL_000c: brtrue.s IL_001e ' Hier passiert’s. Wenn keine Methode auf das Delegate registriert

                               ' wurde wird die Programmausführung an IL_001e fortgesetzt.

  IL_000e: nop

  IL_000f: ldarg.0

  IL_0010: ldfld class [mscorlib]System.EventHandler MSPress.ServerControls.SimpleButton::Click

  IL_0015: ldarg.0

  IL_0016: ldarg.1

  IL_0017: callvirt instance void [mscorlib]System.EventHandler::Invoke(object,

                                          class [mscorlib]System.EventArgs)

  IL_001c: nop

  IL_001d: nop

  IL_001e: ret

} // end of method SimpleButton::OnClick

und die VB.NET Implementierung

.method family newslot strict virtual instance void

        OnClick(class [mscorlib]System.EventArgs e) cil managed

{

  // Code size 30 (0x1e)

  .maxstack 3

  .locals init ([0] class [mscorlib]System.EventHandler VB$t_ref$S0,

           [1] bool VB$CG$t_bool$S0)

  IL_0000: nop

  IL_0001: ldarg.0

  IL_0002: ldfld class [mscorlib]System.EventHandler MyControls.ServerControls.SimpleButton::ClickEvent

  IL_0007: stloc.0

  IL_0008: ldloc.0

  IL_0009: ldnull

  IL_000a: ceq

  IL_000c: ldc.i4.0 ' Pushes the integer value of 0 onto the evaluation stack as an int32.

  IL_000d: ceq

  IL_000f: stloc.1

  IL_0010: ldloc.1

  IL_0011: brfalse.s IL_001c

  IL_0013: ldloc.0

  IL_0014: ldarg.0

  IL_0015: ldarg.1

  IL_0016: callvirt instance void [mscorlib]System.EventHandler::Invoke(object,

                                    class [mscorlib]System.EventArgs)

  IL_001b: nop

  IL_001c: nop

  IL_001d: ret

} // end of method SimpleButton::OnClick

Ein Blick auf den IL-Code zeigt, dass der VB.NET Compiler im Hintergrund die Überprüfung selbst erzeugt und (fast) genau den gleichen IL Code wie in dem C# Beispiel erzeugt. Na wenn das mal nichts ist!

... und wenn einem so viel Gutes wiederfährt ist das doch einen Blog Eintrag wert :-)

Happy coding!

Daniel

Comments