C# / VB.NET - [vb.net 2013]Completamento textbox automatico

Forum - C# / VB.NET - [vb.net 2013]Completamento textbox automatico - Pagina 2

Pagine: [ 1 2 ]

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 0:35
Venerdì, 25/04/2014

Ma che diavolo è sta roba?

Codice sorgente - presumibilmente C# / VB.NET

If TextBox1.Text.EndsWith(",") Then
      Textbox1.Text &= ",00"
End If

Se vuoi un arrotondamento decimale a due cifre (sottoforma di stringa, nel tuo caso)

Basta che usi la funzione Format

Codice sorgente - presumibilmente VB.NET

'CDbl lo uso per una conversione esplicita da string (textbox.text) a double (round)
Dim Round As Double = CDbl(Val(Textbox1.Text))
Dim numero As String = Format(Round, "0.00" )
Textbox1.Text = numero

N.B. Ricorda che in america la virgola è usata per separare i numeri ogni 3 cifre (1,000,000) mentre il punto è usato per i decimali (Es. 1,045.56) quindi, devi utilizzare il punto.

Ultima modifica effettuata da R0gerBlack il 25/04/2014 alle 0:36

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 10:33
Venerdì, 25/04/2014

Codice sorgente - presumibilmente VB.NET

'CDbl lo uso per una conversione esplicita da string (textbox.text) a double (round)
    Dim Round As Double = CDbl(Val(Textbox1.Text))
    Dim numero As String = Format(Round, "0.00" )
    Textbox1.Text = numero

Perfetto R0gerBlack adesso funziona alla perfezione!

Però aggiungo un'altra domanda. Se volessi usare questa funziona anche quando premo il tasto TAB? Ho letto che è impossibile disattivare la funzione TAB è vero?
Vi ringrazio

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 12:19
Venerdì, 25/04/2014

Sbagliato, il codice del tasto TAB in Visual Basic è dato dalla funzione

Codice sorgente - presumibilmente C# / VB.NET

ProcessTabKey(ByVal forward As Boolean)

Se sovrascriviamo questa funzione con una personalizzata, puoi eseguire quello che ti serve quando viene premuto il tasto tab, prima - o dopo - della sua effettiva funzione. Anzi se vuoi puoi persino eliminarla:

Codice sorgente - presumibilmente VB.NET

'Esempio di polimorfismo: Modifichiamo la funzione originale ProcessTabKey
Protected Overrides Function ProcessTabKey(ByVal forward As Boolean) As Boolean
    'Anteponiamo questo codice al costruttore MyBase
    If sanzione.Focused Then
        'Codice da eseguire alla pressione del tasto Tab
    End If
    'Richiamiamo la funzione originale: 
        'Se l'istruzione MyBase.ProcessTabKey(forward) viene commentata
    'Il pulsante tab perderà il suo effetto
    MyBase.ProcessTabKey(forward)
    Return True
End Function

EDIT
Rileggendo il primo post, ho visto che vuoi anche che il pulsante invio funga da tab. Se vuoi fare questo puoi risparmiare ulteriormente codice inserendo questo codice nella Sub sanzione_KeyPress

Codice sorgente - presumibilmente VB.NET

If e.KeyCode = Keys.Enter Then
     'Esegui il codice del pulsante tab sovrascritto
     ProcessTabKey(True)
     e.SuppressKeyPress = True
End If

Ultima modifica effettuata da R0gerBlack il 25/04/2014 alle 12:43

Pagine: [ 1 2 ]