) katalog " Tillträde " anger omfattningen av användningen för detta förfarande , och kan vara " privat ", " Public ", " vän" eller "skyddad . " " Name of Procedure " är namnet på din sub förfarande , som bör vara vägledande för dess funktionalitet . " Byvalorbyref " är antingen " ByVal " eller " ByRef " som förklaras i nästa steg . " Argument " är argumentet du kommer att passera till sub förfarandet , och " datatyp " är datatypen för "argument . "
2
Bestäm om du vill passera parameter värdet ( ByVal ) eller genom hänvisning ( ByRef ) och ange detta i det första meddelandet . " Med värde " innebär att förfarandet gör en kopia av den ursprungliga variabeln som gått och inte röra det ursprungliga datafältet . " Med hänvisning " innebär att förfarandet inte göra en kopia , men använder själva datafältet skickas till den , och kan göra ändringar i den . Även om det kan finnas omständigheter då du kommer att vilja förfarandet för att ändra värdet på en parameter , är det oftast inte en bra idé att låta din procedur för att ändra det ursprungliga datafältet , så " ByVal " är Visual Basic standard .
3
kod det första meddelandet om din procedur med en lista med argument om du vill passera mer än ett argument för det . Ett sådant uttalande skulle se ut ungefär så här funktionen procedur exempel :
Private Function Calc ( ByVal Antal As Integer , ByVal skiva som Decimal , ByVal Base så Decimal ) som Decimal
Calc = Antal * ( ( 1 - Disc ) * Base ) katalog
End Function
denna procedur tar tre argument , beräknar pris och returnerar numret på den som ringer uttalande , som skulle se ut ungefär så här :
Pris = Calc ( Ant , skiva , Bas ) katalog p Det är viktigt att den uppringande uttalandet ger argumenten som exakt typ och nummer att förfarandet väntar .
