vb@rchiv · Tipps & Tricks · Self-Increment Funktion in VB

Rubrik: Variablen/Strings · Sonstiges | VB-Versionen: VB5, VB6

17.11.02

Self-Increment Funktion in VB Ein Zähler der sich bei Aufruf selbst erhöht
Autor: Jürgen Markart	Bewertung:	Views: 13.441
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Vor kurzem wurden Ihnen hier im vb@rchiv zwei Funktionen vorgestellt, mit denen sich "Laufvariablen" schnell um einen beliebigen Wert erhöhen oder verringern lassen:
Incr und Decr in VB

Manchmal ist es aber auch notwendig, z.B. Arrays sequentiell mit Werten zu füllen. Dabei wird der Index des Arrayelements jeweils um eins erhöht. Wenn der Anfangsindex variabel ist, dass heißt, keine festen Indexes benutzt werden können, so muss man einen Zähler benutzen, der für jedes Arrayelement um eins erhöht wird, z.B.:

Index = SomeIndex + 1
ArrayItem(Index) = Value1
 
Index = Index + 1
ArrayItem(Index) = Value2
 
Index = Index + 1
ArrayItem(Index) = Value3
 
..

Eleganter geht das mit einer Funktion, die den Index um eins erhöht zurückgibt. Das sieht dann so aus:

Index = SomeIndex + 1
ArrayItem(Incr(Index)) = Value1
ArrayItem(Incr(Index)) = Value2
ArrayItem(Incr(Index)) = Value3
...

Die Funktion selbst besteht aus folgendem Code:

Public Function Incr(ByRef vIndex As Variant, _
  Optional ByVal nStep As Long = 1) As Long
 
  vIndex = vIndex + nStep
  Incr = vIndex
End Function

Das ganze jetzt noch rückwärts, d.h. der Index soll immer um eins verringert werden:

Public Function Decr(ByRef vIndex As Variant, _
  Optional ByVal nStep As Long = 1) As Long
 
  vIndex = vIndex - nStep
  Decr = vIndex
End Function

Soll der Zähler um mehr als eins erhöht bzw. verringert werden, setzen Sie für nStep einfach die gewünschte Schrittweite ein:

' Beispiel
ArrayItem(Incr(Index, 2)) = Value1