[VB12] Visualizzare calcolo in textbox live

[Sonnyx74]

Ciao renygade,
perdona la mia ignoranza, sono un pò agli inizi e non capisco bene cosa vuoi dire, il mio codice funziona esegue tutte le operazioni, se provo ad inserire altri valori tipo lettere o simboli non lo fa fare quindi non vedo il motivo di fare la verifica, già mi accetta solo numeri, magari quella dei valori può essere una buona idea Grazie.Comunque per le TexBox2 e 4 ho usato questa formula:

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
If KeyAscii < 48 And KeyAscii <> 24 And KeyAscii <> 8 And e.KeyChar <> "," And e.KeyChar <> "." Then
KeyAscii = 0
ElseIf KeyAscii > 57 Then
KeyAscii = 0
End If
If e.KeyChar = "." Then
KeyAscii = 44
End If
If TextBox2.TextLength = 0 And KeyAscii = 44 Then
KeyAscii = 0
End If
If (KeyAscii = 44) And _
TextBox2.Text.IndexOf(",") > 0 Then
KeyAscii = 0
End If
e.KeyChar = Chr(KeyAscii)
End Sub

[renygade]

Ciao renygade,
perdona la mia ignoranza, sono un pò agli inizi e non capisco bene cosa vuoi dire, il mio codice funziona esegue tutte le operazioni, se provo ad inserire altri valori tipo lettere o simboli non lo fa fare quindi non vedo il motivo di fare la verifica, già mi accetta solo numeri, magari quella dei valori può essere una buona idea Grazie.Comunque per le TexBox ho usato questa formula:

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)
If KeyAscii < 48 And KeyAscii <> 24 And KeyAscii <> 8 And e.KeyChar <> "," And e.KeyChar <> "." Then
KeyAscii = 0
ElseIf KeyAscii > 57 Then
KeyAscii = 0
End If
If e.KeyChar = "." Then
KeyAscii = 44
End If
If TextBox2.TextLength = 0 And KeyAscii = 44 Then
KeyAscii = 0
End If
If (KeyAscii = 44) And _
TextBox2.Text.IndexOf(",") > 0 Then
KeyAscii = 0
End If
e.KeyChar = Chr(KeyAscii)
End Sub

Aspetta un attimo, fammi capire.. Lavori con vb6 o vb.net? Perché se usi vb.net c'è la funzione IsNumeric http://msdn.microsoft.com/it-it/libr...(v=vs.90).aspx per verificare che l'utente sta digirando numeri.. I
Comunque il mio suggerimento è questo: se tu vuoi che l'operazione venga eseguita e mostrata nella textbox devi intercettare l'inserimento dei numeri (evento textchange) nelle altre 2 textbox (minuendo e sottraendo). Quando in entrambi hai 2 numeri, allora solo in quel caso, esegui la sottrazione e mostri il risultato nella textbox differenza.

[Sonnyx74]

Io sto usando visual studio 2012, le soluzioni che trovo sono un mix tra il mio sapere(sufficiente) e quello che trovo su internet, quindi di sicuro anche per questo alcune cose non mi funzionano bene, se me lo spieghi solo a parole ho un pò di difficoltà ancora, di solito ho il mio libro di visual basic dietro ma a questo giro non me lo sono portato, ora mi studio un pò IsNumeric e ci riprovo, poi ti faccio sapere........Grazie mille !!!

[Sonnyx74]

Niente da fare ragazzi........... perdonatemi ma non sono assolutamente riuscito a farlo funzionare correttamente, in base alla parte di programma che ho scritto riuscite a darmi qualche indicazione pratica?
Ne ho veramente provate di tutte, ho cercato in largo e in lungo ma niente, funziona ma funziona a mezzo di sicuro manca quel poco per farlo funzionare, adesso vedo il risultato in euro ma solo se ci clicco sopra con un tasto, le operazioni funzionano correttamente, ma non riesco a vedere il calcolo in diretta e a formattare le celle con valore in euro, vi posto nuovamente i codici delle texbox, ho messo solo la somma e una delle due textbox l'altra è formattata uguale:

Private Sub TextBox32_Textchanged(sender As Object, e As EventArgs) Handles TextBox32.TextChanged, TextBox32.Leave
Dim differenza As String
differenza = CDbl(TextBox2.Text) - CDbl(TextBox4.Text)
TextBox32.Text = String.Format(CDec(differenza).ToString("c2"))
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)


If KeyAscii < 48 And KeyAscii <> 24 And KeyAscii <> 8 And e.KeyChar <> "," And e.KeyChar <> "." Then
KeyAscii = 0
ElseIf KeyAscii > 57 Then
KeyAscii = 0
End If
If e.KeyChar = "." Then
KeyAscii = 44
End If
If TextBox2.TextLength = 0 And KeyAscii = 44 Then
KeyAscii = 0
End If
If (KeyAscii = 44) And TextBox2.Text.IndexOf(",") > 0 Then
KeyAscii = 0
End If
e.KeyChar = Chr(KeyAscii)


