 Autor
|
Tema: textbox me acepte solo numeros?? (Leído 36,817 veces)
|
Angeldj27
 Desconectado
Mensajes: 199
Ahorra Agua... Beba Cerveza
|
La que yo siempre utilizo es esta funcion Private Function Valor10(Tecla As Integer) As Integer
Dim StrValido As String
StrValido = "1234567890."
If Tecla > 26 Then
If InStr(StrValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
Valor10 = Tecla
End Function
Y en el evento keypress del text la llamo Private Sub txtCantidad_KeyPress(KeyAscii As Integer)
Call Valor10(KeyAscii)
End Sub
siempre me ha funcionado bien Saludos...
|
|
|
|
|
En línea
|
"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!
|
|
|
|
cobein
|
SetWindowLong(tutextbox.hWnd, GWL_STYLE, ES_NUMBER)
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Aqui dejo un Snippet usando el Api GetWindowLong y SetWindowLong: Option Explicit Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Sub Form_Load() Call OnlyNumbers(Text1.hwnd) End Sub Public Function OnlyNumbers(ByVal lHwnd As Long) As Boolean Dim New_Style As Long Dim Act_Style As Long Act_Style = GetWindowLong(lHwnd, (-16)) 'Const GWL_STYLE As Long = -16 If Not (Act_Style And &H2000&) Then 'Const ES_NUMBER As Long = &H2000& New_Style = (Act_Style Or &H2000&) 'Const ES_NUMBER As Long = &H2000& OnlyNumbers = SetWindowLong(lHwnd, (-16), New_Style) 'Const GWL_STYLE As Long = -16 End If End Function
Saludos  |
|
|
|
|
En línea
|
|
|
|
Frikimaster
Desconectado
Mensajes: 35
Dim Frikimaster As BPF [Battle Programmer Friki]
|
Aqui dejo un Snippet usando el Api GetWindowLong y SetWindowLong: Option Explicit Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Sub Form_Load() Call OnlyNumbers(Text1.hwnd) End Sub Public Function OnlyNumbers(ByVal lHwnd As Long) As Boolean Dim New_Style As Long Dim Act_Style As Long Act_Style = GetWindowLong(lHwnd, (-16)) 'Const GWL_STYLE As Long = -16 If Not (Act_Style And &H2000&) Then 'Const ES_NUMBER As Long = &H2000& New_Style = (Act_Style Or &H2000&) 'Const ES_NUMBER As Long = &H2000& OnlyNumbers = SetWindowLong(lHwnd, (-16), New_Style) 'Const GWL_STYLE As Long = -16 End If End Function
Saludos Disculpa, yo que soy nuevecito en esto...que es un snippet?  , aunque entiendo que el codigo es para que acepte solo numeros...supongo que sera algun tipo de programa, pero podrias decirme que significa? Simple curiosidad de novato XD Frikimaster
|
|
|
|
|
En línea
|
La musica de la logica nunca fallara al sonar la melodia de la verdad.
|
|
|
|
cobein
|
Snippet (programming)
From Wikipedia, the free encyclopedia
Snippet is a programming term for a small region of re-usable source code or text
|
|
|
|
|
En línea
|
|
|
|
Frikimaster
Desconectado
Mensajes: 35
Dim Frikimaster As BPF [Battle Programmer Friki]
|
Console.Writeline ("Gracias");
Frikimaster
|
|
|
|
|
En línea
|
La musica de la logica nunca fallara al sonar la melodia de la verdad.
|
|
|
ricardovinzo
Desconectado
Mensajes: 135
P.T.C
|
porque no se usa el operador asi: If IsNumeric(Text1.text) = False then msgbox("Hay letras") else msgbox("No hay letras") end if
|
|
|
|
|
En línea
|
3# Convocacion de Moderadores en Code Makers, entra! |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
TextBox que solo acepta números enteros o de punto flotante [¿Aporte?]
.NET (C#, VB.NET, ASP)
|
Xavelets
|
3
|
8,261
|
21 Septiembre 2011, 23:38 pm
por Xavelets
|
|
|
|
como validar jtxtbox para que acepte solo números!
Java
|
washington8277
|
7
|
7,124
|
29 Octubre 2012, 15:33 pm
por ChavalChavito
|
|
|
|
[SOLUCIONADO] Permitir solo una coma en un textbox
.NET (C#, VB.NET, ASP)
|
Eleкtro
|
4
|
6,012
|
15 Enero 2013, 16:48 pm
por Eleкtro
|
|
|
|
activar columna de datagrid y que acepte solo datos numericos
.NET (C#, VB.NET, ASP)
|
SAGA-gl
|
1
|
5,211
|
5 Septiembre 2017, 04:02 am
por Eleкtro
|
|
|
|
Programa que solo acepte números
Programación C/C++
|
julio1
|
2
|
1,979
|
4 Febrero 2019, 19:19 pm
por julio1
|
 |
