Esperti Api

[Melly]

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

[darkblOOd]

scusami, la pasqua mi ha reso ancora + fagiano




tornando a noi: hai necessità di usare le API? Non puoi usare l'evento KeyPress :master:

[Melly]

Originariamente inviato da darkblOOd




scusami, la pasqua mi ha reso ancora + fagiano

[darkblOOd]

Originariamente inviato da darkblOOd
tornando a noi: hai necessità di usare le API? Non puoi usare l'evento KeyPress :master:

[Melly]

Originariamente inviato da darkblOOd

era un metodo per evitare di fare controlli....


ho 8000000000000 di text

[darkblOOd]

Originariamente inviato da Melly
era un metodo per evitare di fare controlli....


ho 8000000000000 di text

capito...ovviamente usi VB6 no? (con VB.NET te ne uscivi con una sola routine)

potresti fare una function con la stessa firma dell'evento KeyPress che restituisca un boolena e ad ogni evento di ogni controllo chiami la function passando gli argomenti ed imposti il Cancel della KeyPress sul risultato della function

[Melly]

Originariamente inviato da darkblOOd
capito...ovviamente usi VB6 no? (con VB.NET te ne uscivi con una sola routine)

potresti fare una function con la stessa firma dell'evento KeyPress che restituisca un boolena e ad ogni evento di ogni controllo chiami la function passando gli argomenti ed imposti il Cancel della KeyPress sul risultato della function

:master:

[darkblOOd]

potresti fare così:

Private Function TestChar(myAsciiCode as integer) As integer
   'Fai i controlli che devi
   If Controlli = ok Then
      'Carattere valido
      Return myAsciiCode
   Else
      'Carattere non valido
       Return 0
  End If
End Fucntion

e ad ogni kei press fai:

KeyAscii = TestChar(KeyAscii)

dove KeyAscii è il valore del carattere premuto alla KeyPress

[Melly]

Grazie mille darkello

proverò a risolvere in questo modo..

[darkblOOd]

Originariamente inviato da Melly
Grazie mille darkello

proverò a risolvere in questo modo..

anche perchè con le API non ho mai provato a risolvere un problema simile

Buon lavoro