Italian Svuotare una EditText

[Manuel1954]

Salve amici, il problema di oggi:
Ho delle EditText che uso per fare dei calcoli, con un solo Button Calcola, ad esempio txt1+txt2 = lblRisultato click btnCalcola
txt3*txt4 = lblRisultato2 click btnCalcola

Vorrei fare in modo che le EditText usate per primo calcolo e dopo il risultato si svuotino e poter passare alle successive.

Grazie 1000 per ogni suggerimento.

Manuel

:sign0085:

 

[fifiddu70]

puoi fare in questo modo:
dichiari una variabile, dim val as int
poi gli dici che txt1 = val
una volta che gli hai fatto fare il calcolo, scrivi che val = 0
stessa cosa fai per le altre text, credo che così dovresti risolvere.

 

[fifiddu70]

io ad esempio uso una sub del tipo:

Sub reset 
   val=0
   TotalVal= 0
   txteuro.Text = val
   txttotaleeuro.Text=TotalVal
      
End Sub

ovviamente ci sono molti metodi.

 

[Manuel1954]

Grazie 1000, sei sempre molto disponibile, come sempre, ho fatto vari test ma, poi ho scelto di ciclare con 3 If diversi, e così funziona egregiamente.

Il codice è simile a questo:

btnCalcola_click
If txtEdit1.text <> "" AND txtEdit2 <> "" Then
lblRisultato.Text = txtEdit1.Text/txtEdit2.Text
lblRisultato.Text = NumberFormat(lblRisultato.Text, 1,2)
End If
If txtEdit3.text <> "" AND txtEdit4 <> "" Then
lblRisultato.Text = txtEdit3.Text*txtEdit4.Text
lblRisultato.Text = NumberFormat(lblRisultato.Text, 1,2)
End If

Ciao Manuel