Programación General > Visual Basic 6.0 e inferiores

 Textbox

<< < (2/2)

F_Tanori:
http://foros.solocodigo.com/index.php?showforum=41

Visual Basic For Applications (VBA)


Puedes hacer algo como esto


--- Código: Text ---Private Sub TextBox1_Change()  If Len(TextBox1) = 3 Then    TextBox2.SetFocus  End IfEnd Sub  
o usar la propiedad MaxLength estableciendo el maximo


--- Código: Text ---Private Sub TextBox1_Change()  If Len(TextBox1) = Me.TextBox1.MaxLength Then    TextBox2.SetFocus  End IfEnd Sub 

Saludos

AstridOcando:
Gracias a F. Tanori,

He aqui la solucion para Excel:

Private Sub TextBox1_Change()
If Len(TextBox1) > 2 Then TextBox2.Activate
End Sub

Por cierto, lo correcto es decir y escribir: "HAZLO" con "Z".

Navegación

[0] Índice de Mensajes

[*] Página Anterior