TextBox2.Text = String.Format(CDec(reitanlo).ToString("C2"))


End Sub


Vi prego aiutatemi !!!

[renygade]

Niente da fare ragazzi........... perdonatemi ma non sono assolutamente riuscito a farlo funzionare correttamente, in base alla parte di programma che ho scritto riuscite a darmi qualche indicazione pratica?
Ne ho veramente provate di tutte, ho cercato in largo e in lungo ma niente, funziona ma funziona a mezzo di sicuro manca quel poco per farlo funzionare, adesso vedo il risultato in euro ma solo se ci clicco sopra con un tasto, le operazioni funzionano correttamente, ma non riesco a vedere il calcolo in diretta e a formattare le celle con valore in euro, vi posto nuovamente i codici delle texbox, ho messo solo la somma e una delle due textbox l'altra è formattata uguale:

Private Sub TextBox32_Textchanged(sender As Object, e As EventArgs) Handles TextBox32.TextChanged, TextBox32.Leave
Dim differenza As String
differenza = CDbl(TextBox2.Text) - CDbl(TextBox4.Text)
TextBox32.Text = String.Format(CDec(differenza).ToString("c2"))
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
Dim KeyAscii As Short = Asc(e.KeyChar)


If KeyAscii < 48 And KeyAscii <> 24 And KeyAscii <> 8 And e.KeyChar <> "," And e.KeyChar <> "." Then
KeyAscii = 0
ElseIf KeyAscii > 57 Then
KeyAscii = 0
End If
If e.KeyChar = "." Then
KeyAscii = 44
End If
If TextBox2.TextLength = 0 And KeyAscii = 44 Then
KeyAscii = 0
End If
If (KeyAscii = 44) And TextBox2.Text.IndexOf(",") > 0 Then
KeyAscii = 0
End If
e.KeyChar = Chr(KeyAscii)


TextBox2.Text = String.Format(CDec(reitanlo).ToString("C2"))


End Sub


Vi prego aiutatemi !!!

Ma almeno hai provato a fare come ti abbiamo detto?
a me non sembra proprio...
Comunque to.. di solito non si fornisce la pappa pronta nei forum. Non è "educativo"...

 Private Sub TxMinuendo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txSottraendo.KeyPress, TxMinuendo.KeyPress
        If IsNumeric(e.KeyChar) Then Exit Sub
        If Char.IsControl(e.KeyChar) Then Exit Sub
        If e.KeyChar = "," And TryCast(sender, TextBox).Text.Contains(",") = False Then Exit Sub
        e.Handled = True
    End Sub


    Private Sub TxMinuendo_TextChanged(sender As Object, e As EventArgs) Handles txSottraendo.TextChanged, TxMinuendo.TextChanged
        If TxMinuendo.Text.Length = 0 Or txSottraendo.Text.Length = 0 Then Exit Sub
        txDifferenza.Text = (CDec(TxMinuendo.Text) - CDec(txSottraendo.Text)).ToString("c2")
    End Sub

[Sonnyx74]

Ciao Renygade, ti ringrazio infinitamente per l'aiuto lo apprezzo molto..........come ho già detto non sono un professionista ma ancora agli inizi nonostante riesca a fare qualche passo, ho provato mille combinazioni da ieri ma non sono riuscito a trovare quella giusta come vedi, comunque capisco che passare i codici non sia educativo, ma non mi sembra nemmeno educato rispondere con toni al di fuori delle righe.........tutti abbiamo le nostre limitazioni e nessuno è nato Einstain.........Grazie di nuovo ti farò sapere se funziona secondo le mie esigenze CIAO !!!

[renygade]

Ciao

Ciao Renygade, ti ringrazio infinitamente per l'aiuto lo apprezzo molto..........come ho già detto non sono un professionista

Nemmeno io, anzi

ma ancora agli inizi nonostante riesca a fare qualche passo, ho provato mille combinazioni da ieri ma non sono riuscito a trovare quella giusta come vedi,

Beh, rispetto all'ultimo codice che hai postato non "vedo" grandi passi avanti rispetto alle risposte precedenti, nonostante ti avessi suggerito di vederti la funzione isNumeric

comunque capisco che passare i codici non sia educativo, ma non mi sembra nemmeno educato rispondere con toni al di fuori delle righe.....

Si, in effetti.. Scusa il tono. Non volevo passare per maleducato.
Il discorso del "poco educativo" è riferito al fatto che la cosa più utile dei forum è che ti spingono a studiare e a imparare, in modo che tu riesca da solo a far fronte alla maggior parte dei problemi che si possono trovare.

....tutti abbiamo le nostre limitazioni e nessuno è nato Einstain.........Grazie di nuovo ti farò sapere se funziona secondo le mie esigenze CIAO !!!

Vero. Resta il fatto che prima di tutto bisogna studiare e applicarsi, procedendo per prove ed errori.
Il codice l'ho provato.. funziona cioè fa la differenza "live".
La prossima volta cerca di seguire le indicazioni che gli altri utenti ti danno e di postare il codice "corretto", specificando cosa non funziona o dove sono gli errori