Visual Basic 6 - solo numeri

Forum - Visual Basic 6 - solo numeri

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 10:42
Venerdì, 30/10/2009

In una combobox vorrei soltanto digitare numeri .
Uso questo codice :
Sub Combo1_KeyPress(Ascii as integer)
If KeyAscii <> 8 Then
        If KeyAscii > 57 Or KeyAscii < 48 Then
            KeyAscii = 0
        End If
    End If
End sub

Purtroppo questo codice si può raggirare  con il mouse tramite il copia/incolla.
Pensavo allora di usare l’evento VALIDATE , che ne dite ?
Avete qualche esempio da sottopormi ?

delta (Normal User)
Pro

Messaggi: 96
Iscritto: 01/09/2009

Postato alle 12:28
Venerdì, 30/10/2009

non ne sono sicuro... l'evento change può andarti bene???

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 12:59
Venerdì, 30/10/2009

Non so , prova a postarlo lo stesso ; io comunque dovrei avre risolto così :

Private Sub Combo1_Validate(Cancel As Boolean)
'proprietà iniziale della combo1 causesvalidation = true
If Not IsNumeric(Combo1.Text) Then
MsgBox "Hai inserito caratteri non validi , riscrivi": Cancel = True: Combo2.SetFocus
End If
End Sub

the_angel (Normal User)
Expert

Messaggi: 471
Iscritto: 02/04/2009

Postato alle 15:36
Venerdì, 30/10/2009

Testo quotato

Postato originariamente da mash_mash:

Non so , prova a postarlo lo stesso ; io comunque dovrei avre risolto così :

Private Sub Combo1_Validate(Cancel As Boolean)
'proprietà iniziale della combo1 causesvalidation = true
If Not IsNumeric(Combo1.Text) Then
MsgBox "Hai inserito caratteri non validi , riscrivi": Cancel = True: Combo2.SetFocus
End If
End Sub