Buongiorno a tutti

Sto usando le Api di windows per vincolare i valori di inserimento di una text....

...praticamente il codice mi permette di inserire in una text solo campi numerici.....

.....il io problema è che non mi accetta il punto e la virgola per i decimale

C'è qualcuno che sa aiutarmi??

Posto qui di seguito il mio codice

modello base

Global Const GWL_STYLE = (-16)
Global Const ES_NUMBER = &H2000&

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


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


e nel form

Private Sub Form_Load()
CampoSoloNumeri (Text1.hwnd)
End Sub

Grazie a tutti ciao ciao