Forum des VBA-Tutorials

Auflistungen airbags (VBA)

Nico, Mittwoch, 25. Oktober 2017, 13:09 (vor 27 Tagen)

Hallo zusammen!
Trotz Suche im Forum und gefundenen Leuten die das gleiche Problem hatten aber ne Lösungen fanden, krieg ich diese Aufgabe nicht hin...
Ich habe Porgrammiert:

Modul 1
Option Explicit

Public Sub Autos()
Dim meinAuto As Auto
Set meinAuto = New Auto

meinAuto.Airbagan.AirbagsEinbauen
End Sub

Klasse Auto
Public Property Get Radio() As Auto_Radio
Set Radio = New Auto_Radio
End Property

Public Property Get Airbagan() As Airbag
Set Airbagan = New Airbag
End Property
Klasse Airbag
Private myAirbags As New Collection

Public Property Get Airbags() As Collection
Set Airbags = myAirbags
End Property


Public Sub AirbagsEinbauen()
Dim Air1 As New Airbag, Air2 As New Airbag

Air1.Name = "Fahrer"
Air2.Name = "Beifahrer"

myAirbags.Add Air1, "Fahrer"
myAirbags.Add Air2, "Beifahrer"

End Sub


Es wäre super nett wenn mir einer meinen Fehler aufzeigen und verbessern könnte... vielen Dank im Voraus
Nico


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum