Somma di 20 textbox

[chipdb]

Originariamente inviato da gyonny
...in alternativa crei una matrice di text e una variabile dimensionale e racchiudi tutto in un ciclo for

Mi sembra la cosa più coerente da fare per risolvere un problema del genere. Al limite se non vuoi (o non puoi) cambiare nome alle TextBox, usa il Costrutto FOR EACH ... NEXT.

Ti posto un codice di esempio:

Dim Somma As Double

Private Sub Command1_Click()
    Dim Obj As TextBox
    
    Somma = 0
    
    On Error Resume Next
    For Each Obj In Me
        Somma = Somma + CDbl(Obj)
    Next Obj
    
    MsgBox Somma
End Sub

Ciao