Fernando
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 02/04/2007 19:01 hs
Boa tarde!!! Como faço para não permitir que o usuario não digite uma letra em um textbox, ou ainda, para que ele ao digitar letras o textbox ignore-a, somente numero. Estou fazendo uma calculadora e preciso desse recurso. Obrigado |
|
|
|
|
|
|
|
Postada em 02/04/2007 19:13 hs
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 96 And KeyCode <= 105 Then
Text1.Locked = False
'MsgBox "Números"
Else
Text1.Locked = True
End If
End Sub
Na propriedade KeyDown do objeto Text1 coloque essa rotina assima.
Abraços,...
|
|
|
|
Jose.Niz
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2007 02:05 hs
Permitindo somente números e backspace numa text box via API:
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE As Long = &HFFFFFFF0
Private Const ES_NUMBER As Long = &H2000
Private defstyle As Long
Private Sub Form_Load()
defstyle = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Text1.hwnd, GWL_STYLE, defstyle Or ES_NUMBER
End Sub
Permitindo somente números, backspace e ponto decimal numa text box sem API:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 8 ' Backspace
' Case Is = 44 ' Virgula
Case Is = 46 ' POnto decimal
Case 48 To 57 ' Numeros de 0 a 9
Case Else
KeyAscii = 0
End Select
End Sub
|
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2007 16:13 hs
ou voce pode usar o ACTIVETEXT é uma ocx muito completa. ela está disponivel na seção TROCAS do forum essa seção somente é visivel para usuarios registrados.
Roberto
roberto@vbweb.com.br
|
|
|
|
