Vector in Visual-Basic Intelligente Array-Vector-Klasse zur einfachen Verwaltung mehrere Objekte.
Autor:   flash	Bewertung:	Views:  19.604
www.martin-will.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit der Vector-Klasse kann man viele Objekte ganz einfach verwalten. Über die add-Methode lassen sich dem Vector beliebige Objekte hinzufügen. Eine ausfürhliche Beschreibung zum Vecktor finden Sie auf der Homepage des Autors.

Hier der Quellcode der Klasse in der Version 1.0. Auf der Homepage des Autors liegt eine DLL mittlerweile in Der Version 1.1 vor. Diese beinhaltet ein paar kleine weiter, aber nützliche Methoden.

' Vektor - Klasse für VB
Option Explicit
Private vector() As Object
 
Private Sub Class_Initialize()
  ReDim vector(0)
End Sub
 
Public Sub add(obj As Object)
  ReDim Preserve vector(UBound(vector) + 1)
  Set vector(UBound(vector)) = obj
End Sub
 
Public Sub delete_element(Index As Long)
  On Error GoTo fehler
  If Index = 0 Then Err.Raise 1
  Set vector(Index) = Nothing
  Dim i As Long
  For i = Index To UBound(vector) - 1
    Set vector(i) = vector(i + 1)
  Next i
  ReDim Preserve vector(UBound(vector) - 1)
  Exit Sub
 
fehler:
  Call index_out_of_bounds
End Sub
 
Public Function get_Index() As Long
  get_Index = UBound(vector)
End Function
 
Public Function get_object(Index As Long) As Object
  On Error GoTo fehler
  If Index = 0 Then Err.Raise 1
  Set get_object = vector(Index)
  Exit Function
 
fehler:
  Call index_out_of_bounds
End Function
 
Private Sub index_out_of_bounds()
  Err.Raise 60000, , "Index im Vector nicht gefunden"
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.