Tengo un textbox.
Bueno, en el aparecen unas letras, y quiero que cuando se haga click dentro del textbox se borren todas las letras automaticamente.
Tambien necesito saber como puedo hacer que no se puedan introducir caracteres numericos o caracteres de estos: ), (, [, ], =, /, -, %, ¬, etc.., (es que no me acuerdo que nombre tienen estos).
Gracias, Saludos
Private Sub Text1_Click()
Text1.Text = ""
End Sub
easy.
te dejo un ejemplo de como hacer un filtro:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Char(1 To 8) As String
Char(1) = "(": Char(2) = ")": Char(3) = "[": Char(4) = "]"
Char(5) = "=": Char(6) = "/": Char(7) = "-": Char(8) = "%"
Dim i As Long
For i = 1 To 8
If Chr(KeyAscii) = Char(i) Then KeyAscii = 0
Next i
End Sub
;D Salu2, David
Otra manera:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90 'Caracteres May
Case 97 To 122 'Casracteres Mim
Case 241 'Letra ñ
Case 209 'Letra Ñ
Case Else
KeyAscii = 0
End Select
End Sub
ninguno de los filtros es bueno.... porque si pulsa control+v puede pegar varias cosas y con eso solamente detectas la v xD
el filtro debes aplicarlo sobre todo el valor del txt
sería mismamente lo que warghost dijo (en un while no en for) añadiendole otro while que recorra toda la cadena del text1.text y el evento seria el text1_change
menuo lio de explicación que he dao, nose si se entendera
Cita de: Hans el Topo en 8 Noviembre 2006, 16:49 PM
menuo lio de explicación que he dao, nose si se entendera
Te responderé si me he enterado con la pregunta de que, crees que alguien que entendiera algo de VB sin un codigo preguntaria lo que he preguntado yo? (xD)
De verdad que no me he enterao ^^.
Ponme algun ejemplo con un poco de codigo así me entero tambien por medio de la practica.
Gracias.
Por cierto, no quisiera abrir otro post para preguntar otra cosa que tendrá facil solucion así que aprovecho.
¿Como puedo poner un botón tipo de estos de arriba de muchos programas, que tienen por ejemplo de nombre, file, o de nombre tools?
Ya me entienden, los botons de la barra de herramientas de arriba.
Gracias de nuevo.
Saludos
Private Sub Text1_Change()
Dim Char(1 To 8) As String
Char(1) = "(": Char(2) = ")": Char(3) = "[": Char(4) = "]"
Char(5) = "=": Char(6) = "/": Char(7) = "-": Char(8) = "%"
Dim i As Long
For i = 1 To 8
If InStr(1, Text1.Text, Char(i)) <> 0 Then
Text1.Text = Replace(Text1.Text, Char(i), "")
End If
Next i
End Sub
Si eso es para quitar todas las letras no me ha funcionado :-\.
Bueno, además de eso tambien sigo preguntando, como puedo crear un botón de esos despegables de la barra de herramientas de arriba de cualquier programa.
Gracias de nuevo
CitarTe responderé si me he enterado con la pregunta de que, crees que alguien que entendiera algo de VB sin un codigo preguntaria lo que he preguntado yo? (xD)
bueno vale ya llevo mucho tiempo mordiendome la lengua pero tengo que decirlo pq teneis una cara que ya es inaguantable. si no sabes lees pq estas preguntando cosas basicas que antes de empezar a instalar vb deberias saber, si no quieres leer es tu problema pero deja de preguntar cosas que molestan.
Cita de: - en 8 Noviembre 2006, 19:37 PM
CitarTe responderé si me he enterado con la pregunta de que, crees que alguien que entendiera algo de VB sin un codigo preguntaria lo que he preguntado yo? (xD)
bueno vale ya llevo mucho tiempo mordiendome la lengua pero tengo que decirlo pq teneis una cara que ya es inaguantable. si no sabes lees[size=9],[/size] pq estas preguntando cosas basicas que antes de empezar a instalar vb deberias saber, si no quieres leer es tu problema pero deja de preguntar cosas que molestan.
No creo que deba de saber antes de empezar a instalar VB como poder poner un filtro de letras ^^, no tienes porque morderte la lengua ^^.
Antes de postear, busqué "filtrar", y solo me venían 3 posts en los que ninguno era.
Y bueno, si no se hacer eso, tendré que preguntarlo...,
Yo y quien más? :S
Os he molestado?: WarGhost, Hans el topo, Tesis y 8========D~.~??
Si es así, lo siento
Creo que por ahí, va una coma
Creo que lo del filtro es tu tema que cuando se empieza no se sabe pero vamos esto:
Private Sub Text1_Click()
Text1.Text = ""
End Sub
xDDD, eso no es programacion solo son las propiedades no creo que tenga mucho secreto xDD.
;D Salu2, David
Venga gracias, aqui se acaba el tema :D
Cita de: Hans el Topo en 8 Noviembre 2006, 16:49 PM
ninguno de los filtros es bueno.... porque si pulsa control+v puede pegar varias cosas y con eso solamente detectas la v xD
el filtro debes aplicarlo sobre todo el valor del txt
sería mismamente lo que warghost dijo (en un while no en for) añadiendole otro while que recorra toda la cadena del text1.text y el evento seria el text1_change
menuo lio de explicación que he dao, nose si se entendera
Tienes razón Hans el Topo, pense que era algo mas simple. :P
http://foro.elhacker.net/index.php/topic,147741.msg693546.html#msg693546
creo que eso si que funciona y tan complicado no es :-X
Si, funciona a la perfect., mejor no me complico más, que para una simple calculadora ^^.
encima vienes con tonterias, esto ya es para mondarse. seguir asi yo simplemente ya paso. vamos de mal en peor.
Bueno, esta ya es la ultima respuesta que posteo en este post, lo siento, is te han parecido tonterias o preguntas n00b