🚀 go-pugleaf

Ciao!
Se ti interessa ci sono due simpatiche api che permettono di inserire solo
numeri (senza decimali, purtoppo). Per conoscenza le scrivo qui.

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

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long

Poi fai una subroutine tipo questa:

Public Sub LeggiNumeri(ctrl As TextBox)

  Dim dwStyle As Long
  Dim lResult As Long

  dwStyle = GetWindowLong(ctrl.hwnd, GWL_STYLE)
  lResult = SetWindowLong(ctrl.hwnd, GWL_STYLE, dwStyle Or ES_NUMBER)

End Sub

Infine fai modo di associare una textbox a quella che diventa una finestra a
tutti gli effetti:

LeggiNumeri MiaTextBox

CIAO!

gino <ugino@libero.it> wrote in message
bdaP7.960$1o4.49041@twister2.libero.it...
> potresti provare cos�
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
>
>     Select Case KeyAscii
>         Case 48 To 57
>             ' per tasti numerici da 0 a 9
>         Case 8
>             ' per il tasto Canc
>         Case Else
>             ' per tutti gli altri tasti
>             Beep
>             KeyAscii = 0
>     End Select
>
> End Sub
>
> buon lavoro
> "Paolo" <paomal@libero.it> ha scritto nel messaggio
> news:hsfJ7.109421$sq5.5213750@news.infostrada.it...
> > Sono un neofita di VB6, lo sto' praticando da poco tempo e ho
> > bisogno di una mano da qualcuno piu' esperto di me.
> > Vorrei fare in modo che in una o piu' textbox possa solo digitare
> > numeri e non lettere e che quando sbaglio mi appaia un messaggio
> > di errore.
> > Vi Ringrazio anticipatamente
> > Paolo
> >
> >
> >
> >
> >
>
>
>