|
|
Postada em 13/06/2006 18:13 hs
Gostaria que na minha TextBox, aceitaria apenas número. Como faço? VLW |
|
|
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/06/2006 18:19 hs
Veja este codigo: Select Case KeyAscii
Case 8 'Backspace (seta de apagar)
Case 48 To 57 'Números de 0 a 9
Case Else
KeyAscii = 0 'Não deixa nenhuma outra caractere ser escrito
End Select
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
Css
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/06/2006 18:40 hs
Sim mas não consegui, como seria o código? obrigado |
|
|
|
|
|
Postada em 13/06/2006 21:14 hs
tenta colocar o código do colega no evento KeyPress do Textbox t+ |
|
|
|
Perci
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/06/2006 07:53 hs
Experimenta colocar a função abaixo no módulo porque assim você poderá usar para qualquer folmulário. Function SoNumeros(Key As Integer) As String
Const numeros$ = "0123456789"
SoNumeros = Key
If Key <> 8 Then ' conferindo se é backspace
'vê se é caracter permitido
If InStr(numeros$, Chr(Key)) = 0 Then
SoNumeros = 0
End If
End If
End Function
Depois no evento KeyPress da TextBox você coloca a seguinte linha: keyascii = SoNumeros(keyascii) Veja se dá certo. |
|
|
|
|
|
Postada em 14/06/2006 08:14 hs
Galera, tem um jeito bem mais fácil:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
Exit Sub
End If
End Sub
|
|
|
|
