Visual Basic para Aplicaciones - 2 CONSULTAS!!!

Life is soft - evento anual de software empresarial
   
Vista:

2 CONSULTAS!!!

Publicado por Raul (2 intervenciones) el 24/03/2008 20:00:05
Hola, tengo 2 consultas:

CONSULTA 1
Tengo este codigo para que me avise si en un Textbox introducen mas de 4 letras

largo_entrada = Len(Me.TextBox2)
Select Case largo_entrada
Case 5
MsgBox "No puede ingresar mas de 5 numeros"
End Select

Pregunta: ¿Como hago para que ademas de avisarme que he ingresado mas de 5 numeros, borre el ultimo ingresado?

CONSULTA 2
Que codigo uso para indicar que vaya de un textbox a otro apretando la tecla "enter"?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Barra de proreso en Excel
- Metodos Numéricos
- Quinigrama

RE:2 CONSULTAS!!!

Publicado por JuanC (243 intervenciones) el 25/03/2008 14:10:06
Private Sub TextBox1_Change()
If Len(TextBox1) > 4 Then
MsgBox "No puede ingresar más de 5 números"
TextBox1 = Mid(TextBox1, 1, 4)
End If
End Sub

otra forma...
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) > 3 Then KeyAscii = 0
End Sub

para lo segundo mirá la propiedad EnterKeyBehavior del Textbox
también esto otro...
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = VBA.vbKeyReturn Then
MsgBox "enter!"
End If
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar