Visual Basic 6 - Inserimento di soli numeri in una TextBox

Forum - Visual Basic 6 - Inserimento di soli numeri in una TextBox - Pagina 2

Pagine: [ 1 2 ]

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 17:22
Domenica, 01/04/2007

io ho fatto così(non so se è quel che intendete):

Codice sorgente - presumibilmente VB.NET

Dim Cancella As Boolean
Dim Carattere As String
 
Private Sub Form_Load()
Cancella = False
End Sub
 
Private Sub Text1_Change()
If Cancella = True Then
   
   Text1.Text = Replace(Text1.Text, Carattere, vbNullString)
   Carattere = ""
   Cancella = False
   
End If
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 58 Then
 
Carattere = Chr(KeyAscii)
Cancella = True
 
End If
End Sub

C'è un unico problema(che ho riscontrato):
quando modifico il contenuto della text il cursore nella stringa passa all'inizio(e dà fastidio all'utente,almeno penso...).

()
Newbie

Messaggi:
Iscritto:

Postato alle 21:56
Martedì, 03/04/2007

Testo quotato

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

Stavo notando..

Testo quotato

Dim Cancella As Boolean
Dim Carattere As String

Private Sub Form_Load()
Cancella = False
End Sub

Private Sub Text1_Change()
If Cancella = True Then

Text1.Text = Replace(Text1.Text, Carattere, vbNullString)
Carattere = ""
Cancella = False

End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 58 Then

Carattere = Chr(KeyAscii)
Cancella = True

End If
End Sub

Infatti, i costrutti Sommariamente, hanno una stessa procedura...

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 12:00
Giovedì, 05/04/2007

no e completamente diverso. il mio fa 245 sostituzioni, il suo solo 1.

Pagine: [ 1 2 ]