USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Apenas Números num TexBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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 (,).
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página