OCX DE NUMEROS

FEDERHEN 28/07/2010 10:30:23
#348692 Resposta escolhida

Eu não uso ocx ... A sub abaixo funciona muito bem em TextBox ou em Mask ...

Private Sub NomeObjeto_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr([Ô]0123456789,[Ô], Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

RIQUINHORICO07 28/07/2010 11:50:32
#348699

eu uso da seguinte maneira, em um text..........

--------------------------------------------------------------
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô] EM UM MODULO OU EM ALGUM LUGAR DO (GENERAL) [ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
Sub SoNumPonVir(KeyAscii As Integer)
[ô]digitação só aceita números, vírgulas e pontos
Dim Char As String
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
If KeyAscii = 8 Or KeyAscii = 44 Or KeyAscii = 46 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
----------------------------------------------------------------------------------
[ô][ô][ô][ô][ô][ô][ô][ô][ô] DENTRO DO TEXT [ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
Private Sub TxtValor_KeyPress(KeyAscii As Integer)
SoNumPonVir KeyAscii
End Sub

Se tiver alguma duvida, tamo ae !!!

MICROSCHEME 28/07/2010 16:11:45
#348716

Tenta isso:
no LostFocus da text

If Not IsNumeric(nomedatext.Text) Then MsgBox [Ô]Informação Invalida[Ô]
nomedatext.selstart = 0
nomedatext.sellenght = len(nomedatext.text)
nomedatext.setfocus
exit sub
endi if

. . .