Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Inserimento  di soli numeri in una TextBox
Forum - Visual Basic 6 - Inserimento di soli numeri in una TextBox

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
zubizarreta (Normal User)
Rookie


Messaggi: 59
Iscritto: 21/01/2007

Segnala al moderatore
Postato alle 19:20
Mercoledė, 28/03/2007
ciao...mi sevirebbe una mano...

voglio ke nell mie TextBox si possano inserire solo numeri e non caratteri, e nel caso si inserirebbero caratteri il programma deve solo cancellare quel carattere lė. Il tutto nll'evento Change della TextBox.

Il mio metodo (ke tra l'altro non č neanke mio) č cosė:

Private Sub txtprogramma_Change()
Dim car As String
If Text1.Text <> "" Then
    If Len(Text1.Text) <> 0 Then
        car = Asc(Mid(Text1.Text, Len(Text1.Text), 1))
        If car < 48 Or car > 57 Then
            Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
        End If
    End If
    Text1.SelStart = Len(Text1.Text)
End If
End Sub

Il problema che ha questo "mio" codice č questo: il cancellamento dell'eventuale carattere inserito avviene olo se il carattere viene inserito al fondo di tutta la strinha (come ultimo carattere); mentre se lo inserico in un'altra qualsiai posizione, non avviene il cancellamento,...
Io nn so cm spiegarlo in un altro modo;  se mi avete capito e mi potete aiutare....aiutatemi...pleaseee  
Grazie:k:

Ultima modifica effettuata da zubizarreta il 28/03/2007 alle 19:24
PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 22:00
Mercoledė, 28/03/2007
for x = 1 to len( text1.text )
if mid( text1.text , x , 1 ) = "0" or mid( text1.text , x , 1 ) = "1" or mid( text1.text , x , 1 ) = "2" or mid( text1.text , x , 1 ) = "3" or mid( text1.text , x , 1 ) = "4" or mid( text1.text , x , 1 ) = "5" or mid( text1.text , x , 1 ) = "6" or mid( text1.text , x , 1 ) = "7" or mid( text1.text , x , 1 ) = "8" or mid( text1.text , x , 1 ) = "9"

else
Text1.text = Replace(Text1.text, mid( text1.text , x , 1), Chr(0))
end if
next x

oppure fai un replace di tutti i caratteri diversi dai numeri.

PM Quote
Avatar
zubizarreta (Normal User)
Rookie


Messaggi: 59
Iscritto: 21/01/2007

Segnala al moderatore
Postato alle 15:51
Giovedė, 29/03/2007
grazie...ma cosė..nn fa proprio qll ke voglio..io: se provo a mettere un carattere NON in ultima posizione, questo codice fa si ke mi cancelli tutti i numeri scritto dopo....
esempio:
ho quetso contenuto nella TextBox:  2548
1) se metto un carattere dopo l'8 , č tutto ok.. come anke il mio;
2) se lo metto x esempio tra i 5 e il 4, il carattere non viene messo, ma mi cancella il 4 e l'8.

cm posso fare? :-?

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:16
Venerdė, 30/03/2007
e un
for x = 1 to 46
text1.text=replace(text1.text,Chr(x),"")
next x
for x = 58 to 255
text1.text=replace(text1.text,Chr(x),"")
next x

Ultima modifica effettuata da P4p3r0g4 il 30/03/2007 alle 14:17
PM Quote
Avatar
zubizarreta (Normal User)
Rookie


Messaggi: 59
Iscritto: 21/01/2007

Segnala al moderatore
Postato alle 21:31
Venerdė, 30/03/2007
ok grazie PaP;

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 16:09
Sabato, 31/03/2007
nada
xō cosė č un po lento ogni volta che inserisci un carattere fa 245 operazioni.. cerca di sveltire la procedura.

PM Quote
Avatar
Hacker (Member)
Guru


Messaggi: 1014
Iscritto: 06/06/2006

Segnala al moderatore
Postato alle 13:14
Domenica, 01/04/2007
perchč proprio nell'evento change?:-|

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 15:15
Domenica, 01/04/2007
pensavo che facessi un programma che automaticamente togliesse il carattere..

PM Quote
Avatar
Hacker (Member)
Guru


Messaggi: 1014
Iscritto: 06/06/2006

Segnala al moderatore
Postato alle 15:38
Domenica, 01/04/2007
?

Ultima modifica effettuata da Hacker il 01/04/2007 alle 15:41
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo