Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    Vb6 - Impedire caratteri non conosni

    Salve a tutti
    Nella creazione di MOOOLTISSIMI form mi sono dimenticato del controllo caratteri delle textbox
    Ora dove sono permessi soltanto i numeri possono scriverci anche lettere creando scompiglio nel database!!!
    Come posso risolvere questo problema n fretta? Avevo provato con
    codice:
    if not isnumeric(caz.text) then
    caz.text = ""
    però non funziona perchè se per esempio sbaglio a scrivere l'ultima cifra questo costrutto mi azzera tutta la stringa!!!
    Grazie!

  2. #2
    Utente di HTML.it L'avatar di Fado84
    Registrato dal
    Feb 2004
    Messaggi
    347
    codice:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then
    KeyAscii = 0
    End If
    End Sub
    così impedisci all'utente di scrivere caratteri non numerici...
    se hai molte textbox fatti una funzione così:
    codice:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = ControllaDigitazione(KeyAscii)
    End Sub
    
    
    Public Function ControllaDigitazione(KeyAscii As Integer) As Integer
    If Not IsNumeric(Chr(KeyAscii)) Then
    KeyAscii = 0
    End If
    ControllaDigitazione = KeyAscii
    End Function

    ciau!

    se ho cannato qualcosa o hai bisogno di altro chiedi pure...

  3. #3
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Originariamente inviato da Fado84
    codice:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then
    KeyAscii = 0
    End If
    End Sub
    così impedisci all'utente di scrivere caratteri non numerici...
    se hai molte textbox fatti una funzione così:
    codice:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = ControllaDigitazione(KeyAscii)
    End Sub
    
    
    Public Function ControllaDigitazione(KeyAscii As Integer) As Integer
    If Not IsNumeric(Chr(KeyAscii)) Then
    KeyAscii = 0
    End If
    ControllaDigitazione = KeyAscii
    End Function

    ciau!

    se ho cannato qualcosa o hai bisogno di altro chiedi pure...
    Ciao, direi che non è il massimo... soprattutto per il fatto che in questa maniera non puo' usare il tasto BackSpace..

    Se il TextBox deve accettare solo ed esclusivamente numeri interi positivi poi modificare lo style della textbox con l'api SetWindowLong in modo che accetta solo numeri, mentre se deve accettare numeri in virgola mobile positivi e negativi, allora devi costruirti tu una funzione, o altrimenti prova a vedere se ti va bene l'oggetto MaskEdit
    Jupy

  4. #4
    Utente di HTML.it L'avatar di Fado84
    Registrato dal
    Feb 2004
    Messaggi
    347
    giusto... era una bozza quello che gli ho mandato.. può rimediare mettendo qualche and or ecc... poi per tutti gli altri cazzilli penso sia in grado di aggiungerseli...
    vedendo quello che aveva postato lui...
    codice:
    if not isnumeric(caz.text) then
    caz.text = ""
    pensavo volesse fare una cosa tipo quello che gli ho spedito...
    poi basta mettere un and per rispondere alla sua domanda
    Ora dove sono permessi soltanto i numeri possono
    ciao a tutti!!

  5. #5
    Grazie degli aiuti
    Riepilogando ho varie textbox in cui possono essere scritti vari numeri decimali.
    Volevo sapere la differenza tra
    sub e function
    function deve per forza restiturre un valore, ok ma
    tra public e private, quale è la differenza?

  6. #6
    una public può essere vista in tutto il progetto mentre una private no.
    Boicottiamo la coca cola...
    http://www.tmcrew.org/killamulti/cocacola/

  7. #7
    A proposito ma non funziona il backspace usando la funzione detta sopra, come posso fare?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.