Incrementare un valore in una casella di testo (era:aiutoooooooooooooo!)

[Toeke]

ci sono alcuni errori da correggere:

-.
Nel form_load metti la

text2.txt="0"

-.
Dim contA, contB, contC, contAS As Integer

Se il tuo scopo era quello di dichiarare queste quattro variabili a integer sappi che le prime 3 sono dichiarate come variant che 'e di default, mentre solo l'ultima e' un integer.
Per cui se e' come credo la dichiarazione dovrebbe essere fatta in questa maniera:

    Dim contA As Integer
    Dim contB As Integer
    Dim contC As Integer
    Dim contAS As Integer

Per provare il tuo programma ho aggiunto due variabili integer nel metodo click del command1, ora nn so se tu le hai a livello globale per cui questa parte prendila come un controllo

    Dim i As Integer
    Dim Punteggio As Integer

Dopo di che veniamo alla parte che forse ti sta + a cuore da quello che leggo.

Teolo ha commesso un piccolo errore.

    Next i
    If contA = 2 Then
        punteggio=punteggio+10 'incremento la variabile  
        text2.text=punteggio 'assegno il valore a una textbox 
        MsgBox "ci sono due 1"
    ElseIf contA = 3 Then
        punteggio=punteggio+100
        text2.text=punteggio 
        MsgBox "ci sono tre 1"
    End If

IN questa maniera nn aggiungera' mai il punteggio, la formula corretta e' la seguente:
Il punteggio ad ogni tiro te lo metti dentro la casella di testo text2, per cui al punteggio successivo se si verifica la condizione aggiungi il nuovo punteggio al valore preso nella casella di testo

    Next i
    If contA = 2 Then
        punteggio=text2.text+10 'incremento la variabile  
        text2.text=punteggio 'assegno il valore a una textbox 
        MsgBox "ci sono due 1"
    ElseIf contA = 3 Then
        punteggio=text2.text+100
        text2.text=punteggio 
        MsgBox "ci sono tre 1"
    End If

P.s. Perdona errori di scrittura o altri


Spero di averti aiutato











Toe