Evidenziare testo in textbox

Hai un problema con Excel?

Nuova discussione

Evidenziare testo in textbox
di Piolo (utente non iscritto) data: 06/06/2010
Ciao a tutti, ho un form con due textbox, e con il codice allegato vorrei ottenere, che digitando un numero nella textbox1 e premendo il tasto "piu" il numero viene sommato a quello che è nella textbox2 e riscriverlo nella textbox2 e dovrebbe evidenziare il numero digitato prima nella textbox1.
dico vorrei perchè avviando la routine con f5 mi fa la somma ma invece di evidenziare il numero digitato mi scrive il segno "piu", invece usando f8 mi evidenzia il numero, che pero è sempre 0.

qualcuno ha la soluzione?
grazie.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    numero = Val(TextBox1.Text)
    If Chr(KeyAscii) = "+" Then ' tra le virgolette c'è il segno "piu"
        piu numero
        TextBox1.Text = numero
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
    End If
End Sub


Sub piu(numero)
    totale = Val(TextBox2.Text) + numero
    TextBox2.Text = totale
    TextBox1.Text = ""
End Sub

di Albatros54 (utente non iscritto) data: 06/06/2010
Invece di associare l'evento alla pressione del tasto , ho associato l'evento ad un commandbutton1 e chiamando la funzione piu con il suo nome (perche si tratto di un udf), il tutto sembra funzionare.
ciao
albatros54

Private Sub CommandButton1_Click()
  numero = Val(TextBox1.Text)
        piu (numero)
        TextBox1.Text = numero
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
    
End Sub


Function piu(numero)
    totale = Val(TextBox2.Text) + numero
    TextBox2.Text = totale
    TextBox1.Text = ""
End Function

Vuoi Approfondire?