|
|
Postada em 07/08/2010 00:24 hs
Fala feras! Estou precisando de mais uma ajuda. Estou querendo determinar que somente números entre em uma textbox, estou usando o seguinte comando:
Select Case KeyAscii
Case vbKeyDelete
Case vbKeyBack
Case 48 To 57
Case Else
MsgBox "Este campo só aceita NÚMERO!", vbExclamation + vbOKOnly, "AVISO"
KeyAscii = 0
End Select
só que eu queria usar também à virgula (,) dentro deste comando, alguém poderia me ajudar
|
|
|
|
|
|
Fausto
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2010 09:28 hs
Tem este:ve se serve. Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SoNumeros(KeyAscii)
End Sub
Function SoNumeros(Key As Integer) As String
'selecione os caracteres que desejar
Const Números$ = ",.0123456789"
SoNumeros = Key
If Key <> 8 Then 'conferindo se é backspace
'vê se é um caracter permitido
If InStr(Números$, Chr(Key)) = 0 Then
SoNumeros = 0
End If
End If
End Function |
|
|
|
gerarda
|
MONTE SIAO
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2010 14:18 hs
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "1234567890," & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
|
|
|
|
comendador
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2010 15:03 hs
Ai vocês são uns feras mesmo no VB heim! Todos os dois funcionaram perfeitamente.
Muito OBRIGADO!
|
|
|
|
