VB.NET: Wie VB.NET-Modul Referenz?

Kann ich nicht die Referenz auf dieses Modul, aber wenn ich meinen code in eine Klasse. Ich verweisen kann, um es ohne irgendein problem. Weiß jemand, warum?

Da Module in VB nicht Klassen und können nicht verwendet werden, um Objekte zu instanziieren. Vielmehr sind Sie etwas ähnlich wie namespaces, mit dem Unterschied, dass namespaces nicht enthalten Funktionen, die direkt. Also der Grund für die Module bereitzustellen, die eine Methode zum gruppieren von Funktionen logisch, die gehören nicht zu einer Klasse.

Dies macht sehr viel Sinn, wenn man bedenkt, dass nicht alles logisch gehört zu einer Klasse. Betrachten System.Math. Es gibt absolut keinen Grund, dass eine Klasse, andere als eine seltsame OOP Purismus.

Durch die Art und Weise, können Sie keine Referenz statischen Klassen in C# entweder, zumindest dann nicht, wenn ich das richtig verstehe, was du meinst mit "Referenz". Vielleicht können Sie dies klären.

InformationsquelleAutor der Antwort Konrad Rudolph

.NET-Compiler kann jede Art von Sprache, die syntax und die schalten Sie es in einen .NET-äquivalent. Manchmal gibt es eine eins zu eins Korrespondenz zu anderen Zeiten gibt es nicht.

Mithilfe der .NET Reflector Sie sehen können, was der compiler wirklich macht.

In VB.NET das Modul vorhanden ist, da der Erbe geerbt von Visual BASIC und teilweise von Microsoft BASIC.

Den VB.NET compiler wird dies

Public Module CoreModule
    Dim R As New System.Random(CInt(Microsoft.VisualBasic.Timer))
    Public Function D(ByVal Roll As Integer) As Integer
        Return R.Next(0, Roll) + 1
    End Function

    Public Function _1D6() As Integer
        Return D(6)
    End Function

    Public Function _2D6() As Integer
        Return D(6) + D(6)
    End Function

    Public Function _3D6() As Integer
        Return D(6) + D(6) + D(6)
    End Function

    Public Function _4D6() As Integer
        Return D(6) + D(6) + D(6) + D(6)
    End Function

    Public Function CRLF() As String
        Return Microsoft.VisualBasic.ControlChars.CrLf
    End Function
End Module

Und es in dieser (code weggelassen aus Platzgründen)

Public NotInheritable Class CoreModule
    ' Methods
    Shared Sub New()
    Public Shared Function _1D6() As Integer
    Public Shared Function _2D6() As Integer
    Public Shared Function _3D6() As Integer
    Public Shared Function _4D6() As Integer
    Public Shared Function CRLF() As String
    Public Shared Function D(ByVal Roll As Integer) As Integer

    ' Fields
    Private Shared R As Random
End Class

In C# das äquivalent ist das

public sealed class CoreModule
{
    // Fields
    private static Random R;

    // Methods
    static CoreModule();
    public static int _1D6();
    public static int _2D6();
    public static int _3D6();
    public static int _4D6();
    public static string CRLF();
    public static int D(int Roll);
}

Alle, die Sache ist, dass die emittierten CIL macht den job richtig.

Diese Funktion ist der Hauptgrund, warum so viele ältere Visual BASIC 6-Programmierer sind sehr verärgert über MS ändert die Sprache. Zum Beispiel das Schlüsselwort Integer aussenden eines Int32 statt ein Int16.

Module ausgesetzt sind, auf andere Assemblys verweisen auf die ursprüngliche assembly, solange das Modul als public deklariert.

InformationsquelleAutor der Antwort RS Conley

Imports System.Web
Imports System.Web.UI

Module ResponseHelper

    <System.Runtime.CompilerServices.Extension()> _
    Public Sub Redirect(ByVal response As Net.HttpWebResponse, _
                        ByVal url As String, ByVal target As String, _
                        ByVal windowFeatures As String)

        If String.IsNullOrEmpty(target) Or _
           target.Equals("_self", StringComparison.OrdinalIgnoreCase) And _
           String.IsNullOrEmpty(windowFeatures) Then
            response.Redirect(url, target, windowFeatures)
        Else
            Dim page As Page = CType(HttpContext.Current.Handler, Page)
            If page Is Nothing Then
                Throw New InvalidOperationException("Cannot redirect to new window outside Page context.")
            End If
            url = page.ResolveClientUrl(url)
            Dim script As String
            If String.IsNullOrEmpty(windowFeatures) Then
                script = "window.open(""{0}"", ""{1}"", ""{2}"";"
            Else
                script = "window.open(""{0}"", ""{1}"");"
            End If
            script = String.Format(script, url, target, windowFeatures)
            ScriptManager.RegisterStartupScript(page, GetType(Page), "Redirect", script, True)

        End If
    End Sub

End Module

InformationsquelleAutor der Antwort Jack