Globale Klasseneigenschaften
Moin zusammen,
hier eine Frage eines echten VB Anfängers. Die Experten hier werden die Krise kriegen, aber ich finde einfach keine passende Erklärung im Netz zu meiner Frage.
Also:
Ich habe
Form1.vb
frm_config.vb
class_config.vb
die class_config hat diverse Eigenschaften z.B. path_logfile
wenn ich jetzt innerhalb von Form1 ein Objekt aus class_config erzeuge und das als public deklariere kann ich natürlich innerhalb von Form1 auf die Eigenschaften zugreifen.
Wie kann ich diese aber auch von frm_config aus benutzen? Wenn ich da ein neues Objekt erzeuge habe ich natürlich nicht die Eigenschaften, die ich in Form1 gesetzt habe.
Ist mein Denkansatz so falsch? Wie "macht man" sowas denn sonst?
Gruß
Christoph
hier eine Frage eines echten VB Anfängers. Die Experten hier werden die Krise kriegen, aber ich finde einfach keine passende Erklärung im Netz zu meiner Frage.
Also:
Ich habe
Form1.vb
frm_config.vb
class_config.vb
die class_config hat diverse Eigenschaften z.B. path_logfile
wenn ich jetzt innerhalb von Form1 ein Objekt aus class_config erzeuge und das als public deklariere kann ich natürlich innerhalb von Form1 auf die Eigenschaften zugreifen.
Wie kann ich diese aber auch von frm_config aus benutzen? Wenn ich da ein neues Objekt erzeuge habe ich natürlich nicht die Eigenschaften, die ich in Form1 gesetzt habe.
Ist mein Denkansatz so falsch? Wie "macht man" sowas denn sonst?
Gruß
Christoph
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 135807
Url: https://administrator.de/forum/globale-klasseneigenschaften-135807.html
Ausgedruckt am: 05.04.2025 um 02:04 Uhr
3 Kommentare
Neuester Kommentar
Nun, es kommt ganz drauf an was du genau willst..
eine Möglichkeit wäre, die Klasse als Parameter zu übergeben.
Beispiel (grob)
eine Möglichkeit wäre, die Klasse als Parameter zu übergeben.
Beispiel (grob)
Public class Form1
Private frm2 as class2
private sub iwas..
dim cls as new class1
cls.myproperty = "MyValue" 'whatever
frm2 = new Class2(cls)
frm2.show
End sub
end class
'frm2:
Public Class Class2
Private Cls2 as Class2
Public Sub New(ByVal cls as Class2)
Cls2 = cls
End sub
'alternativ geht auch eine Methode/Eigenschaft zum Klassen übergeben
end class