Programación General > Visual Basic para principiantes

 Para El Que Me Pueda Ayudar

(1/2) > >>

Ivannightcrawler:
Salu2 amigos...  tengo un par de duditas a ver si me pueden ayudar...

1)  ¿Saben como le hago para que cuando en un Textbox que se escriba un numero mayor que 101, aparesca un textbox y luego de limpie el textbox?..
este es el codigo que stoy usando, pero  no me esta funcionando.

If Text1 >= 101 Then
MsgBox ("No se aceptan # mayores de 100")
Text1 = ""
Text1.SetFocus
End If


2) Como puedo hacer que luego de haber escrito 3 digitos en una casilla, al darle a la tecla ENTER se ejecute un commandbutton?.. o como hago que luego de haber escrito los digitos, el "focus" me lleve al commandbutton?...


Agradesco toda ayuda que me puedan dar.
Saludos.

_Edwin90:
B) Ivannightcrawler eso es muy sencillo Fijate
 para el del 101

if text1.text = < 100 then
msgbox "No se aceptan # mayores de 100"
text1.Text = ""
end if

o tambien text1.MaxLength = 3

para el de enter:
Private Sub txtTexto_KeyPress(KeyAscii As Integer)
'esta sencilla función nos permite ke al dar enter se manden los datos
'determina dentro de la caja "txtTexto"ke tecla se pulsa, si la tecla es KeyAscii 13 (Enter), se mandan los datos

If KeyAscii = 13 and text1.MaxLength = 3 then
   
y haces la funcion aki lo keres ke haga

End If

espero te sirva  B)

ElNapster:
1.
--- Citar ---If Text1.Text > 100 Then

    end if
--- Fin de la cita ---

2.  con el evento keypress del textbox


--- Código: Text ---Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCommand1.SetFocusEnd If End Sub 

Ivannightcrawler:
bueno.. con el primer codigo...  
no me resulto, me aparecio un letrero que decia " Runtime Error 13 "..  


y con el 2do.. pues.. aun no encuentro como acomodarlo, .. tengo que es exactamente lo que tengo que reemplazar?..  he aqui como lo tengo:

Private Sub text4_change()

Dim text4 As Integer
If KeyPress = 13 Then
Command1.SetFocus
End If

end sub

Ivannightcrawler:
hey, ya pude resolver lo de la tecla enter.. muchas gracias =).

pero aun me falta poder lograr que la casilla donde digito los numeros se limpie si son mayores de 101.    
¿alguien sabe que pudiera estar mal?....

este el el codigo completo que tengo en el textbox:


Private Sub Text1_Change()

'este es para que no acepta letras, solo numeros

Dim ls_texto As String
Dim c As Integer

ls_texto = Trim(Me.Text1)

For c = 1 To Len(ls_texto)
If Not IsNumeric(Mid(ls_texto, c, 1)) Then
ls_texto = Mid(ls_texto, 1, Len(ls_texto) - 1)
End If
Next c

Me.Text1 = ls_texto
Me.Text1.SelStart = Len(ls_texto)

'Para que los # no sean mayor que 100
If Text1.Text > 100 Then
MsgBox "No se aceptan # mayores de 100"
Text1.Text = ""
End If

End Sub

Navegación

[0] Índice de Mensajes

[#] Página Siguiente