+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Controllo su textbox

  1. #1
    mark81 non è in linea Novello
    Salve a tutti. Devo eseguire un controllo su una textbox dove viene inserita una valuta es (25,00). Devo praticamente far capire al controllo che se viene inserita solo la cifra iniziale (vale a dire solo il 25 per seguire con l'esempio) me lo deve sostituire con 25,00. come posso fare??
    Grazie a tutti

  2. #2
    Per esempio, prova con

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
    Text1.Text = Format(Val(Text1.Text), "0.00")
    End If
    End Sub

    che formatta il tuo valore quando pressi l'invio.

    Oregon

  3. #3
    L'avatar di Louis
    Louis non è in linea Scribacchino
    Se hai molte texbox puoi usare questa funzione che obbliga la risposta con di 2 decimali, trasforma la stringa in double ed infine arrotonda per eccesso o per difetto:

    Da inserire in un modulo bas:
    Option Explicit
    Public Function Ctr(strTesto As String)
    On Error Resume Next
    If IsNumeric(strTesto) Then
    **Ctr = Format(CDbl(strTesto), "#,##0.00")
    **Else: Ctr = 0
    End If
    End Function
    -------------------------------------------------------
    Modulo della form:
    Private Sub Command1_Click()
    Text2.Text = Ctr(Text1.Text)
    End Sub

    Fammi sapere se ti funziona.
    ℹ️ Leggi di più su Louis ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. controllo textbox
    Da donini nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 03-07-2005, 20:16
  2. Programmi di controllo
    Da nevrit1 nel forum Microsoft Windows
    Risposte: 2
    Ultimo Post: 08-06-2005, 13:59
  3. Controllo a run-time
    Da bornslippy nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 27-05-2005, 11:44
  4. controllo tipo di dato su textbox
    Da manupil nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 13-03-2004, 10:39
  5. Controllo da vb SO
    Da Jonathan nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 18-09-2003, 18:52