vb6 evento keycode e tastierino numerico

[ciro78]

Ciao a tutti
Ho impostato l'evnto keycode in modo da evitare che qulcuno posa inserire testo invece di lettere
il problema che funziona solo se uso i numeri sotto i comandi f1 f2 etc,se uso quelli del tastierino numerico me lo rileva come lettera come mai????

[il_cenobita]

hai ustao l'evento keydown? come l'hai impostato?

[junx]

Devono essere solo numeri interi, o l'utente può inserire pure decimali?

posta il codice.

[Melly]

ci sono le api di windows che ti permettono di inserire ad esempio in una text solo valori numeri.

l'unico intoppo è che non ti permette di inserire la virgola per i decimali

Declare Function GetWindowLongA Lib "user32"
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" 
(ByVal hwnd As Long, ByVal nIndex As Long, 
ByVal dwNewLong As Long) As Long
Global Const GWL_STYLE = (-16)
Global Const ES_NUMBER = &H2000&

Sub CampoSoloNumeri(HwndCampoTesto As Long)
    Dim Estyle As Long
    Dim X As Long

    Estyle = GetWindowLongA(HwndCampoTesto, GWL_STYLE)
    Estyle = Estyle Or ES_NUMBER
    X = SetWindowLongA(HwndCampoTesto, GWL_STYLE, Estyle)

End Sub

se invece devi inserire anche numeri decimali puoi fare così

Public Function CampiDecimali(myAsciiCode As Integer) As Integer
 If myAsciiCode >= 48 And myAsciiCode <= 57 _
Or myAsciiCode = 46 Or myAsciiCode = 8 Then
    'Carattere valido
        CampiDecimali = myAsciiCode
    ElseIf myAsciiCode = 44 Then
        CampiDecimali = 46
    'Carattere non valido
    Else
        CampiDecimali = 0
    End If
    
    
End Function

e richiamarla nella text interessata in questo modo

Private Sub txtErrata_KeyPress(KeyAscii As Integer)
KeyAscii = CampiDecimali(KeyAscii)
End Sub

[junx]

ci sono le api di windows che ti permettono di inserire ad esempio in una text solo valori numeri.

non ti sembra eccessivo utilizzare le API per una cosa così banale?

Guarda qui:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

[ciro78]

ho risolto gia ma mi avevano risposto qui ke fine ha fatto la risposta?