Thema Datum  Von Nutzer Rating
Antwort
18.05.2021 11:45:45 KaKaKa
NotSolved
18.05.2021 12:32:14 Mase
NotSolved
18.05.2021 12:52:40 KaKaKa
NotSolved
18.05.2021 13:19:55 Trägheit
NotSolved
18.05.2021 13:39:57 KaKaKa
NotSolved
18.05.2021 13:51:09 Trägheit
NotSolved
18.05.2021 14:10:47 KaKaKa
NotSolved
18.05.2021 14:27:51 Trägheit
NotSolved
18.05.2021 14:50:30 KaKaKa
NotSolved
Blau Frage zu Klassenprogrammierung
18.05.2021 15:38:43 Trägheit
NotSolved
18.05.2021 15:44:30 Mase
NotSolved
18.05.2021 15:48:17 Trägheit
NotSolved
18.05.2021 17:08:46 KaKaKa
NotSolved
18.05.2021 17:16:14 Gast91440
NotSolved
18.05.2021 19:09:11 xlKing
NotSolved
18.05.2021 19:32:51 Gast75132
NotSolved
18.05.2021 19:51:25 xlKing
NotSolved
18.05.2021 20:07:17 xlKing
NotSolved
19.05.2021 07:12:28 KaKaKa
NotSolved
19.05.2021 18:30:44 xlKing
NotSolved
20.05.2021 11:59:26 KaKaKa
NotSolved

Ansicht des Beitrags:
Von:
Trägheit
Datum:
18.05.2021 15:38:43
Views:
531
Rating: Antwort:
  Ja
Thema:
Frage zu Klassenprogrammierung

Supi.

Noch mal zum Vergleich:

'Klasse 'Auto1'
Option Explicit
'
Private m_intBaujahr As Integer
'
 
 
Public Property Get Baujahr() As Variant
    Baujahr = m_intBaujahr
End Property
 
Public Property Let Baujahr(ByVal vNewValue As Variant)
    m_intBaujahr = vNewValue
End Property

Verwendung:

auto1.Baujahr = 2021 'Property Let
If auto1.Baujahr = 2021 Then 'Property Get

 

Ich denke der Unterschied zu deiner Umsetung wird jetzt bereits sichtbar.

'Klasse 'Auto2'
Option Explicit
Dim alter As Integer '<- man sollte hier Private nutzen ... ist einfacher zu verstehen als Dim
 
Public Function getAlter() As Integer
getAlter = alter
End Function
 
Public Sub setAlter(iAlter As Integer)
alter = iAlter
End Sub
 
Private Sub Class_Initialize()
alter = 10
End Sub

Verwendung:

auto2.setAlter 10
If auto.getAlter() = 10 Then

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2021 11:45:45 KaKaKa
NotSolved
18.05.2021 12:32:14 Mase
NotSolved
18.05.2021 12:52:40 KaKaKa
NotSolved
18.05.2021 13:19:55 Trägheit
NotSolved
18.05.2021 13:39:57 KaKaKa
NotSolved
18.05.2021 13:51:09 Trägheit
NotSolved
18.05.2021 14:10:47 KaKaKa
NotSolved
18.05.2021 14:27:51 Trägheit
NotSolved
18.05.2021 14:50:30 KaKaKa
NotSolved
Blau Frage zu Klassenprogrammierung
18.05.2021 15:38:43 Trägheit
NotSolved
18.05.2021 15:44:30 Mase
NotSolved
18.05.2021 15:48:17 Trägheit
NotSolved
18.05.2021 17:08:46 KaKaKa
NotSolved
18.05.2021 17:16:14 Gast91440
NotSolved
18.05.2021 19:09:11 xlKing
NotSolved
18.05.2021 19:32:51 Gast75132
NotSolved
18.05.2021 19:51:25 xlKing
NotSolved
18.05.2021 20:07:17 xlKing
NotSolved
19.05.2021 07:12:28 KaKaKa
NotSolved
19.05.2021 18:30:44 xlKing
NotSolved
20.05.2021 11:59:26 KaKaKa
NotSolved