Ejemplo con un Array:
Ejemplo con una Estructura:
Public Struct STRUTTURA
b As Byte
s As Short
i As Integer
End Struct
Public Sub Main()
Dim st As New STRUTTURA
With st
.b = 99
.s = 9999
.i = 999999
End With
Prova(st)
With st
Print .b
Print .s
Print .i
End With
End
Private Function Prova(n As STRUTTURA)
With n
.b += 99
.s += 9999
.i += 999999
End With
End
b As Byte
s As Short
i As Integer
End Struct
Public Sub Main()
Dim st As New STRUTTURA
With st
.b = 99
.s = 9999
.i = 999999
End With
Prova(st)
With st
Print .b
Print .s
Print .i
End With
End
Private Function Prova(n As STRUTTURA)
With n
.b += 99
.s += 9999
.i += 999999
End With
End
Ejemplo con Puntero: