Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Object kopieren

Object kopieren
31.01.2003 13:53:12
Ronald Schlenker
Hallo!
Ich habe eine Klasse geschrieben. In einer Prozedur instanziiere ich sie mir Dim xyz as New Klasse. Anschließend fülle ich die Klasse mit Daten. Nun möchte ich eine Kopie dieser Klasse erstellen, mit genau den selben Werten. Mit dem "Set"-Statement kann man ja nur Referenzen erzeugen, d.h. wenn ich an der Referenz etwas ändere, so ändert sich auch das Ausgangsobject.

Kann mir jemand weiterhelfen, wie ich Objecte kopiere?
Vielen Dank!!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Object kopieren
31.01.2003 14:27:48
Hans W Hofmann

Hallo Roland,

Du musst Deiner Klasse eine Methode schreiben, die eine Kopie von sich selbst anleget. In C++ wäre das ein Zuweisungsoperator in VBA?


Gruß HW

Re: Object kopieren
31.01.2003 14:28:45
Micahel Scheffler

Hallo,

IMHO ist Vererbung in VB nicht möglich.

Gruß

Micha

Re: Object kopieren
31.01.2003 14:37:45
Thomas Risi

Hallo Ronald

Versuch's mal etwa so :))

Klasse (mycls):


Option Explicit

Public A As Long
Public B As Long

Public Sub Go()
    MsgBox Me.A
End Sub

Public Function Clone() As mycls
    
    Dim myClone As New mycls
    
    myClone.A = Me.A
    myClone.B = Me.B
    
    Set Clone = myClone
    
End Function
 

Modul:


Option Explicit

Dim c As New mycls
Dim d As New mycls

Sub Test()
    
    c.A = 55
    c.B = 33
    
    c.Go
    
    Set d = c.Clone
    
    c.A = 22
    
    c.Go
    d.Go
    
End Sub
 

     Code eingefügt mit Syntaxhighlighter 1.15

Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige