Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

HINWEIS

Kapitel 2: Programmieren mit VBA

Eine Kopierroutine.

Sub copyBytes(fromArray() As Byte, toArray() As Byte)

Dim i As Integer

ReDim toArray (Lbound(fromArray) To UBound(fromArray))

For i = Lbound(fromArray) To Ubound(fromArray)

toArray(i) = fromArray(i)

Next i

End Sub

Die Verwendung:

Dim i As Integer

Dim array1(3) As Byte ' Quellarray

Dim array2() As Byte ' Zielarray

' Quellarray füllen:

array1(0) = CByte(48): array1(1) = CByte(12)

array1(2) = CByte(56): array1(3) = CByte(96)

Call copyBytes(array1, array2) ' kopieren

For i = 0 To UBound(array2) ' anzeigen

MsgBox array2(i)

Next i

Rückgabe von Arrays

Funktionen sind in VBA auch zur Rückgabe von Arrays in der Lage.

Die Funktion liefert ein Byte-Array:

Function byteArray(b As Byte) As Byte()

Dim a(2) As Byte ' statisches Array

a(0) = b

a(1) = b + CByte(100)

a(2) = b + b

byteArray = a

End Function

Die Verwendung der Funktion:

Dim b As Byte, i As Integer

Dim arr() As Byte ' dyn. Array, muss gleichen Datentyp (Byte) haben!

b = CByte(48)

arr() = byteArray(b) ' der Aufruf

For i = 0 To UBound(arr)

MsgBox arr(i) ' liefert die drei Werte 48, 148, 96

Next i

Beim Funktionstyp kann es sich auch um den Typ Variant handeln.

118