Array in Klasse übergeben
17.05.2009 19:49:49
trumb23
Mein Hauptprogramm
Private Sub CommandButton1_Click()
Dim jo As Besucherstatistik
Dim i As Integer
Dim x As Integer
Dim j As Integer
wiederhole1:
x = InputBox("Wieviele Messetage wollen sie erfassen")
If x >= 10 Then
MsgBox ("Es können maximal 10 Besucher erfasst werden")
GoTo wiederhole1
End If
ReDim besucher(1 To x) As Long
For i = LBound(besucher) To UBound(besucher)
wiederhole2:
besucher(i) = InputBox("Wie viel Besucher waren am " & i & ". Tag auf der Messe?")
If besucher(i) >= 20000 Then
MsgBox ("Es können maximal 20000 Besucher erfasst werden")
GoTo wiederhole2
End If
j = j + 1
Set jo = New Besucherstatistik
i = ta.jo
besucher(i) = bes.jo
Set jo = Nothing
Next i
End Sub
Meine Klasse:
Private Tag As Integer
Private besucher As Integer
Public Property Let ta(t As Integer)
Tag = ta
End Property
Public Property Let bes(b As Integer)
besucher = b
End Property