Function ByRef
08.12.2003 10:27:10
Lars
ich will in einer Funktion eine Variable ByRef verändern.
Public
Function xyz(ByRef a as byte)
a=5
End Function
Sub egal()
dim b as Byte
b=2
xyz (b)
'hier ist b immer 2!!!
End Sub
was mache ich falsch?
Ich hab noch ein Problem, was muß ich machen um einer Funktion ein Array zu übergeben???
Public
Function ClearKT_SendArray(ByRef KT_Array() As Byte)
End Function
Sub egal()
dim Array(5) as Byte
ClearKT_SendArray (Array)'-> funktioniert nicht
ClearKT_SendArray (Array(0))'-> funktioniert nicht
'... aber was funktioniert ???
End Sub