vb6 procedura per controllo dati in casella testo

[ciro78]

Salve a tutti.

dovrei controllare quello che l'utente scrive all'interno delle caselle di testo
avevo in passato, utilizzato l'evento keypress con il seguente codice..

Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is < 32
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox "solo numeri!"
End Select
End Sub

il concetto è lo stesso ma, il codice o meglio la procedure, dovrebbe essere richiamata da un modulo e applicata ad una matrice di caselle di testo
Come soluzione ho pensato di controllare il valore che immette l'utente e analizzarlo ma, mi sembra molto + professionale utilizzare una cosa del genere

grazie a tutti

[ciro78]

ho visto che per controllare una matrice di controlli non basta far altro che controllare il controllo singolo per controllarli tutti

a questo punto michiedo
è possibile inserire la procedura keypress in un modulo senza doverla riscrivere per ogni form?
ho provato varie soluzioni ma fino ad ora nessuna è risultata valida

[arcadia]

MODULO:

Public Function checkNum(KeyAscii As Integer) As Integer
    Select Case KeyAscii
    Case Is < 32
        checkNum = KeyAscii
    Case 48 To 57
        checkNum = KeyAscii
    Case Else
        checkNum = 0
    End Select
End Function

CHIAMATA ALLA FUNZIONE:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = checkNum(KeyAscii)
End Sub

Ma comunque la devi chiamare ogni volta.

[ciro78]

scusmai m al afunzione ceckNum è tipica del vb o l'hai creata tu?

[arcadia]

No....l'ho creata io in base al codice che avevi postato tu....
se non ti piace il nome chiamala PincoPallino:

Public Function PincoPallino(KeyAscii As Integer) As Integer
    Select Case KeyAscii
    Case Is < 32
        PincoPallino = KeyAscii
    Case 48 To 57
        PincoPallino = KeyAscii
    Case Else
        PincoPallino = 0
    End Select
End Function

[ciro78]

no no era giusto per sdapere se era una procedura creta da te perchè in effetti è simile a quella che avevo io solo che non risucivo a capire come implementarla ..
grazie