Stecken Sie mit Konzepten der "Funktion" in VB fest? Wenn ja, lesen Sie diese Anleitung, um die sogenannten Konstrukte von "Funktion" im Paradigma von VB zu lernen.
Schritte
Schritt 1. Was ist Funktion?
- Verwenden Sie eine Function-Prozedur, wenn Sie einen Wert an den aufrufenden Code zurückgeben müssen.
- Eine Funktion selbst hat einen Typ, und die Funktion gibt basierend auf dem darin enthaltenen Code einen Wert an die aufrufende Unterroutine zurück.
Schritt 2. Wie deklariere ich Funktion?
- Sie können eine Funktionsprozedur nur auf Modulebene definieren. Dies bedeutet, dass der Deklarationskontext für eine Funktion eine Klasse, Struktur, ein Modul oder eine Schnittstelle sein muss und keine Quelldatei, kein Namespace, keine Prozedur oder kein Block sein darf.
- Eine Funktion wird genauso wie eine Subroutine deklariert, außer dass das Schlüsselwort "Function" anstelle von "Sub" verwendet wird.
- Funktionsprozeduren haben standardmäßig öffentlichen Zugriff. Sie können ihre Zugriffsebenen mit den Zugriffsmodifikatoren anpassen.
Schritt 3. Wie rufe ich Funktion auf?
- Sie rufen eine Function-Prozedur auf, indem Sie den Prozedurnamen gefolgt von der Argumentliste in Klammern in einem Ausdruck verwenden.
- Sie können die Klammern nur weglassen, wenn Sie keine Argumente angeben. Ihr Code ist jedoch besser lesbar, wenn Sie immer die Klammern einschließen.
- Eine Funktion kann auch mit der Call-Anweisung aufgerufen werden, wobei der Rückgabewert ignoriert wird.
- Um einen Wert zurückzugeben, weisen Sie dem Namen der Funktion einen Wert des richtigen Typs zu, als wäre es eine Variable.
Syntax
Erklärung
[accessmodifier] [proceduremodifiers] [Shared] Funktionsname [(Of typeparamlist)] [(parameterlist)] [As returntype] [Anweisungen] [Exit Function] [Anweisungen] End Function
Berufung
'Ohne Aufruf Function_Name() 'Mit Aufruf Aufruf Function_Name()
Beispiel
Ein Beispiel für eine Funktion, die zwei Zahlen addiert, ist unten gezeigt
Private Funktion Add(ByVal x As Integer, ByVal y As Integer) As Integer Dim Res as Integer Res = x + y Add = Res End Function Private Sub Form_Load() Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Add(a, b) MsgBox ("Sum is: " & c) End Sub