[VB6] Input solo numerico

[folal]

Salve,
come possofare in modo elegante un controllo che
verifichi alla prossione di un tasto che il carattere
inserito in un textbox sia un numero e:

-se è un numero, l'input avviene regolarmente
-se è un carattere l'input non avviene e nel campo non
viene visualizzato nulla.

Grazie

[LMondi]

Ciao folal !
Potresti usare questa funzione:

Option Explicit
'-------------------------
Public Function CtrDig(KeyAscii As Integer) As Integer
If Not IsNumeric(Chr(KeyAscii)) Then
    KeyAscii = 0
End If
    CtrDig = KeyAscii
End Function
'-------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = CtrDig(KeyAscii)
End Sub

[xegallo]

secondo me sarebbe preferibile controllare l'evento change per evitare i taglia incolla

[LMondi]

xegallo non ho capito. Mi interessa, spiegati meglio.

[axsw]

Ciao prova così:

Public Sub txtbox_Change()
  If IsNumeric(txtbox.Text) Then
   'quello che vuoi che faccia
      Else:
        MsgBox "Casella di testo txtbox: INSERIRE SOLO VALORI NUMERICI!", vbCritical, "nomedeltuoprogramma"
  txtbox.SetFocus
  Exit Sub
 End If
End Sub

[Mabi]

C'è la FAQ 99

[LMondi]

axsw funziona bene. Mi sono permesso di fare una piccola modifica in modo che sia cancellato l'inserimento Non numerico.

Public Sub Txt1_Change()
    
    Dim ix As String
    Dim ixs As String
    Dim ix2 As String
    
    ix = Len(Txt1.Text)
    If ix = 0 Then
        Exit Sub
    End If
    
    ixs = (Txt1.Text)
    If IsNumeric(Txt1.Text) Then
        Txt1.SetFocus
        Else
        MsgBox "Casella di testo Txt1: INSERIRE SOLO VALORI NUMERICI!", vbCritical, "nomedeltuoprogramma"
        ix2 = Mid(ixs, 1, (ix - 1))
        Txt1.Text = ix2
        Exit Sub
    End If
End Sub

[LMondi]

xegallo, così va bene ?

[XVincentX]

io faccio una cosa semplice semplice

private sub text1_change()
if not isnumeric(text1.text) then
text1.text = ""
end if

Puoi cambiare text1_change con text1_lostfocus

[folal]

Grazie ai vostri consigli ho trovato un modo veloce
ed abbastanza pulito per fare quello che cercavo.

Lo scrivo in modo che possa servire anche ad altri:

Private Sub txtCampo_KeyPress(KeyAscii As Integer)
If (((KeyAscii < 48) Or (KeyAscii > 57)) And ((KeyAscii <> 13) And (KeyAscii <> 8) And (KeyAscii <> 188) And (KeyAscii <> 46))) Then
KeyAscii = 0
End If
End Sub


Grazie.