✔ Werte von Textboxen addieren

[marcusfreese]

Moin Moin,
Du hast recht ich bin noch nicht so sicher mit dem programmieren, daher lasse ich mich noch schnell in alle Richtungen jagen, wenn es um die Lösung meines Problems geht

Wenn ich die "rot" makierte Zeile einfüge, dann kracht es!!

    Private _AdditionTextboxes As TextBox()

    Public Sub New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        _AdditionTextboxes = New TextBox() {TextBox19, TextBox21, TextBox22, TextBox23, TextBox24}

    End Sub

    Private Sub TextBox19_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles _
           TextBox21.TextChanged, TextBox22.TextChanged, TextBox23.TextChanged, _
           TextBox24.TextChanged
        Dim Result As Double = 0
        For Each TB As TextBox In _AdditionTextboxes

        Next

    End Sub

Kann mir jemand sagen warum?

VG Marcus

 

[FwDonnerbalken]

Hallo Marcus,

auch diesen Code habe gerade gestestet und er funktioniert einwandfrei. Bitte gib uns die Fehlermeldung, mit der "kracht". Durch Rumprobieren können wir dir leider nicht helfen.

 

[MCoder]

Teste doch mal die Gültigkeit von "_AdditionTextboxes":

If NOT _AdditionTextboxes Is Nothing Then
    For Each TB As TextBox In _AdditionTextboxes
        'Berechnung
    Next    
Else
    'Fehler, Nullobjekt
End If

Gruß
MCoder

 

[marcusfreese]

Moin!;-)
Danke für Antworten. Habe mal in der Hilfe gesucht und ein lieber Forumuser hat mir es erklärt... Problem war das die Textboxen gebunden nicht Initialisiert werden können und VB dann einen 0-Wert zurück gibt. Den kann man abfangen mit einer Abfrage. Dat is es !!

Vielen Dank MCoder & allen Anderen für euere Mühe!