vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Verschiedenes / Sonstiges   |   VB-Versionen: VB5, VB624.03.01
Vector in Visual-Basic

Intelligente Array-Vector-Klasse zur einfachen Verwaltung mehrere Objekte.

Autor:   flashBewertung:     [ Jetzt bewerten ]Views:  17.785 
www.martin-will.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 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

Dieser Tipp wurde bereits 17.785 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel