|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Apenas Números num TexBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'Coloque num form um TextBox e um CommandButton.
'No Declarations ponha:
Option Explicit
Private Declare Function GetWindowLong& Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = (-16)
'No Click do CommandButton ponha:
Private Sub Command1_Click()
Dim tmpValue&
Dim fAlignment&
Dim ret&
fAlignment& = ES_NUMBER
tmpValue& = GetWindowLong&(Text1.hwnd, GWL_STYLE)
ret& = SetWindowLong&(Text1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Text1.Refresh
End Sub
Quando você executar perceberá que o TextBox permite que você digite QUALQUER coisa, mas quando você precionar o CommandButton ele SÓ receberá números. Ele não aceitará nem mesmo o ponto (.) e a virgula (,).
|
|
|
|
|
